CodeAttributeArgument インターフェイス

[アーティクル]
08/09/2011

コード属性の 1 つの引数 (名前/値ペア) を表します。

名前空間: 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	コード属性引数の Extender を返します。
	ExtenderCATID	コード属性引数の Extender のカテゴリ ID (CATID) を取得します。
	ExtenderNames	コード属性引数の Extender の名前を取得します。
	FullName	コード属性引数の定義の完全修飾名を取得します。
	InfoLocation	コード属性引数の場所を示す定数を取得します。
	IsCodeType	このコード属性引数から CodeType オブジェクトを取得できるかどうかを示す値を取得します。
	Kind	コード要素の型を定義する列挙値を取得します。
	Language	コードの作成に使用されたプログラミング言語を取得します。
	Name	オブジェクトの名前を表す文字列を取得または設定します。
	ProjectItem	関連付けられた ProjectItem オブジェクトを取得します。
	StartPoint	コード属性引数の先頭を定義する TextPoint オブジェクトを取得します。
	Value	属性引数の値を設定または取得します。

このページのトップへ

メソッド

	名前	説明
	Delete	コード属性から引数を 1 つ削除します。
	GetEndPoint	属性引数の末尾を示す TextPoint オブジェクトを返します。
	GetStartPoint	属性引数の先頭を示す TextPoint オブジェクトを取得します。

このページのトップへ

解説

コード属性のすべての引数は、Collection プロパティに含まれています。

注意

特定の種類の編集を行うと、クラス、構造体、関数、属性、デリゲートなどのコードモデル要素が非確定的な値になる場合があります。つまり、これらの要素の値は、常に同じ値になるとは限りません。詳細については、「コードモデルを使用したコードの調査 (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