次の方法で共有


ContextAttribute.Values Property

Definition

Gets a collection of values for the attribute.

public:
 property System::Object ^ Values { System::Object ^ get(); };
public:
 property Platform::Object ^ Values { Platform::Object ^ get(); };
[System.Runtime.InteropServices.DispId(3)]
public object Values { [System.Runtime.InteropServices.DispId(3)] get; }
[<System.Runtime.InteropServices.DispId(3)>]
[<get: System.Runtime.InteropServices.DispId(3)>]
member this.Values : obj
Public ReadOnly Property Values As Object

Property Value

An object representing a SafeArray of strings containing the values of the attribute.

Attributes

Examples

Sub ValuesExample()  
   ' 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)  
   MsgBox("ContextAttributes value: " & _  
   DTE.ContextAttributes.Item(1).Values(0))  

   ' 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  

Remarks

Attributes may have more than one value at a time.

Applies to