如何：发布具有特定区域设置的项目

更新：2007 年 11 月

一个应用程序包含多个具有不同区域设置的组件的现象并不少见。在本方案中，您将创建一个包含若干个项目的解决方案，然后为每个区域设置发布不同的项目。本过程演示如何使用宏，用“en”区域设置发布解决方案中第一个项目。如果希望使用“en”之外的其他区域设置来尝试此过程，请务必将宏中的 localeString 设置为与所用区域设置（例如，“de”或“de-DE”）相匹配的值。

说明：
在使用此宏时，“发布位置”应当是一个有效的 URL 或通用命名约定 (UNC) 共享。此外，还必须在您的计算机上安装 Internet 信息服务 (IIS)。若要安装 IIS，请在“开始”菜单上单击“控制面板”。双击“添加或删除程序”。在“添加或删除程序”中单击“添加/删除 Windows 组件”。在“Windows 组件向导”中，从“组件”列表中选中“Internet 信息服务(IIS)”复选框。然后单击“完成”以关闭向导。

创建发布宏

1. 若要打开宏资源管理器，请在“工具”菜单上指向“宏”，然后单击“宏资源管理器”。

2. 创建一个新的宏模块。在宏资源管理器中选择“MyMacros”。在“工具”菜单上指向“宏”，然后单击“新建宏模块”。将该模块命名为 PublishSpecificCulture。

3. 在宏资源管理器中展开“MyMacros”节点，然后通过双击“PublishAllProjects”模块打开该模块（或从“工具”菜单中指向“宏”，然后单击“宏 IDE”）。

4. 在“宏 IDE”中，将以下代码添加到该模块中 Import 语句的后面：

   Module PublishSpecificCulture
       Sub PublishProjectFirstProjectWithEnLocale()
           ' Note: You should publish projects by using the IDE at least once
           ' before you use this macro. Items such as the certficate and the 
           ' security zone must be set.
           Dim localeString As String = "en"
   
           ' Get first project.
           Dim proj As Project = DTE.Solution.Projects.Item(1)
           Dim publishProperties As Object = proj.Properties.Item("Publish").Value
   
           ' GenerateManifests and SignManifests must always be set to
           ' True for publishing to work. 
           proj.Properties.Item("GenerateManifests").Value = True
           proj.Properties.Item("SignManifests").Value = True
   
           'Set the publish language.
           'This will set the deployment language and pick up all 
           ' en resource dlls:
           Dim originalTargetCulture As String = _
               publishProperties.Item("TargetCulture").Value
           publishProperties.Item("TargetCulture").Value = localeString
   
           'Append 'en' to end of publish, install, and update URLs if needed:
           Dim originalPublishUrl As String = _
               publishProperties.Item("PublishUrl").Value
           Dim originalInstallUrl As String = _
               publishProperties.Item("InstallUrl").Value
           Dim originalUpdateUrl As String = _
               publishProperties.Item("UpdateUrl").Value
           publishProperties.Item("PublishUrl").Value = _
               AppendStringToUrl(localeString, New Uri(originalPublishUrl))
           If originalInstallUrl <> String.Empty Then
               publishProperties.Item("InstallUrl").Value = _
                   AppendStringToUrl(localeString, New Uri(originalInstallUrl))
           End If
           If originalUpdateUrl <> String.Empty Then
               publishProperties.Item("UpdateUrl").Value = _
                   AppendStringToUrl(localeString, New Uri(originalUpdateUrl))
           End If
           proj.Save()
   
           Dim slnbld2 As SolutionBuild2 = _
               CType(DTE.Solution.SolutionBuild, SolutionBuild2)
           slnbld2.Clean(True)
   
           slnbld2.BuildProject( _
           proj.ConfigurationManager.ActiveConfiguration.ConfigurationName, _
           proj.UniqueName, True)
   
           ' Only publish if build is successful.
           If slnbld2.LastBuildInfo <> 0 Then
               MsgBox("Build failed for " & proj.UniqueName)
           Else
               slnbld2.PublishProject( _
               proj.ConfigurationManager.ActiveConfiguration.ConfigurationName, _
               proj.UniqueName, True)
               If slnbld2.LastPublishInfo = 0 Then
                   MsgBox("Publish succeeded for " & proj.UniqueName _
                   & vbCrLf & "." _
                   & " Publish Language was '" & localeString & "'.")
               Else
                   MsgBox("Publish failed for " & proj.UniqueName)
               End If
           End If
   
           ' Return URLs and target culture to their previous state.
           publishProperties.Item("PublishUrl").Value = originalPublishUrl
           publishProperties.Item("InstallUrl").Value = originalInstallUrl
           publishProperties.Item("UpdateUrl").Value = originalUpdateUrl
           publishProperties.Item("TargetCulture").Value = originalTargetCulture
           proj.Save()
       End Sub
   
       Private Function AppendStringToUrl(ByVal str As String, _
       ByVal baseUri As Uri) As String
           Dim returnValue As String = baseUri.OriginalString
           If baseUri.IsFile OrElse baseUri.IsUnc Then
               returnValue = IO.Path.Combine(baseUri.OriginalString, str)
           Else
               If Not baseUri.ToString.EndsWith("/") Then
                   returnValue = baseUri.OriginalString & "/" & str
               Else
                   returnValue = baseUri.OriginalString & str
               End If
           End If
           Return returnValue
       End Function
   End Module
   

