共用方式為

VCActiveXReference.TypeLibraryName 屬性

  • 發行項

取得 ActiveX (COM) 型別程式庫參考的名稱。

命名空間：  Microsoft.VisualStudio.VCProjectEngine
組件：  Microsoft.VisualStudio.VCProjectEngine (在 Microsoft.VisualStudio.VCProjectEngine.dll 中)

語法

'宣告
ReadOnly Property TypeLibraryName As String

string TypeLibraryName { get; }

property String^ TypeLibraryName {
    String^ get ();
}

abstract TypeLibraryName : string with get

function get TypeLibraryName () : String

屬性值

型別：System.String
表示型別程式庫參考名稱的字串。

備註

除非參考是 ActiveX (COM) 型別程式庫，則這個屬性會傳回空白字串。

如需如何編譯與執行此範例的詳細資訊，請參閱HOW TO：編譯 Visual C++ 程式碼模型擴充性的範例程式碼。

範例

[Visual Basic]

此範例會在您的方案中的每個專案執行迴圈並列出型別每 ActiveX (COM) 控制程式庫名稱。

' Add a reference to Microsoft.VisualStudio.VCProjectEngine and have a 
' Visual C++ project loaded before running this example. Also, you 
' should have at least one ActiveX (COM) reference in a project.
Imports EnvDTE
Imports Microsoft.VisualStudio.VCProjectEngine

Public Module Module1
    Sub Test()
        Dim proj As Project
        Dim vcproj As VCProject
        Dim ref As VCReference
        Dim axref As VCActiveXReference
     
        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
                    axref = Nothing
                    axref = CType(ref, VCActiveXReference)
                    ' If this reference is an ActiveX reference.
                    If Not axref Is Nothing Then
                        MsgBox("Type library name: " & _
                          axref.TypeLibraryName)
                    End If
                Next
            End If
        Next
    End Sub
End Module

.NET Framework 安全性

請參閱

參考

VCActiveXReference 介面

Microsoft.VisualStudio.VCProjectEngine 命名空間