SelectedItems-Schnittstelle
Aktualisiert: November 2007
Enthält SelectedItem-Objekte, die ausgewählte Projekte oder Projektelemente darstellen.
Namespace: EnvDTE
Assembly: EnvDTE (in EnvDTE.dll)
Syntax
<GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")> _
Public Interface SelectedItems _
Implements IEnumerable
Dim instance As SelectedItems
[GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")]
public interface SelectedItems : IEnumerable
[GuidAttribute(L"6CAA67CF-43AE-4184-AAAB-0200DDF6B240")]
public interface class SelectedItems : IEnumerable
public interface SelectedItems extends IEnumerable
Hinweise
Eine SelectedItems-Auflistung ist immer vorhanden, auch wenn keine Projektelemente verfügbar sind. Wenn beispielsweise der Projektmappen-Explorer den Fokus hat und ein Projektknoten ausgewählt ist, ist ein SelectedItem-Objekt vorhanden. Die Project-Eigenschaft des ausgewählten Elements verweist auf das ausgewählte Projekt, und dessen ProjectItem-Eigenschaft lautet Null.
Beispiele
Sub SelectedItemsExample()
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