ContextAttributes.HighPriorityAttributes – vlastnost
Získá kolekce atributů s vysokou prioritou.
Obor názvů: EnvDTE
Sestavení: EnvDTE (v EnvDTE.dll)
Syntaxe
'Deklarace
ReadOnly Property HighPriorityAttributes As ContextAttributes
Get
ContextAttributes HighPriorityAttributes { get; }
property ContextAttributes^ HighPriorityAttributes {
ContextAttributes^ get ();
}
abstract HighPriorityAttributes : ContextAttributes
function get HighPriorityAttributes () : ContextAttributes
Hodnota vlastnosti
Typ: EnvDTE.ContextAttributes
A ContextAttributes kolekce.
Poznámky
Existuje pouze jedna instance této kolekce atributů. Je k dispozici pouze ContextAttributes kolekce. Pokud ContextAttributes okna, pak je kolekce HighPriorityAttributes vrátí žádnou akci.
Tyto atributy jsou vždy v platnosti a mají nejvyšší prioritu kontextu vaku, výsledkem odpovídající témata přechod na začátek jejich příslušné kategorie.
Příklady
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
Zabezpečení rozhraní .NET Framework
- Plná důvěra přímému volajícímu. Částečně zabezpečený kód nemůže tento člen použít. Další informace naleznete v tématu Používání knihoven z částečně důvěryhodného kódu.