Reference3.Aliases 屬性

發行項
08/21/2008

更新：2007 年 11 月

取得或設定指定參考的別名。此屬性僅套用至 Visual C#。

命名空間： VSLangProj80
組件： VSLangProj80 (在 VSLangProj80.dll 中)

語法

Property Aliases As String

Dim instance As Reference3
Dim value As String

value = instance.Aliases

instance.Aliases = value

string Aliases { get; set; }

property String^ Aliases {
    String^ get ();
    void set (String^ value);
}

function get Aliases () : String
function set Aliases (value : String)

屬性值

型別：System.String

字串，表示別名。

備註

在 Visual C# 中，您可以使用一或多個替代名稱或別名表示專案中的參考名稱。此屬性可以讓您檢視或設定別名。

範例

此範例會測試專案是否為 Visual C# 專案，然後列出專案參考的所有別名。請先開啟 Visual C# 專案，再執行此範例。若要將此範例當做增益集來執行，請參閱 HOW TO：編譯和執行 Automation 物件模型程式碼範例。

Imports VSLangProj
Imports VSLangProj2
Imports VSLangProj80
Public Sub OnConnection(ByVal application As Object,_
 ByVal connectMode As ext_ConnectMode, ByVal addInInst As Object, _
 ByRef custom As Array) Implements IDTExtensibility2.OnConnection
    applicationObject = CType(application, DTE2)
    addInInstance = CType(addInInst, AddIn)
    DisplayAliases(applicationObject)
End Sub
Public Sub DisplayAliases(ByVal dte As DTE2)
    ' The first project is a Visual Basic, C# or J# project.
    Dim vsProject As VSProject2 = _
    CType(applicationObject.Solution.Projects.Item(1).Object, _
    VSProject2)
    Dim aRef As Reference3
    Dim refStr As String
    refStr = ""
    If vsProject.Project.Kind = PrjKind.prjKindCSharpProject Then
        For Each aRef In vsProject.References
            refStr += (aRef.Name & " " & aRef.Aliases & vbCr)
         Next
         MsgBox(refStr)
    Else
         MsgBox("The project is not a C# project")
    End If
End Sub