ProjectItem.IsOpen[String] Property

Reference

Definition

Namespace:: EnvDTE

Assembly:: EnvDTE.dll

Assembly:: Microsoft.VisualStudio.Interop.dll

Package:: Microsoft.VisualStudio.Interop v17.11.40262

Important

Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.

Gets a value indicating whether the project item is open in a particular view type.

public:
 property bool IsOpen[System::String ^] { bool get(System::String ^ ViewKind); };

[System.Runtime.InteropServices.DispId(204)]
public bool IsOpen[string ViewKind = "{FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF}"] { [System.Runtime.InteropServices.DispId(204)] get; }

[<System.Runtime.InteropServices.DispId(204)>]
[<get: System.Runtime.InteropServices.DispId(204)>]
member this.IsOpen(string) : bool

Public ReadOnly Property IsOpen(Optional ViewKind As String = "{FFFFFFFF-FFFF-FFFF-FFFF-FFFFFFFFFFFF}") As Boolean

Parameters

ViewKind: String

Required. A Constants.vsViewKind* indicating the type of view to check.

Property Value

Boolean

A Boolean value indicating true if the project is open in the given view type; false if not.

Attributes: DispIdAttribute

Examples

Sub IsOpenExample()  
   Dim proj As Project  
   Dim projitems As ProjectItems  
   Dim msg As String  

   ' Reference the current solution and its projects and project items.  
   proj = DTE.ActiveSolutionProjects(0)  
   projitems = proj.ProjectItems  

   ' List properties of the project and its items.  
   msg = "Is the item open? " & projitems.Item(1).IsOpen & Chr(13)  
   msg = msg & "The project's unique name: " & proj.UniqueName  
   ' The following two properties work only if the current project   
   ' contains subprojects. If it does, then uncomment the lines to run   
   ' them.  
   ' msg = msg & "The parent project item name: " & proj.ParentProjectItem.Name & Chr(13)  
   ' msg = msg & "The subproject name: " & projitems.Item(1).SubProject.Name & Chr(13)  
   MsgBox(msg)  
End Sub

Applies to

Share via