Interface SelectedItem

Artigo
10/26/2012

Representa os projetos selecionados ou itens de projeto na Visual Studio o ambiente de desenvolvimento integrado (IDE).

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

Sintaxe

'Declaração
<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

O tipo SelectedItem expõe os membros a seguir.

Propriedades

	Nome	Descrição
	Collection	Obtém o SelectedItems coleção contendo o SelectedItem objeto oferecer suporte a ele.
	DTE	Obtém o objeto de extensibilidade de nível superior.
	Info	Infraestrutura. Somente para uso interno da Microsoft.
	InfoCount	Infraestrutura. Somente para uso interno da Microsoft.
	Name	Obtém o nome da SelectedItem objeto.
	Project	Obtém o Project objeto associado com o SelectedItem objeto.
	ProjectItem	Obtém o ProjectItem objeto associado com o objeto fornecido.

Superior

Exemplos

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

Consulte também

Referência

Namespace EnvDTE

Partilhar via