SelectedItems 接口

包含 SelectedItem 对象，它们表示所选项目或项目项。

命名空间：  EnvDTE
程序集：  EnvDTE（在 EnvDTE.dll 中）

语法

声明
<GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")> _
Public Interface SelectedItems _
    Inherits IEnumerable

[GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")]
public interface SelectedItems : IEnumerable

[GuidAttribute(L"6CAA67CF-43AE-4184-AAAB-0200DDF6B240")]
public interface class SelectedItems : IEnumerable

[<GuidAttribute("6CAA67CF-43AE-4184-AAAB-0200DDF6B240")>]
type SelectedItems =  
    interface
        interface IEnumerable
    end

public interface SelectedItems extends IEnumerable

SelectedItems 类型公开以下成员。

属性

	名称	说明
	Count	获取指示 SelectedItems 集合中的对象数的值。
	DTE	获取顶级扩展性对象。
	MultiSelect	获取指示当前选定内容是否包含多个项的值。
	Parent	获取 SelectedItems 集合的直接父对象。
	SelectionContainer	获取表示承载所选项的设计器的 SelectionContainer 对象。

页首

方法

	名称	说明
	GetEnumerator()	返回一个循环访问集合的枚举数。 （继承自 IEnumerable。）
	GetEnumerator()	获取集合中项的枚举。
	Item	返回 SelectedItems 集合中的一个 SelectedItem 对象。

页首

备注

即使没有项目项，也总是有一个 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

请参见

参考

EnvDTE 命名空间