SelectedItems - интерфейс
Обновлен: Ноябрь 2007
Содержит объекты SelectedItem, которые представляют выделенные проекты или элементы проекта.
Пространство имен: EnvDTE
Сборка: EnvDTE (в EnvDTE.dll)
Синтаксис
'Декларация
<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
Заметки
Коллекция SelectedItems существует всегда, даже при отсутствии элементов в проекте. Например, если активен обозреватель решений и выбран какой-либо узел проекта, то существует один объект SelectedItem. Свойство Project выделенного элемента относится к выделенному проекту и его свойство ProjectItem имеет значение Null.
Примеры
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