VSProject2.CreateWebReferencesFolder Yöntem
Proje Web References klasörünü oluşturur.
Ad alanı: VSLangProj80
Derleme: VSLangProj80 (VSLangProj80.dll içinde)
Sözdizimi
'Bildirim
Function CreateWebReferencesFolder As ProjectItem
ProjectItem CreateWebReferencesFolder()
ProjectItem^ CreateWebReferencesFolder()
abstract CreateWebReferencesFolder : unit -> ProjectItem
function CreateWebReferencesFolder() : ProjectItem
Dönüş Değeri
Tür: ProjectItem
ProjectItem nesnesi
Notlar
Web References klasörü zaten varsa, daha sonra bu özellik döndürür ise ProjectItem için varolan bir klasörü.
Örnekler
Bu örnek, bir Web References klasörünü oluşturur.Çözümdeki ilk proje olmalıdır bir Visual Basic veya Visual C# düzgün çalışması örneğin proje.Bir eklenti bu örneği çalıştırmak için bkz: Nasıl yapılır: Otomasyon Nesne Modeli Kod Örnekleri Derleme ve Çalıştırma.
[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.");
}
.NET Framework Güvenliği
- Anında arayanlar için tam güven. Bu üye kısmen güvenilen kodla kullanılamaz. Daha fazla bilgi için bkz. Kısmen Güvenilen Koddan Kitaplıkları Kullanma.