ContextAttributes.HighPriorityAttributes - свойство

Статья
11/05/2008

Обновлен: Ноябрь 2007

Возвращает атрибуты коллекции с высоким приоритетом.

Пространство имен: EnvDTE
Сборка: EnvDTE (в EnvDTE.dll)

Синтаксис

'Декларация
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

Значение свойства

Тип: EnvDTE.ContextAttributes
Коллекция ContextAttributes.

Заметки

Существует только один экземпляр этой коллекции атрибутов. Доступно только из коллекции ContextAttributes. Если коллекция ContextAttributes относится к окну, то HighPriorityAttributes ничего не возвращает.

Эти атрибуты действуют всегда и применяются в первую очередь в контексте, в результате чего найденные темы оказываются вверху соответствующих категорий.

Примеры

    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

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.

См. также

Ссылки

ContextAttributes Интерфейс

ContextAttributes - члены

EnvDTE - пространство имен

Поделиться через