CodeDelegate2.AddAttribute メソッド (String, String, Object)

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

新しい属性コード構成を作成し、適切な位置にコードを挿入します。

名前空間: EnvDTE80
アセンブリ: EnvDTE80 (EnvDTE80.dll 内)

構文

'宣言
Function AddAttribute ( _
    Name As String, _
    Value As String, _
    Position As Object _
) As CodeAttribute

CodeAttribute AddAttribute(
    string Name,
    string Value,
    Object Position
)

CodeAttribute^ AddAttribute(
    String^ Name, 
    String^ Value, 
    Object^ Position
)

abstract AddAttribute : 
        Name:string * 
        Value:string * 
        Position:Object -> CodeAttribute

function AddAttribute(
    Name : String, 
    Value : String, 
    Position : Object
) : CodeAttribute

パラメーター

Name
型: System.String
必須。新しい属性の名前です。

Value
型: System.String
必須。属性の値。パラメーターを持つプロパティのパラメーターのコンマで区切られた一覧を指定することもできます。

Position
型: System.Object
省略可能です。既定値は 0 です。ここで指定したコード要素の後に、新しい要素を追加します。
Value が Long 型の場合、後ろに新しい要素を追加する要素が、AddAttribute によって示されます。
コレクションのカウントは 1 から始まるため、0 を指定すると新しい要素がコレクションの最初に配置されます。値 -1 は要素を末尾に配置することを示します。

戻り値

型: EnvDTE.CodeAttribute
CodeAttribute オブジェクト。

実装

CodeDelegate.AddAttribute(String, String, Object)

解説

AddAttribute では、属性が既に存在する場合にも属性が追加されます。属性や、コードモデルの背後にある言語によっては、このことが問題になる場合もあります。

注意

特定の種類の編集を行うと、クラス、構造体、関数、属性、デリゲートなどのコードモデル要素が非確定的な値になる場合があります。つまり、これらの要素の値は、常に同じ値になるとは限りません。詳細については、「コードモデルを使用したコードの調査 (Visual Basic)」で、コードモデル要素値を変更する方法についての説明を参照してください。

例

この例を実行する前に、クラスを含むプロジェクトを読み込み、次の行をプログラム例と共に挿入します。この行とプログラム例の両方を追加したら、Delegate 行をクリックして挿入ポインターを配置して、例を実行します。

[VisualBasic]

Delegate Sub MySubDelegate(ByVal x As Integer)

[C#]

public delegate void MySubDelegate(int x);

[VisualBasic]

Public Sub addDelegateAttribExample(ByVal dte As DTE2)
    Try
        ' Retrieve the CodeClass at the insertion point.
        Dim sel As TextSelection = _
          CType(dte.ActiveDocument.Selection, TextSelection)
        Dim del As CodeDelegate2 = _
          CType(sel.ActivePoint.CodeElement( _
        vsCMElement.vsCMElementDelegate), CodeDelegate2)

        ' Add a new attribute to the delegate.
        del.AddAttribute("someNewAttribute", "someValue", -1)
    Catch ex As System.Exception
        MsgBox(ex.ToString)
    End Try
End Sub