Interface SelectedItems
Contém objetos de SelectedItem, que representam os projetos selecionados ou itens de projetos.
Namespace: EnvDTE
Assembly: EnvDTE (em EnvDTE. dll)
Sintaxe
<GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")> _
Public Interface SelectedItems _
Inherits 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
Comentários
Sempre há uma coleção de SelectedItems, mesmo quando não houver nenhum item de projeto.Por exemplo, se Gerenciador de Soluções tem foco e um nó de projeto estiver Selecionadodo, será existe um objeto de SelectedItem.Propriedade de Project do item selecionado refere-se ao projeto selecionado, e sua propriedade ProjectItem é Null.
Exemplos
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