SelectedItems インターフェイス

更新 : 2007 年 11 月

選択したプロジェクトまたはプロジェクト項目を表す 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 オブジェクトが 1 つ存在します。選択した項目の 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

参照

参照

SelectedItems メンバ

EnvDTE 名前空間