Partager via


ContextAttributes.HighPriorityAttributes, propriété

Mise à jour : novembre 2007

Obtient la collection d'attributs High Priority.

Espace de noms :  EnvDTE
Assembly :  EnvDTE (dans EnvDTE.dll)

Syntaxe

ReadOnly Property HighPriorityAttributes As ContextAttributes

Dim instance As ContextAttributes
Dim value As ContextAttributes

value = instance.HighPriorityAttributes
ContextAttributes HighPriorityAttributes { get; }
property ContextAttributes^ HighPriorityAttributes {
    ContextAttributes^ get ();
}
function get HighPriorityAttributes () : ContextAttributes

Valeur de propriété

Type : EnvDTE.ContextAttributes

Collection ContextAttributes.

Notes

Il n'existe qu'une seule instance de cette collection d'attributs. Elle est disponible uniquement à partir de la collection ContextAttributes. Si la collection ContextAttributes est définie pour une fenêtre, la propriété HighPriorityAttributes ne retourne rien.

Ces attributs sont toujours en vigueur et possèdent la plus haute priorité dans l'ordre de priorité des sacs de contextes, contraignant les rubriques correspondantes à s'afficher en haut de leur catégorie respective.

Exemples

    Sub HighPriorityAttributesExample()
        Dim cas As EnvDTE.ContextAttributes
        Dim ca As EnvDTE.ContextAttribute

        Try
            cas = DTE.ContextAttributes
            ' List all regular and high priority attributes.
            ListAttr(ca, cas)
            ' Add a new F1 keyword to the global high priority 
            ' attributes collection.
            cas.HighPriorityAttributes.Add("NewAttribute", _
            "NewF1Keyword", vsContextAttributeType. _
            vsContextAttributeLookupF1)
            ListAttr(ca, cas)
            ' Remove the new high priority attribute.
            cas.HighPriorityAttributes.Item(1).Remove()
            ListAttr(ca, cas)
        Catch ex As System.Exception
            MsgBox("ERROR: " & ex.Message)
        End Try
    End Sub

    Function ListAttr(ByVal ca As ContextAttribute, ByVal cas As _
    ContextAttributes)
        Dim msg As String

        Try
            ' List regular attributes, their first value, and their count.
            For Each ca In cas
                msg = msg & ca.Name & "  " & ca.Values(0) & vbCr
            Next
            cas.Refresh()
            MsgBox("All Attributes: " & vbCr & msg & "Count: " & _
            cas.Count)

            ' List high-priority attributes, their first value, 
            ' and their count.
            msg = ""
            For Each ca In cas.HighPriorityAttributes
                msg = msg & ca.Name & "  " & ca.Values(0) & vbCr
            Next
            cas.Refresh()
            MsgBox("High-Priority Attributes: " & vbCr & msg & "Count: " _
            & cas.HighPriorityAttributes.Count)
        Catch ex As System.Exception
            MsgBox("ERROR: " & ex.Message)
        End Try
    End Function

Autorisations

Voir aussi

Référence

ContextAttributes, interface

Membres ContextAttributes

EnvDTE, espace de noms