CodeClass.Bases 屬性

發行項
10/28/2012

取得衍生出這個項目的類別集合。

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

語法

'宣告
ReadOnly Property Bases As CodeElements

CodeElements Bases { get; }

property CodeElements^ Bases {
    CodeElements^ get ();
}

abstract Bases : CodeElements

function get Bases () : CodeElements

屬性值

型別：EnvDTE.CodeElements
CodeElements 集合。

備註

Bases 是 CodeElements 的超級型別。對於 Visual Basic 和 Visual C#，除了程式碼型別為 CodeInterface 的情況以外，集合中必定只有一個項目。

注意事項
在特定類型的編輯之後，程式碼模型項目 (例如類別、結構、函式、屬性、委派等) 的值可能不具決定性，表示其值不一定維持相同。如需詳細資訊，請參閱使用程式碼模型探索程式碼 (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 CodeClass = _
            CType(sel.ActivePoint.CodeElement( _
            vsCMElement.vsCMElementClass), CodeClass)

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

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

End Sub

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;
        CodeClass cls = 
            (CodeClass)sel.ActivePoint.get_CodeElement(
            vsCMElement.vsCMElementClass);

        // Enumerate the CodeClass's bases.
        string bases = "";
        foreach (CodeElement 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);
    }
}