共用方式為


ProjectItem.SubProject Property

Definition

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

public:
 property EnvDTE::Project ^ SubProject { EnvDTE::Project ^ get(); };
public:
 property EnvDTE::Project ^ SubProject { EnvDTE::Project ^ get(); };
[System.Runtime.InteropServices.DispId(120)]
public EnvDTE.Project SubProject { [System.Runtime.InteropServices.DispId(120)] get; }
[<System.Runtime.InteropServices.DispId(120)>]
[<get: System.Runtime.InteropServices.DispId(120)>]
member this.SubProject : EnvDTE.Project
Public ReadOnly Property SubProject As Project

Property Value

A Project object.

Attributes

Examples

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  

Applies to