VSProject2.CreateWebReferencesFolder, méthode

Crée le dossier Web References du projet.

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

Syntaxe

'Déclaration
Function CreateWebReferencesFolder As ProjectItem

ProjectItem CreateWebReferencesFolder()

ProjectItem^ CreateWebReferencesFolder()

abstract CreateWebReferencesFolder : unit -> ProjectItem

function CreateWebReferencesFolder() : ProjectItem

Valeur de retour

Type : ProjectItem
Objet ProjectItem.

Notes

Si le dossier Web References existe déjà, cette propriété retourne le ProjectItem du dossier existant.

Exemples

Cet exemple crée un dossier Web References. Le premier projet de la solution doit être un projet Visual Basic ou Visual C# pour que l'exemple fonctionne correctement. Pour exécuter cet exemple comme un complément, consultez Comment : compiler et exécuter les exemples de code du modèle objet Automation.

[Visual Basic]

' Add-in code.
Imports VSLangProj
Imports VSLangProj80
' This example creates a Web References folder, if it does not 
' already exist, and displays some properties of the folder.
Public Sub OnConnection(ByVal application As Object,_
 ByVal connectMode As ext_ConnectMode, ByVal addInInst As Object,_
 ByRef custom As Array) Implements IDTExtensibility2.OnConnection
    applicationObject = CType(application, DTE2)
    addInInstance = CType(addInInst, AddIn)
    WebReferencesFolderExample(applicationObject)
End Sub

Sub WebReferencesFolderExample(ByVal dte As DTE2)
    ' This example assumes that the first project in the solution is 
    ' a Visual Basic or C# project.
    Dim aVSProject As VSProject2 = _
    CType(applicationObject.Solution.Projects.Item(1).Object, _
    VSProject2)
    ' Add a new folder if it does not already exist.
    If (aVSProject.WebReferencesFolder Is Nothing) Then
        Dim webFolder As ProjectItem
        webFolder = aVSProject.CreateWebReferencesFolder()
    End If
    ' Display the name of the Web References folder.
    Dim theFolder As ProjectItem = aVSProject.WebReferencesFolder
    MsgBox("The name of the WebReferences folder is " _
    & theFolder.Name & ".")

    If (theFolder.Kind = _
        EnvDTE.Constants.vsProjectItemKindPhysicalFolder) Then
        MsgBox(theFolder.Name & " is a physical folder.")
    End If
    MsgBox("There are " & theFolder.ProjectItems.Count.ToString() & _
    " Web references.")
End Sub

[C#]

using System.Windows.Forms;
using VSLangProj;
using VSLangProj2;
using VSLangProj80;
public void OnConnection(object application, ext_ConnectMode
 connectMode, object addInInst, ref Array custom)
{
    applicationObject = (DTE2)application;
    addInInstance = (AddIn)addInInst;
    WebReferencesFolderExample((DTE2)applicationObject);
}

public void WebReferencesFolderExample(DTE2 dte)
{
    // This example assumes that the first project in the solution is 
    // a Visual Basic or C# project.
    VSProject2 aVSProject = 
((VSProject2)( applicationObject.Solution.Projects.Item(1).Object));

    // Add a new folder if it does not already exist.
    if ((aVSProject.WebReferencesFolder == null))
    {
        ProjectItem webFolder = null;
        webFolder = aVSProject.CreateWebReferencesFolder();
    }
    // Display the name of the Web References folder.
    ProjectItem theFolder = aVSProject.WebReferencesFolder;
    MessageBox.Show("The name of the WebReferences folder is "
 + theFolder.Name + ".");

    if ((theFolder.Kind == 
EnvDTE.Constants.vsProjectItemKindPhysicalFolder))
    {
        MessageBox.Show(theFolder.Name + " is a physical folder.");
    }
    MessageBox.Show("There are " + 
theFolder.ProjectItems.Count.ToString() + " Web references.");
}

Sécurité .NET Framework

• Confiance totale accordée à l'appelant immédiat. Ce membre ne peut pas être utilisé par du code d'un niveau de confiance partiel. Pour plus d'informations, voir Utilisation de bibliothèques à partir de code d'un niveau de confiance partiel.

Voir aussi

Référence

VSProject2 Interface

VSLangProj80, espace de noms