CodeAttributeArgument.EndPoint 属性

定义

获取一个 TextPoint 对象,该对象定义代码特性参数的结尾。

public:
 property EnvDTE::TextPoint ^ EndPoint { EnvDTE::TextPoint ^ get(); };
public:
 property EnvDTE::TextPoint ^ EndPoint { EnvDTE::TextPoint ^ get(); };
[System.Runtime.InteropServices.DispId(11)]
public EnvDTE.TextPoint EndPoint { [System.Runtime.InteropServices.DispId(11)] [System.Runtime.InteropServices.TypeLibFunc(1024)] get; }
[<System.Runtime.InteropServices.DispId(11)>]
[<get: System.Runtime.InteropServices.DispId(11)>]
[<get: System.Runtime.InteropServices.TypeLibFunc(1024)>]
member this.EndPoint : EnvDTE.TextPoint
Public ReadOnly Property EndPoint As TextPoint

属性值

TextPoint

TextPoint定义代码特性参数的末尾的对象。

属性

示例

' 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  

注解

结束点位置紧跟在代码属性参数 (包括分隔逗号) 的最后一个字符之后。

备注

在进行了某些类型的编辑之后,代码模型元素(例如类、结构、函数、特性、委托等)的值可能变为非确定性的,这意味着不能确定它们的值始终保持不变。 有关详细信息,请参阅 "代码模型元素值在 使用代码模型查找代码时 可能发生变化" (Visual Basic) "。

适用于