SelectedItems (Interfaz)
Actualización: noviembre 2007
Contiene objetos SelectedItem, cada uno de los cuales representa proyectos o elementos de proyecto.
Espacio de nombres: EnvDTE
Ensamblado: EnvDTE (en EnvDTE.dll)
Sintaxis
<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
Comentarios
Siempre hay una colección SelectedItems, incluso cuando no haya elementos de proyecto. Por ejemplo, si el Explorador de soluciones tiene el foco y hay un nodo de proyecto seleccionado, habrá un objeto SelectedItem. La propiedad Project del elemento seleccionado hace referencia al proyecto seleccionado y su propiedad ProjectItem es Null.
Ejemplos
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