HOW TO:使用擴充性建立新 Windows 應用程式
更新:2007 年 11 月
若要建立新的專案並將其加入至目前的方案,可以透過一般擴充性 DTE.Solution 物件的 AddFromTemplate 方法來完成。這項工作假設您已經知道如何存取巨集整合式開發環境 (IDE) 和建立巨集專案。如需詳細資訊,請參閱使用巨集自動執行重複的動作。
下列步驟會建立 Visual Basic 專案。若要建立 Visual C# 專案,請在步驟 4 中使用 "CSharp" 字串。若要建立 Visual J# 專案,則請使用 "JSharp" 字串。
注意事項: |
---|
根據目前使用的設定與版本,您所看到的對話方塊與功能表命令可能會與 [說明] 中所描述的不同。使用 [一般開發設定] 開發了這些程序。若要變更設定,請從 [工具] 功能表中選擇 [匯入和匯出設定]。如需詳細資訊,請參閱 Visual Studio 設定。 |
若要將新專案加入至方案
建立一個新的巨集模組並將它命名為 NewProject。
將新的巨集 NewWindowsProject 加入至模組。
Sub NewWindowsProject() ' Add code here to create new project. End Sub
這個巨集會加入一個新的 Visual Basic Windows 應用程式。
選取主控台專案所需要的範本。如下表所示,您也可以建立數個不同的專案類型。如果要建立 Windows 應用程式,請使用 WindowsApplication.zip 範本。
範本名稱
專案類型
ClassLibrary.zip
類別庫
ConsoleApplication.zip
主控台應用程式
EmptyProject.zip
空專案
WebApplication.zip
Web 應用程式
WebControl.zip
Web 控制項
WebService.zip
Web 服務
WindowsApplication.zip
Windows 應用程式
WindowsControl.zip
Windows 控制項
WindowsService.zip
Windows 服務
使用範本的語法為 GetProjectTemplate("WindowsApplication.zip", "VisualBasic")。您也可以存取應用程式專屬的範本,例如:GetProjectTemplate("PocketPC2003-ClassLibrary.zip", "CSharp") 便會傳回 Pocket PC 2003 專案所需之 Visual C# 類別庫的範本。所有語言的專案範本都可在此處找到:<drive>\Program Files\Microsoft Visual Studio 8\Common7\IDE\ProjectTemplates\Language。
您也可以建立自訂的專案範本和自訂的專案項目範本。若要指定用來儲存範本的目錄,請按一下 [工具] 功能表上的 [選項],然後在 [選項] 對話方塊的左窗格中,按一下 [專案和方案],在 [Visual Studio 使用者專案範本位置] 和 [Visual Studio 使用者項目範本位置] 方塊中輸入範本的路徑。或者,您也可以接受預設位置。
自訂範本必須具有獨特的檔案名稱,不能與下列位置定義的檔案名稱相互衝突:
- <drive>:\Program Files\Microsoft Visual Studio 8\Common7\IDE\ProjectTemplates\Language
和
- <drive>:\Program Files\Microsoft Visual Studio 8\Common7\IDE\ItemTemplates\Language。
請確定要使用長檔名 (不能使用 8dot3)。如需詳細資訊,請參閱建立專案範本和項目範本。
使用 GetProjectTemplate 方法找到專案範本。範本路徑是根據語言而定,因此,若要擷取 Visual Basic 範本,請使用 "Visual Basic" 字串 (如下列程式碼所示);若要擷取 Visual C# 範本,請使用 "CSharp" 字串。若要擷取 Visual J# 範本,則請使用 "JSharp" 字串。
Dim vbTemplatePath As String Dim vbProjectPath As String vbProjectPath = "C:\UserFiles\MyFiles\MyProject" vbTemplatePath = soln.GetProjectTemplate("Windows _ Application", "VisualBasic")
呼叫 AddFromTemplate 方法。
' Create a new solution. ' Make sure the filepath below exists ' on your computer. soln.Create("C:\UserFiles\MyFiles\MyProject", "MySolution") ' Create a new VB console project using the template ' obtained above. soln.AddFromTemplate(vbTemplatePath, vbProjectPath, _ "VB Console Project", False)
完整的巨集顯示如下:
Sub NewWindowsProject () 'This function creates a solution and adds a Visual Basic Console 'project to it. Dim soln As Solution2 = CType(DTE.Solution, Solution2) 'Dim proj As Project Dim msg As String Dim vbTemplatePath As String Dim vbProjectPath As String vbProjectPath = "C:\UserFiles\MyFiles\MyProject" vbTemplatePath = soln.GetProjectTemplate _ ("Windows Application", "VisualBasic") ' Create a new solution. ' Make sure the filepath below exists ' on your computer. soln.Create("C:\UserFiles\MyFiles\MyProject", "MySolution") ' Create a new VB console project using the template ' obtained above. soln.AddFromTemplate(vbTemplatePath, vbProjectPath, _ "VB Windows Project", False) msg = "Created new solution: " & soln.FullName & vbCrLf msg = msg & "Created new project: " & soln.Projects.Kind() MsgBox(msg) End Sub
儲存巨集,關閉 [巨集 IDE],然後從 [巨集總管] 中執行巨集。
在 [方案總管] 中檢視新的方案 ("MySolution") 和 Windows 應用程式 ("VB Windows Project")。