共用方式為


VCProjectReference.ReferencedProject Property

Definition

Gets or sets the pointer to the project for the selected project reference.

public:
 property System::Object ^ ReferencedProject { System::Object ^ get(); };
public:
 property Platform::Object ^ ReferencedProject { Platform::Object ^ get(); };
[System.Runtime.InteropServices.DispId(2040)]
public object ReferencedProject { [System.Runtime.InteropServices.DispId(2040)] get; }
[<System.Runtime.InteropServices.DispId(2040)>]
[<get: System.Runtime.InteropServices.DispId(2040)>]
member this.ReferencedProject : obj
Public ReadOnly Property ReferencedProject As Object

Property Value

A pointer to the project for the selected project reference.

Attributes

Examples

See How to: Compile Example Code for Visual C++ Code Model Extensibility for information about how to compile and run this example.

' 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  

Remarks

A VCProject object.

Applies to