VCProjectReference.ReferencedProject プロパティ
選択されているプロジェクト参照のプロジェクトへのポインタを取得または設定します。
名前空間 : Microsoft.VisualStudio.VCProjectEngine
アセンブリ : Microsoft.VisualStudio.VCProjectEngine (Microsoft.VisualStudio.VCProjectEngine.dll 内)
構文
'宣言
ReadOnly Property ReferencedProject As Object
'使用
Dim instance As VCProjectReference
Dim value As Object
value = instance.ReferencedProject
Object ReferencedProject { get; }
property Object^ ReferencedProject {
Object^ get ();
}
function get ReferencedProject () : Object
プロパティ値
型 : System.Object
選択されているプロジェクト参照のプロジェクトへのポインタを返します。
解説
VCProject オブジェクト。
例
このサンプル コードをコンパイルして実行する方法については、「方法 : Visual C++ コード モデル機能拡張のプログラム例をコンパイルする」を参照してください。
' Add a reference to Microsoft.VisualStudio.VCProjectEngine.
' This sample displays the name of every referenced project in a
' Visual C++ project in the solution. Therefore, make sure you have a
' Visual C++ project loaded before running this code.
Imports EnvDTE
Imports Microsoft.VisualStudio.VCProjectEngine
Public Module Module1
Sub Test()
Dim proj As Project
Dim vcproj As VCProject
Dim ref As VCReference
Dim projref As VCProjectReference
Dim refproj As Project
On Error Resume Next
' Loop each project in the solution.
For Each proj In DTE.Solution.Projects
vcproj = Nothing
vcproj = CType(proj.Object, VCProject)
' If this project is a Visual C++ project
If Not vcproj Is Nothing Then
' Loop the references for this Visual C++ project.
For Each ref In vcproj.VCReferences
projref = Nothing
projref = CType(ref, VCProjectReference)
' If this reference is a project reference.
If Not projref Is Nothing Then
refproj = Nothing
refproj = CType(projref.ReferencedProject, _
Project)
' If there is a referenced project.
If Not refproj Is Nothing Then
MsgBox("Project named '" & refproj.Name & "' _
is referenced in project '" & vcproj.Name _
& "'.")
End If
End If
Next
End If
Next
End Sub
End Module
アクセス許可
- 直前の呼び出し元に対する完全な信頼。このメンバは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。