VCProjectReference.ReferencedProject 属性
获取或设置指针选定项的项目引用。
命名空间： Microsoft.VisualStudio.VCProjectEngine
程序集： Microsoft.VisualStudio.VCProjectEngine（在 Microsoft.VisualStudio.VCProjectEngine.dll 中）
语法
声明
ReadOnly Property ReferencedProject As Object
Object ReferencedProject { get; }
property Object^ ReferencedProject {
Object^ get ();
}
abstract ReferencedProject : Object with 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
.NET Framework 安全性
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。