CodeClass2 介面

發行項
08/21/2008

更新：2007 年 11 月

代表原始程式碼中的某一類別。

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

語法

<GuidAttribute("295ADCD4-B052-49EE-934E-C6B36862A7C6")> _
Public Interface CodeClass2 _
    Implements CodeClass

Dim instance As CodeClass2

[GuidAttribute("295ADCD4-B052-49EE-934E-C6B36862A7C6")]
public interface CodeClass2 : CodeClass

[GuidAttribute(L"295ADCD4-B052-49EE-934E-C6B36862A7C6")]
public interface class CodeClass2 : CodeClass

public interface CodeClass2 extends CodeClass

備註

在藍圖和部分類別的簡介中提到，每個已編譯的類別都可以有一個以上的 CodeClass 物件。對於檔案中的各個類別，都會有一個 CodeClass 物件的執行個體。CodeClass2 物件可以判斷它是代表部分或完整類別，以及它是實作為 XML 藍圖或實作為程式碼。有關 CodeClass2 物件的編輯或加入，可能只能寫入這個類別部分 (和這個類別的檔案)。

注意事項：
在特定類型的編輯之後，程式碼模型項目 (例如類別、結構、函式、屬性、委派等) 的值可能不具決定性，表示其值不一定維持相同。如需詳細資訊，請參閱使用程式碼模型探索程式碼 (Visual Basic) 的＜程式碼模型項目值可以變更＞一節。

範例

' Macro code.
Sub CodeClass2Example()
    ' Iterates through the main class and
    ' lists its parts.
    Dim sel As TextSelection
    Dim myClass1 As EnvDTE80.CodeClass2
    Dim classPart As EnvDTE80.CodeClass2

    sel = applicationObject.ActiveDocument.Selection
    myClass1 = sel.ActivePoint.CodeElement _
    (vsCMElement.vsCMElementClass)
    If myClass1.ClassKind = _
    vsCMClassKind.vsCMClassKindMainClass Then
        For Each classPart In myClass1.Collection
            MsgBox(classPart.Name)
        Next
    End If
End Sub