CodeAttributeArgument.StartPoint プロパティ
コード属性引数の先頭を定義する TextPoint オブジェクトを取得します。
名前空間: EnvDTE80
アセンブリ: EnvDTE80 (EnvDTE80.dll 内)
構文
'宣言
ReadOnly Property StartPoint As TextPoint
TextPoint StartPoint { get; }
property TextPoint^ StartPoint {
TextPoint^ get ();
}
abstract StartPoint : TextPoint
function get StartPoint () : TextPoint
プロパティ値
型 : EnvDTE.TextPoint
コード属性引数の先頭を定義する TextPoint オブジェクト。
解説
[!メモ]
特定の種類の編集を行った後に、クラス、構造体、関数、属性、デリゲートなどのコード モデル要素の値を決定できないことがあります。つまり、これらの要素の値は、信頼できる値ではなく、常に同じ値になるとは限りません。詳細については、「コード モデルを使用したコードの調査 (Visual Basic)」で、コード モデル要素値を変更する方法についての説明を参照してください。
例
' Macro code.
Sub codeArgNameExample()
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
Try
' 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 += "Value: " & attrArg.Value & " " & vbCr
' If the argument has a name, list it.
If attrArg.Name <> Nothing Then
msg += "Name: " & attrArg.Name & vbCr
End If
msg += "Arg start pos: " & _
attrArg.StartPoint.LineCharOffset & vbCr
msg += "Arg end pos: " & _
attrArg.EndPoint.LineCharOffset & vbCr
Next
Next
msg += "Location: " & attrArg.InfoLocation.ToString & vbCr
msg += "Is code type? " & attrArg.IsCodeType.ToString & vbCr
msg += "Code element type: " & attrArg.Kind.ToString & vbCr
msg += "Language: " & attrArg.Language & vbCr
msg += ("Name of attribute's project item: " & _
attrArg.ProjectItem.Name)
' List the arguments for the attribute.
MsgBox("Attribute parameters for " & attr.Name _
& ": " & vbCr & msg)
Catch ex As System.Exception
MsgBox("ERROR -> " & ex.Message)
End Try
End Sub
.NET Framework セキュリティ
- 直前の呼び出し元に対する完全な信頼。このメンバーは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。