ProjectItem.SubProject Property

 

If the project item is the root of a subproject, then the SubProject property returns the Project object for the subproject.

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

Project SubProject { get; }

Property Value

Type: EnvDTE.Project

A Project object.

Sub SubProjectExample()
   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
Return to top
Show: