VSProjectItem (Interfaz)

Contiene la información específica de un elemento de proyecto de Visual Basic o C#. Lo devuelve la propiedad Object del objeto ProjectItem cuando el proyecto es un proyecto de Visual Basic o C#.

Espacio de nombres: VSLangProj
Ensamblado: VSLangProj (en vslangproj.dll)

Sintaxis

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

Comentarios

La colección ProjectItems de un proyecto contiene los objetos ProjectItem del proyecto. La propiedad Object del objeto ProjectItem devuelve una referencia de tipo Object. El tipo real de esa referencia depende del lenguaje del proyecto. En el caso de Visual Basic y C#, ese objeto es de tipo VSProjectItem. Para utilizar los miembros de la clase VSProjectItem, la referencia de la propiedad Object debe convertirse explícitamente a VSProjectItem. En el ejemplo siguiente se muestra esta conversión mediante la función CType de Visual Basic. La enumeración PrjKind se usa para probar el tipo del proyecto antes de la conversión.

Ejemplo

Se puede determinar si se ha guardado un elemento de proyecto a partir del objeto ProjectItem. En este ejemplo se utiliza la propiedad ProjectItem del objeto VSProjectItem para informar de si se guardó un elemento o no desde su última modificación.

' 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

Vea también

Referencia

VSProjectItem (Miembros)
VSLangProj (Espacio de nombres)