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 命名空間