Freigeben über


SelectedItem-Schnittstelle

Stellt ausgewählte Projekte oder Projektelemente in der integrierten Entwicklungsumgebung (IDE) von Visual Studio dar.

Namespace:  EnvDTE
Assembly:  EnvDTE (in EnvDTE.dll)

Syntax

'Declaration
<GuidAttribute("049D2CDF-3731-4CB6-A233-BE97BCE922D3")> _
Public Interface SelectedItem
[GuidAttribute("049D2CDF-3731-4CB6-A233-BE97BCE922D3")]
public interface SelectedItem
[GuidAttribute(L"049D2CDF-3731-4CB6-A233-BE97BCE922D3")]
public interface class SelectedItem
[<GuidAttribute("049D2CDF-3731-4CB6-A233-BE97BCE922D3")>]
type SelectedItem =  interface end
public interface SelectedItem

Der SelectedItem-Typ macht die folgenden Member verfügbar.

Eigenschaften

  Name Beschreibung
Öffentliche Eigenschaft Collection Ruft die SelectedItems-Auflistung mit dem SelectedItem-Objekt ab, das dieses Element unterstützt.
Öffentliche Eigenschaft DTE Ruft das Erweiterbarkeitsobjekt der obersten Ebene ab.
Öffentliche Eigenschaft Info Infrastruktur. Nur für die interne Verwendung durch Microsoft vorgesehen.
Öffentliche Eigenschaft InfoCount Infrastruktur. Nur für die interne Verwendung durch Microsoft vorgesehen.
Öffentliche Eigenschaft Name Ruft den Namen des SelectedItem-Objekts ab.
Öffentliche Eigenschaft Project Ruft das dem SelectedItem-Objekt zugeordnete Project-Objekt ab.
Öffentliche Eigenschaft ProjectItem Ruft das dem angegebenen Objekt zugeordnete ProjectItem-Objekt ab.

Zum Seitenanfang

Beispiele

Sub SelectionContainerSelectedItemExample()
   Dim SelItems As SelectedItems
   Dim SelItemObj As SelectedItem
   Dim SelContain As SelectionContainer
   Dim SelItem As SelectedItem
   Dim NameStr As String

   SelItems = DTE.SelectedItems
   ' List the number of items selected.
   If SelItems.MultiSelect = True Then
      MsgBox("You have " & SelItems.Count & " items selected in _
        Solution Explorer.")
   End If

   ' Set a reference to the first selected item.
   SelItemObj = SelItems.Item(1)
   ' List the names of the project or project items under the selected 
   ' item.
   For Each SelItem In SelItemObj.Collection
      NameStr = NameStr & SelItem.Name
      If TypeOf SelItem.Project Is Project Then
         NameStr = NameStr & " Project-" & SelItem.Project.Name & vbCrLf
      Else
         If TypeOf SelItem.ProjectItem Is ProjectItem Then
             NameStr = NameStr & SelItem.ProjectItem.FileNames(1) & vbCrLf
         End If
      End If
   Next
   MsgBox("You selected: " & NameStr)
End Sub

Siehe auch

Referenz

EnvDTE-Namespace