VSProject-Schnittstelle
Enthält die projektspezifischen Daten eines Visual Basic- oder C#-Projekts. Bei Visual Basic-, Visual C#- oder Visual J#-Projekten werden sie vom Object-Objekt zurückgegeben.
Namespace: VSLangProj
Assembly: VSLangProj (in vslangproj.dll)
Syntax
'Declaration
<GuidAttribute("2CFB826F-F6BF-480D-A546-95A0381CC411")> _
Public Interface VSProject
'Usage
Dim instance As VSProject
[GuidAttribute("2CFB826F-F6BF-480D-A546-95A0381CC411")]
public interface VSProject
[GuidAttribute(L"2CFB826F-F6BF-480D-A546-95A0381CC411")]
public interface class VSProject
/** @attribute GuidAttribute("2CFB826F-F6BF-480D-A546-95A0381CC411") */
public interface VSProject
GuidAttribute("2CFB826F-F6BF-480D-A546-95A0381CC411")
public interface VSProject
Hinweise
Project ist ein zentrales Erweiterbarkeitsobjekt, das Informationen über Projekte in allen Sprachen enthalten kann. Die Object-Eigenschaft des Project-Objekts gibt ein Objekt zurück, dessen Typ sich nach der verwendeten Projektsprache richtet. Bei Visual Basic, Visual C# und Visual J# ist dieses Objekt ein VSProject-Objekt.
Die Object-Eigenschaft gibt einen Object-Datentyp zurück. Das von der Object-Eigenschaft zurückgegebene Datenobjekt kann anschließend explizit in den Typ VSProject konvertiert werden. Im folgenden Beispiel wird die Konvertierung mithilfe der CType-Funktion gezeigt. Vor der Konvertierung wird der Projekttyp mit der PrjKind-Enumeration überprüft.
Beispiel
' Macro Editor
' This example retrieves the VSProject object if the first project
' the solution is a Visual Basic or C# project. This routine assumes
' that the solution contains at least one project.
Imports VSLangProj
Sub VSProjectExample()
Dim aProject As Project
Dim aVSProject As VSProject
aProject = DTE.Solution.Projects.Item(1)
If (aProject.Kind = PrjKind.prjKindVBProject) _
Or (aProject.Kind = PrjKind.prjKindCSharpProject) Then
aVSProject = CType(DTE.Solution.Projects.Item(1).Object, VSProject)
MsgBox(aVSProject.Project.FullName)
Else
MsgBox("The first project is not a Visual Basic or C# project.")
End If
End Sub