SelectedItem (Interfaz)

Representa proyectos o elementos de proyecto seleccionados en el entorno de desarrollo integrado (IDE) de Visual Studio.

Espacio de nombres:  EnvDTE
Ensamblado:  EnvDTE (en EnvDTE.dll)

Sintaxis

'Declaración
<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

El tipo SelectedItem expone los siguientes miembros.

Propiedades

	Nombre	Descripción
	Collection	Obtiene la colección SelectedItems que contiene el objeto SelectedItem compatible.
	DTE	Obtiene el objeto de extensibilidad de nivel superior.
	Info	Infraestructura. Sólo para uso interno de Microsoft.
	InfoCount	Infraestructura. Sólo para uso interno de Microsoft.
	Name	Obtiene el nombre del objeto SelectedItem.
	Project	Obtiene el objeto Project asociado al objeto SelectedItem.
	ProjectItem	Obtiene el objeto ProjectItem asociado al objeto dado.

Arriba

Ejemplos

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

Vea también

Referencia

EnvDTE (Espacio de nombres)