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
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
- Volle Vertrauenswürdigkeit für den unmittelbaren Aufrufer. Dieser Member kann von nur teilweise vertrauenswürdigem Code nicht verwendet werden. Weitere Informationen finden Sie unter Verwenden von Bibliotheken aus teilweise vertrauenswürdigem Code.