Interfaccia ContextAttribute
Rappresenta un attributo singolo associato a un contesto globale o a un contesto di una finestra nella finestra Guida dinamica.
Spazio dei nomi: EnvDTE
Assembly: EnvDTE (in EnvDTE.dll)
Sintassi
'Dichiarazione
<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
Il tipo ContextAttribute espone i seguenti membri.
Proprietà
Nome | Descrizione | |
---|---|---|
Collection | Ottiene l'insieme contenente l'oggetto ContextAttribute che supporta la proprietà. | |
DTE | Ottiene l'oggetto di estensibilità di primo livello. | |
Name | Ottiene il nome dell'oggetto. | |
Values | Ottiene un insieme di valori per l'attributo. |
In alto
Metodi
Nome | Descrizione | |
---|---|---|
Remove | Rimuove l'attributo dall'insieme padre ContextAttributes. |
In alto
Esempi
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