ProjectItem.SubProject プロパティ

[アーティクル]
08/22/2008

更新 : 2007 年 11 月

プロジェクト項目がサブプロジェクトのルートである場合、SubProject プロパティは、そのサブプロジェクトの Project オブジェクトを返します。

名前空間 : EnvDTE
アセンブリ : EnvDTE (EnvDTE.dll 内)

構文

'宣言
ReadOnly Property SubProject As Project
'使用
Dim instance As ProjectItem
Dim value As Project

value = instance.SubProject

Project SubProject { get; }

property Project^ SubProject {
    Project^ get ();
}

function get SubProject () : Project

プロパティ値

型 : EnvDTE.Project

Project オブジェクト。

例

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