ContextAttribute, interface
Représente un attribut unique associé à un contexte global ou au contexte d'une fenêtre dans la fenêtre d'aide dynamique.
Espace de noms : EnvDTE
Assembly : EnvDTE (dans EnvDTE.dll)
Syntaxe
'Déclaration
<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
Le type ContextAttribute expose les membres suivants.
Propriétés
Nom | Description | |
---|---|---|
Collection | Obtient la collection contenant l'objet ContextAttribute qui prend en charge cette propriété. | |
DTE | Obtient l'objet d'extensibilité de niveau supérieur. | |
Name | Obtient le nom de l'objet. | |
Values | Obtient une collection de valeurs de l'attribut. |
Début
Méthodes
Nom | Description | |
---|---|---|
Remove | Supprime l'attribut de sa collection ContextAttributes parente. |
Début
Exemples
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