ProjectItem Interface
TOC
Collapse the table of content
Expand the table of content
The document is archived and information here might be outdated

ProjectItem Interface

Represents an item in a project.

Namespace: EnvDTE
Assembly: EnvDTE (in envdte.dll)

'Declaration
<GuidAttribute("0B48100A-473E-433C-AB8F-66B9739AB620")> _
Public Interface ProjectItem
'Usage
Dim instance As ProjectItem

/** @attribute GuidAttribute("0B48100A-473E-433C-AB8F-66B9739AB620") */ 
public interface ProjectItem
GuidAttribute("0B48100A-473E-433C-AB8F-66B9739AB620") 
public interface ProjectItem

' Before running, create a new project or open an existing project.
Sub ListProj()
   Dim proj As Project = DTE.ActiveSolutionProjects(0)
   Dim win As Window = _
     DTE.Windows.Item(Constants.vsWindowKindCommandWindow)
   ListProjAux(proj.ProjectItems(), 0)
End Sub

Sub ListProjAux(ByVal projitems As ProjectItems, ByVal Level As Integer)
   Dim projitem As ProjectItem
   For Each projitem In projitems
      MsgBox("Project item: " & projitem.Name, Level)
      ' Recurse if the project item has sub-items...
      Dim projitems2 As ProjectItems
      projitems2 = projitem.ProjectItems
      Dim notsubcoll As Boolean = projitems2 Is Nothing
      If Not notsubcoll Then
         ListProjAux(projitems2, Level + 1)
      End If
   Next
End Sub
Show:
© 2016 Microsoft