VSProjectItem, interface

Article
08/21/2007

Contient les informations propres à un élément de projet Visual Basic ou C#. Cet objet est retourné par Object de l'objet ProjectItem lorsqu'il s'agit d'un projet Visual Basic ou C#.

Espace de noms: VSLangProj
Assembly : VSLangProj (dans vslangproj.dll)

Syntaxe

'Déclaration
<GuidAttribute("89FF44C6-979D-49B6-AF56-EC9509001DE4")> _
Public Interface VSProjectItem
'Utilisation
Dim instance As VSProjectItem

[GuidAttribute("89FF44C6-979D-49B6-AF56-EC9509001DE4")] 
public interface VSProjectItem

[GuidAttribute(L"89FF44C6-979D-49B6-AF56-EC9509001DE4")] 
public interface class VSProjectItem

/** @attribute GuidAttribute("89FF44C6-979D-49B6-AF56-EC9509001DE4") */ 
public interface VSProjectItem

GuidAttribute("89FF44C6-979D-49B6-AF56-EC9509001DE4") 
public interface VSProjectItem

Notes

La collection ProjectItems contient les objets ProjectItem d'un projet. La propriété Object de l'objet ProjectItem retourne une référence Object. Le type réel de cette référence est déterminé par le langage du projet. Dans le cas de Visual Basic et de C#, il s'agit d'un objet VSProjectItem. Pour pouvoir utiliser les membres de la classe VSProjectItem, la référence de la propriété Object doit être explicitement convertie en VSProjectItem. L'exemple ci-dessous montre comment cette conversion est effectuée à l'aide de la fonction Visual Basic CType. L'énumération PrjKind est utilisée pour tester le type du projet avant la conversion.

Exemple

Il est possible de déterminer à partir de l'objet ProjectItem si un élément de projet a été enregistré. Cet exemple utilise ProjectItem de l'objet VSProjectItem pour signaler si un élément a été enregistré depuis sa dernière modification.

' Macro Editor
' Reports whether the specified project item has been saved since the 
' last change.
Imports VSLangProj
Sub IsItemSaved(ByVal aVSProjectItem As VSProjectItem)
   If (aVSProjectItem.ProjectItem.Saved()) Then
      MsgBox(aVSProjectItem.ProjectItem.Name & " is saved.")
   Else
      MsgBox(aVSProjectItem.ProjectItem.Name & " is not saved.")
   End If
End Sub
    
Sub Test()
   Dim pi As VSProjectItem
   pi = CType(Dte.Solution.Projects.Item(1).ProjectItems.Item(1).Object, _
      VSProjectItem)
   IsItemSaved(pi)
End Sub

Voir aussi

Référence

Membres VSProjectItem
VSLangProj, espace de noms

Partager via