ContextAttributes.HighPriorityAttributes Property

Reference

Definition

Namespace:: EnvDTE

Assembly:: EnvDTE.dll

Assembly:: Microsoft.VisualStudio.Interop.dll

Package:: Microsoft.VisualStudio.Interop v17.11.40262

Important

Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.

Gets the High Priority attributes collection.

public:
 property EnvDTE::ContextAttributes ^ HighPriorityAttributes { EnvDTE::ContextAttributes ^ get(); };

[System.Runtime.InteropServices.DispId(6)]
public EnvDTE.ContextAttributes HighPriorityAttributes { [System.Runtime.InteropServices.DispId(6)] get; }

[<System.Runtime.InteropServices.DispId(6)>]
[<get: System.Runtime.InteropServices.DispId(6)>]
member this.HighPriorityAttributes : EnvDTE.ContextAttributes

Public ReadOnly Property HighPriorityAttributes As ContextAttributes

Property Value

ContextAttributes

A ContextAttributes collection.

Attributes: DispIdAttribute

Examples

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

Remarks

There is only one instance of this attributes collection. It is available only from the ContextAttributes collection. If the ContextAttributes collection is for a window, then HighPriorityAttributes returns nothing.

These attributes are always in effect, and they are the highest in the context bag precedence, resulting in matching topics going to the top of their respective categories.

Applies to

Partager via