SelectedItem – rozhraní

Článek
10/27/2012

Představuje vybraný projekt nebo projekt položky v Visual Studio integrované vývojové prostředí (IDE).

Obor názvů: EnvDTE
Sestavení: EnvDTE (v EnvDTE.dll)

Syntaxe

'Deklarace
<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

Typ SelectedItem zveřejňuje následující členy.

Vlastnosti

	Název	Popis
	Collection	Získává SelectedItems obsahující kolekci SelectedItem podporující tento objekt.
	DTE	Načtení objektu nejvyšší úrovně rozšiřitelnosti.
	Info	Infrastruktura. Microsoft pouze pro interní použití.
	InfoCount	Infrastruktura. Microsoft pouze pro interní použití.
	Name	Získá název SelectedItem objektu.
	Project	Získává Project přidružené k objektu SelectedItem objektu.
	ProjectItem	Získává ProjectItem objekt přidružený k danému objektu.

Nahoru

Příklady

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

Viz také

Referenční dokumentace

EnvDTE – obor názvů

Sdílet prostřednictvím