Freigeben über


ContextAttributes.HighPriorityAttributes-Eigenschaft

Aktualisiert: November 2007

Ruft die Auflistung der Attribute mit hoher Priorität ab.

Namespace:  EnvDTE
Assembly:  EnvDTE (in EnvDTE.dll)

Syntax

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

Eigenschaftenwert

Typ: EnvDTE.ContextAttributes

Eine ContextAttributes-Auflistung.

Hinweise

Es ist nur eine Instanz dieser Attributauflistung vorhanden. Sie ist nur über die ContextAttributes-Auflistung verfügbar. Wenn sich die ContextAttributes-Auflistung auf ein Fenster bezieht, gibt HighPriorityAttributes keinen Wert zurück.

Diese Attribute sind immer aktiv und befinden sich in der Rangordnung der Kontextsammlung an oberster Stelle. Dies hat zur Folge, dass übereinstimmende Themen ganz oben in den entsprechenden Kategorien eingeordnet werden.

Beispiele

    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

Berechtigungen

Siehe auch

Referenz

ContextAttributes-Schnittstelle

ContextAttributes-Member

EnvDTE-Namespace