5. 关闭“宏 IDE”。焦点将返回到 Visual Studio。

发布针对特定区域设置的项目

1. 若要创建 Visual Basic Windows 应用程序项目，请在“文件”菜单上指向“新建”，然后单击“项目”。

2. 在“新建项目”对话框中，从“Visual Basic”节点选择“Windows 应用程序”。将该项目命名为 PublishLocales。

3. 单击 Form1。在“Design”下的“属性”窗口中，将“Language”属性从“(Default)”更改为“English”。将窗体的“Text”属性更改为“MyForm”。

   请注意，只在需要时才会创建本地化的资源 DLL。例如，在指定了新的区域设置后，如果更改窗体的文本或它的某个控件，便会创建本地化的资源 DLL。

4. 使用 Visual Studio IDE 发布 PublishLocales。

   在“解决方案资源管理器”中选择 PublishLocales。在“项目”菜单上选择“属性”。在“项目设计器”中的“发布”页上指定发布位置“https://localhost/PublishLocales”，然后单击“立即发布”。

   当出现发布网页时，关闭它。（对于此步骤，您只需发布该项目，而不必安装它。）

5. 通过在 Visual Studio 命令提示符窗口中调用宏，再次发布 PublishLocales。若要查看命令提示符窗口，请从“视图”菜单上指向“其他窗口”，然后单击“命令窗口”，或按 Ctrl+Alt+A。在命令提示符窗口中键入 macros；自动完成功能将提供可用宏的列表。选择以下宏并按 Enter：

   Macros.MyMacros.PublishSpecificCulture.PublishProjectFirstProjectWithEnLocale

6. 当发布过程成功后，它将生成一则消息指出“PublishLocales\PublishLocales.vbproj 发布成功。发布语言为‘en’”。在消息框中单击“确定”。当发布网页出现时，单击“安装”。

7. 查看 C:\Inetpub\wwwroot\PublishLocales\en。除了已本地化的资源 DLL 外，您还应该看到已安装的文件，例如，清单、setup.exe 和发布网页文件。（默认情况下，ClickOnce 会为 EXE 和 DLL 追加 .deploy 扩展名；完成部署后，可以移除此扩展名。）

请参见

任务

如何：编辑宏和以编程方式创建宏

如何：发布一个解决方案中的多个项目

参考

宏资源管理器窗口

其他资源

发布 ClickOnce 应用程序

宏开发环境