ContextAttribute Arabirim

Makale
05/18/2015

Genel bir içerik veya pencerenin içeriği içinde ilişkili tek bir özniteliği temsil Dynamic Help pencere.

Ad alanı: EnvDTE
Derleme: EnvDTE (EnvDTE.dll içinde)

Sözdizimi

'Bildirim
<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

ContextAttribute türü aşağıdaki üyeleri ortaya koyar.

Özellikler

	Ad	Açıklama
	Collection	İçeren koleksiyon alır ContextAttribute bu özelliği destekleyen bir nesne.
	DTE	Üst düzey bir geniþletilebilirlik nesnesi alır.
	Name	Nesnenin adını alır.
	Values	Öznitelik için bir değerler topluluğu alır.

Üst

Yöntemler

	Ad	Açıklama
	Remove	Üst slaytından özniteliğini kaldırır ContextAttributes koleksiyonu.

Üst

Örnekler

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

Ayrıca bkz.

Başvuru

EnvDTE Ad Alanı

Aracılığıyla paylaş