ProjectItem::SubProject Property
Visual Studio 2015
If the project item is the root of a subproject, then the SubProject property returns the Project object for the subproject.
Assembly: EnvDTE (in EnvDTE.dll)
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
Show: