ContextAttribute (Interfaz)
Representa un atributo único asociado a un contexto global o al contexto de una ventana en la ventana Ayuda dinámica.
Espacio de nombres: EnvDTE
Ensamblado: EnvDTE (en EnvDTE.dll)
Sintaxis
'Declaración
<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
El tipo ContextAttribute expone los siguientes miembros.
Propiedades
Nombre | Descripción | |
---|---|---|
Collection | Obtiene la colección que contiene el objeto ContextAttribute compatible con esta propiedad. | |
DTE | Obtiene el objeto de extensibilidad de nivel superior. | |
Name | Obtiene el nombre del objeto. | |
Values | Obtiene una colección de valores del atributo. |
Arriba
Métodos
Nombre | Descripción | |
---|---|---|
Remove | Quita el atributo de su colección primaria ContextAttributes. |
Arriba
Ejemplos
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