SelectedItem, interface

Article
08/10/2011

Représente le ou les projets sélectionnés ou le ou les éléments de projet dans l'environnement de développement intégré Visual Studio (IDE).

Espace de noms : EnvDTE
Assembly : EnvDTE (dans EnvDTE.dll)

Syntaxe

'Déclaration
<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

Le type SelectedItem expose les membres suivants.

Propriétés

	Nom	Description
	Collection	Obtient la collection SelectedItems contenant l'objet SelectedItem qui la prend en charge.
	DTE	Obtient l'objet d'extensibilité de niveau supérieur.
	Info	Infrastructure. Réservé à un usage interne Microsoft.
	InfoCount	Infrastructure. Réservé à un usage interne Microsoft.
	Name	Obtient le nom de l'objet SelectedItem.
	Project	Obtient l'objet Project associé à l'objet SelectedItem.
	ProjectItem	Obtient l'objet ProjectItem associé à l'objet donné.

Début

Exemples

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

Voir aussi

Référence

EnvDTE, espace de noms

Partager via