SelectedItem Arabirim

Makale
05/18/2015

Seçili projeler Project'te veya proje öğeleri de temsil eden Visual Studio tümleşik geliştirme ortamı (IDE).

Ad alanı: EnvDTE
Derleme: EnvDTE (EnvDTE.dll içinde)

Sözdizimi

'Bildirim
<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 türü aşağıdaki üyeleri ortaya koyar.

Özellikler

	Ad	Açıklama
	Collection	Alır SelectedItems koleksiyonu içeren SelectedItem bunu destekleyen nesne.
	DTE	Üst düzey bir geniþletilebilirlik nesnesi alır.
	Info	Altyapı. Microsoft yalnızca iç kullanım.
	InfoCount	Altyapı. Microsoft yalnızca iç kullanım.
	Name	Adını alır SelectedItem nesne.
	Project	Alır Project nesnesi ile ilişkili SelectedItem nesne.
	ProjectItem	Alır ProjectItem belirli bir nesneyle ilişkili nesne.

Üst

Örnekler

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

Ayrıca bkz.

Başvuru

EnvDTE Ad Alanı

Aracılığıyla paylaş