Interface ContextAttribute

Artigo
08/01/2011

Representa um único atributo associado a um contexto global ou o contexto da janela de Ajuda Dinâmica janela.

Namespace: EnvDTE
Assembly: EnvDTE (em EnvDTE.dll)

Sintaxe

'Declaração
<GuidAttribute("1A6E2CB3-B897-42EB-96BE-FF0FDB65DB2F")> _
Public Interface ContextAttribute

[GuidAttribute("1A6E2CB3-B897-42EB-96BE-FF0FDB65DB2F")]
public interface ContextAttribute

[GuidAttribute(L"1A6E2CB3-B897-42EB-96BE-FF0FDB65DB2F")]
public interface class ContextAttribute

[<GuidAttribute("1A6E2CB3-B897-42EB-96BE-FF0FDB65DB2F")>]
type ContextAttribute =  interface end

public interface ContextAttribute

O tipo ContextAttribute expõe os membros a seguir.

Propriedades

	Nome	Descrição
	Collection	Obtém a coleção que contém o ContextAttribute objeto com suporte para esta propriedade.
	DTE	Obtém o objeto de extensibilidade de nível superior.
	Name	Obtém o nome do objeto.
	Values	Obtém uma coleção de valores para o atributo.

Início

Métodos

	Nome	Descrição
	Remove	Remove o atributo de seu pai ContextAttributes coleção.

Início

Exemplos

Sub ContextAttributeExample()
   ' Get a reference to Solution Explorer.
   Dim SolnEx As Window = DTE.Windows. _
   Item(Constants.vsWindowKindSolutionExplorer)
   Dim CA As ContextAttribute

   ' List the current attributes associated with Solution Explorer.
   ListAttr(SolnEx, CA)

   ' Associate a new F1 keyword with Solution Explorer.
   SolnEx.ContextAttributes.Add("ANewKeyword", 900, _
   vsContextAttributeType.vsContextAttributeLookupF1)
   ListAttr(SolnEx, CA)

   ' Delete the new F1 keyword from Solution Explorer.
   SolnEx.ContextAttributes.Item(3).Remove()
   ListAttr(SolnEx, CA)
End Sub

Sub ListAttr(ByVal SolnEx As Object, ByVal CA As ContextAttribute)
   ' Support function for CATest(). Lists the current attributes 
   ' associated with Solution Explorer.
   Dim msg As String

   MsgBox("Number of context attributes in Solution Explorer: " & _
   SolnEx.ContextAttributes.Count)
   For Each CA In SolnEx.ContextAttributes
      msg = msg & CA.Name & Chr(13)
   Next
   MsgBox(msg)
   msg = ""
End Sub

Consulte também

Referência

Namespace EnvDTE

Compartilhar via