SelectedItem - интерфейс

Статья
11/01/2012

Представляет выделенные проекты или элементы проекта в интегрированной среде разработки Visual Studio.

Пространство имен: EnvDTE
Сборка: EnvDTE (в EnvDTE.dll)

Синтаксис

'Декларация
<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

Тип SelectedItem предоставляет следующие члены.

Свойства

	Имя	Описание
	Collection	Возвращает коллекцию SelectedItems, содержащую объект SelectedItem, поддерживающий это свойство.
	DTE	Возвращает объект расширения верхнего уровня.
	Info	Инфраструктура. Только для внутреннего использования в корпорации Майкрософт.
	InfoCount	Инфраструктура. Только для внутреннего использования в корпорации Майкрософт.
	Name	Возвращает имя объекта SelectedItem.
	Project	Возвращает объект Project, связанный с объектом SelectedItem.
	ProjectItem	Получает объект ProjectItem, связанный с данным объектом.

В начало страницы

Примеры

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

См. также

Ссылки

EnvDTE - пространство имен

Поделиться через