CodeAttributeArgument.StartPoint Свойство

Определение

Возвращает объект TextPoint, определяющий начало аргумента атрибута кода.

public:
 property EnvDTE::TextPoint ^ StartPoint { EnvDTE::TextPoint ^ get(); };
public:
 property EnvDTE::TextPoint ^ StartPoint { EnvDTE::TextPoint ^ get(); };
[System.Runtime.InteropServices.DispId(10)]
public EnvDTE.TextPoint StartPoint { [System.Runtime.InteropServices.DispId(10)] [System.Runtime.InteropServices.TypeLibFunc(1024)] get; }
[<System.Runtime.InteropServices.DispId(10)>]
[<get: System.Runtime.InteropServices.DispId(10)>]
[<get: System.Runtime.InteropServices.TypeLibFunc(1024)>]
member this.StartPoint : EnvDTE.TextPoint
Public ReadOnly Property StartPoint 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).

Применяется к