Interfaccia VSProjectItem

Articolo
08/22/2007

Contiene le informazioni specifiche a un elemento di progetto Visual Basic o C#. Se il progetto è un progetto Visual Basic o C#, viene restituito dalla proprietà Object dell'oggetto ProjectItem.

Spazio dei nomi: VSLangProj
Assembly: VSLangProj (in vslangproj.dll)

Sintassi

'Dichiarazione
<GuidAttribute("89FF44C6-979D-49B6-AF56-EC9509001DE4")> _
Public Interface VSProjectItem
'Utilizzo
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

Note

L'insieme ProjectItems di un progetto contiene gli oggetti ProjectItem del progetto. La proprietà Object dell'oggetto ProjectItem restituisce un riferimento Object. Il tipo effettivo di tale riferimento dipende dal linguaggio del progetto. Nel caso di Visual Basic e C#, l'oggetto è un oggetto VSProjectItem. Per utilizzare i membri della classe VSProjectItem, il riferimento alla proprietà Object deve essere convertito esplicitamente in VSProjectItem. L'esempio seguente dimostra tale conversione tramite la funzione CType di Visual Basic. L'enumerazione PrjKind viene utilizzata per eseguire il test del tipo di progetto prima della conversione.

Esempio

Dall'oggetto ProjectItem si può determinare se un dato elemento di progetto è stato salvato. Questo esempio utilizza la ProjectItem dell'oggetto VSProjectItem per segnalare se un elemento è stato salvato dall'ultima modifica.

' 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

Vedere anche

Riferimenti

Membri VSProjectItem
Spazio dei nomi VSLangProj

Condividi tramite