VCReference.Reference Özellik

  • Başvuru

Tanım

Ad Alanı:
Microsoft.VisualStudio.VCProjectEngine
Bütünleştirilmiş Kod:
Microsoft.VisualStudio.VCProjectEngine.dll
Bütünleştirilmiş Kod:

Bu yapılandırmayla ilişkili başvuruyu alır.

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

Özellik Değeri

Object

Bu yapılandırmayla ilişkili başvuruyu temsil eden nesne.

Öznitelikler
DispIdAttribute

Örnekler

Bu örneği derlemek ve çalıştırmak hakkında bilgi için bkz. nasıl yapılır: proje modeli genişletilebilirliği Için örnek kod derleme .

' Add a reference to Microsoft.VisualStudio.VCProjectEngine.  
' This sample displaya the path of each reference in a Visual C++  
' project. Therefore, make sure you have a Visual C++ project loaded   
' before running this code.  
Imports EnvDTE  
Imports Microsoft.VisualStudio.VCProjectEngine  

Public Module Module3  
    Sub Test()  
        Dim proj As Project  
        Dim vcproj As VCProject  
        Dim ref As VCReference  
        Dim vsref As VSLangProj.Reference  
        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 is a Visual C++ project.  
            If Not vcproj Is Nothing Then  
                ' Loop each reference in the Visual C++ project.  
                For Each ref In vcproj.VCReferences  
                    vsref = Nothing  
                    vsref = CType(ref.Reference, VSLangProj.Reference)  
                    ' If we have the Visual Studio reference.  
                    If Not vsref Is Nothing Then  
                        MsgBox("The path for reference '" & vsref.Name  _  
                          & "' is '" & vsref.Path & "'.")  
                    End If  
                Next  
            End If  
        Next  
    End Sub  
End Module

Şunlara uygulanır