CodeAttributeArgument 介面

發行項
08/12/2011

代表程式碼屬性中的單一引數 (成對的名稱/值)。

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

語法

'宣告
<GuidAttribute("80F4779B-835D-4873-8356-2F34A759A514")> _
Public Interface CodeAttributeArgument

[GuidAttribute("80F4779B-835D-4873-8356-2F34A759A514")]
public interface CodeAttributeArgument

[GuidAttribute(L"80F4779B-835D-4873-8356-2F34A759A514")]
public interface class CodeAttributeArgument

[<GuidAttribute("80F4779B-835D-4873-8356-2F34A759A514")>]
type CodeAttributeArgument =  interface end

public interface CodeAttributeArgument

CodeAttributeArgument 型別會公開下列成員。

屬性

	名稱	說明
	Children	為指定之程式碼屬性引數取得子屬性的集合。
	Collection	取得包含支援此屬性之物件的集合。
	DTE	取得最上層的擴充性物件，此處即是 DTE2 物件。
	EndPoint	取得 TextPoint 物件，此物件定義程式碼屬性引數的結尾。
	Extender	傳回程式碼屬性引數的擴充項。
	ExtenderCATID	取得程式碼屬性引數擴充項的分類 ID (CATID)。
	ExtenderNames	取得程式碼屬性引數的擴充項名稱。
	FullName	取得程式碼屬性引數定義的完整名稱。
	InfoLocation	取得常數，指出程式碼屬性引數的位置。
	IsCodeType	取得值，指出是否可以從這個程式碼屬性引數取得 CodeType 物件。
	Kind	取得列舉值，定義程式碼項目的型別。
	Language	取得程式語言，用以撰寫程式碼。
	Name	取得或設定字串，表示物件的名稱。
	ProjectItem	取得關聯的 ProjectItem 物件。
	StartPoint	取得 TextPoint 物件，此物件定義程式碼屬性引數的開頭。
	Value	設定或取得屬性引數的值。

回頁首

方法

	名稱	說明
	Delete	從程式碼屬性移除單一引數。
	GetEndPoint	傳回標示屬性引數結尾的 TextPoint 物件。
	GetStartPoint	取得 TextPoint 物件，標示屬性引數的開頭。

回頁首

備註

程式碼屬性 (Attribute) 的所有引數都包含於 Collection 屬性 (Property) 中。

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

範例

' Macro code.
Sub codeArgExample()
    Dim sel As TextSelection = _
    CType(DTE.ActiveDocument.Selection, TextSelection)
    Dim cls As CodeClass2 = CType(sel.ActivePoint. _
    CodeElement(vsCMElement.vsCMElementClass), CodeClass2)
    Dim attr As CodeAttribute2
    Dim attrArg As CodeAttributeArgument
    Dim msg As String

    ' Loop through all of the attributes in the class.
    For Each attr In cls.Attributes
        ' Loop through all of the arguments for the attribute.
        For Each attrArg In attr.Arguments
            msg += attrArg.Value & " "
        Next
    Next
    ' List the arguments for the attribute.
    MsgBox("Attribute parameters for " & attr.Name _
    & ": " & msg)
End Sub