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

项目
08/12/2011

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

提示

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

创建发布宏

若要打开 Macro 资源管理器，请在**“工具”菜单上指向“宏”，然后单击“Macro 资源管理器”**。
创建一个新的宏模块。在 Macro 资源管理器中选择**“MyMacros”。在“工具”菜单上指向“宏”，然后单击“新建宏模块”**。将该模块命名为 PublishSpecificCulture。
在 Macro 资源管理器中展开**“MyMacros”节点，然后通过双击“PublishAllProjects”模块打开该模块（或从“工具”菜单中指向“宏”，然后单击“宏 IDE”**）。

在“宏 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

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

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

若要创建 Visual Basic Windows 应用程序项目，请在**“文件”菜单上指向“新建”，然后单击“项目”**。
在**“新建项目”对话框中，从“Visual Basic”节点选择“Windows 应用程序”**。将该项目命名为 PublishLocales。
单击 Form1。在**“Design”下的“属性”窗口中，将“Language”属性从“(Default)”更改为“English”。将窗体的“Text”**属性更改为“MyForm”。

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

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

当出现发布网页时，关闭它。（对于此步骤，您只需发布该项目，而不必安装它。）
通过在 Visual Studio 命令提示符窗口中调用宏，再次发布 PublishLocales。若要查看命令提示符窗口，请从**“视图”菜单上指向“其他窗口”，然后单击“命令窗口”**，或按 Ctrl+Alt+A。在命令提示符窗口中键入 macros；自动完成功能将提供可用宏的列表。选择以下宏并按 Enter：

Macros.MyMacros.PublishSpecificCulture.PublishProjectFirstProjectWithEnLocale
当发布过程成功后，它将生成一则消息指出“PublishLocales\PublishLocales.vbproj 发布成功。发布语言为‘en’”。在消息框中单击**“确定”。当发布网页出现时，单击“安装”**。
查看 C:\Inetpub\wwwroot\PublishLocales\en。除了已本地化的资源 DLL 外，您还应该看到已安装的文件，例如，清单、setup.exe 和发布网页文件。（默认情况下，ClickOnce 会为 EXE 和 DLL 追加 .deploy 扩展名；完成部署后，可以移除此扩展名。）

请参见

Share via

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

创建发布宏

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

请参见

任务

参考

概念

其他资源

其他资源