Reference3.Aliases 属性

项目
09/04/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# 项目。若要将此示例作为外接程序运行，请参见如何：编译和运行自动化对象模型代码示例。

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