CodeClass2.Bases 属性

获取此代码类派生自的类的集合。

命名空间:  EnvDTE80
程序集:  EnvDTE80(在 EnvDTE80.dll 中)

语法

声明
ReadOnly Property Bases As CodeElements
    Get
CodeElements Bases { get; }
property CodeElements^ Bases {
    CodeElements^ get ();
}
abstract Bases : CodeElements
function get Bases () : CodeElements

属性值

类型:EnvDTE.CodeElements
一个 CodeElements 集合。

实现

CodeClass.Bases

备注

Bases 是 CodeElements 的超类型。 对于 Visual Basic 和 Visual C#,除非代码类型为 CodeInterfaceCodeInterface2,否则在该集合中始终只有一个元素。

提示

在进行某些类型的编辑之后,代码模型元素(如类、结构、函数、特性、委托等)的值可能是非确定性的,这意味着不能指望它们的值总是保持不变。 有关更多信息,请参见 使用代码模型查找代码 (Visual Basic) 中的“代码模型元素的值可能会更改”一节。

示例

[Visual Basic]

Sub BasesExample(ByVal dte As DTE2)
    ' Before running this example, open a code document from a project
    ' and place the insertion point inside a class definition.
    Try
        ' Retrieve the CodeClass at the insertion point.
        Dim sel As TextSelection = _
            CType(dte.ActiveDocument.Selection, TextSelection)
        Dim cls As CodeClass2 = _
            CType(sel.ActivePoint.CodeElement( _
            vsCMElement.vsCMElementClass), CodeClass2)

        ' Enumerate the CodeClass's bases.
        Dim bases As String = ""
        Dim elem As CodeElement2
        For Each elem In cls.Bases
            bases &= elem.FullName & vbCrLf
        Next

        MsgBox(cls.Name & " has the following bases:" & _
            vbCrLf & vbCrLf & bases)
    Catch ex As System.Exception
        MsgBox(ex.Message)
    End Try
End Sub

[C#]

public void BasesExample(DTE2 dte)
{
    // Before running this example, open a code document from a project
    // and place the insertion point inside a class definition.
    try
    {
        // Retrieve the CodeClass at the insertion point.
        TextSelection sel = 
            (TextSelection)dte.ActiveDocument.Selection;
        CodeClass2 cls = 
            (CodeClass)sel.ActivePoint.get_CodeElement2(
            vsCMElement.vsCMElementClass);

        // Enumerate the CodeClass's bases.
        string bases = "";
        foreach (CodeElement2 elem in cls.Bases)
        {
        bases += elem.FullName + Environment.NewLine;
        }

        MessageBox.Show(cls.Name + " has the following bases:" + 
            Environment.NewLine + Environment.NewLine + bases);
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message);
    }
}

.NET Framework 安全性

请参见

参考

CodeClass2 接口

Bases 重载

EnvDTE80 命名空间

其他资源

如何:编译和运行自动化对象模型代码示例

使用代码模型查找代码 (Visual Basic)

使用代码模型查找代码 (Visual C#)