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
- Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, consultez Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.