HOW TO：使用擴充性建立新 Windows 應用程式

發行項
08/12/2011

若要建立新的專案並將其加入至目前的方案，可以透過一般擴充性 DTE.Solution 物件的 AddFromTemplate 方法來完成。這項工作假設您已經知道如何存取巨集整合式開發環境 (IDE) 和建立巨集專案。如需詳細資訊，請參閱使用巨集自動執行重複的動作。

下列步驟會建立 Visual Basic 專案。若要建立 Visual C# 專案，請使用步驟 4 中的 "CSharp" 字串。

注意事項
根據您目前使用的設定或版本，您所看到的對話方塊與功能表指令可能會與 [說明] 中描述的不同。使用 [一般開發設定] 開發了這些程序。若要變更設定，請從 [工具] 功能表中選取 [匯入和匯出設定]。如需詳細資訊，請參閱使用設定。

若要將新專案加入至方案

建立一個新的巨集模組並將它命名為 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 10\Common7\IDE\ProjectTemplates\Language。

您也可以建立自訂的專案範本和自訂的專案項目範本。若要指定用來儲存範本的目錄，請按一下 [工具] 功能表上的 [選項]，然後在 [選項] 對話方塊的左窗格中，按一下 [專案和方案]，在 [Visual Studio 使用者專案範本位置] 和 [Visual Studio 使用者項目範本位置] 方塊中輸入範本的路徑。或者，您也可以接受預設位置。

自訂範本必須具有獨特的檔案名稱，不能與下列位置定義的檔案名稱相互衝突：

<drive>:\Program Files\Microsoft Visual Studio 10\Common7\IDE\ProjectTemplates\Language

和

<drive>:\Program Files\Microsoft Visual Studio 10\Common7\IDE\ItemTemplates\Language.

請確定要使用長檔名 (不能使用 8dot3)。如需詳細資訊，請參閱建立專案範本和項目範本。

使用 GetProjectTemplate 方法找到專案範本。範本路徑是根據語言而定，因此，若要擷取 Visual Basic 範本，請使用 "Visual Basic" 字串 (如下列程式碼所示)；如果是 Visual C# 範本，請使用 "CSharp" 字串。
```
        Dim vbTemplatePath As String
        Dim vbProjectPath As String
        vbProjectPath = "C:\UserFiles\MyFiles\MyProject"
        vbTemplatePath = soln.GetProjectTemplate( _
          "WindowsApplication.zip", "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 _
       ("WindowsApplication.zip", "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"。

請參閱

工作

HOW TO：移轉使用範本建立專案的程式碼

HOW TO：以程式設計方式建立專案

HOW TO：以程式設計方式建立專案項目

其他資源

控制方案及其專案

建立專案範本和項目範本

共用方式為

HOW TO：使用擴充性建立新 Windows 應用程式

若要將新專案加入至方案

請參閱

工作

其他資源

其他資源