CodeAttributeArgument.Kind Propriété

Définition

Obtient une valeur d'énumération qui définit le type d'élément de code.

public:
 property EnvDTE::vsCMElement Kind { EnvDTE::vsCMElement get(); };
public:
 property EnvDTE::vsCMElement Kind { EnvDTE::vsCMElement get(); };
[System.Runtime.InteropServices.DispId(5)]
public EnvDTE.vsCMElement Kind { [System.Runtime.InteropServices.DispId(5)] [System.Runtime.InteropServices.TypeLibFunc(1024)] get; }
[<System.Runtime.InteropServices.DispId(5)>]
[<get: System.Runtime.InteropServices.DispId(5)>]
[<get: System.Runtime.InteropServices.TypeLibFunc(1024)>]
member this.Kind : EnvDTE.vsCMElement
Public ReadOnly Property Kind As vsCMElement

Valeur de propriété

vsCMElement

Valeur vsCMElement.

Attributs

Exemples

' 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  

Remarques

Notes

Les valeurs d'éléments de modèle de code, tels que des classes, des structures, des fonctions, des attributs, des délégués, etc., peuvent être non déterministes après certains types de modifications, ce qui signifie qu'il n'est pas certain que leurs valeurs resteront inchangées. Pour plus d’informations, consultez la section les valeurs d’élément de modèle de code peuvent changer dans la découverte de code à l’aide du modèle de code (Visual Basic).

S’applique à