TaskDialog显示中文文本，而不是en-us。

Question

我们最近更新了一个内部工具，以使用供应商的在线工具，而不是我们以前在家酿造的功能。此更新中的一项任务是，当用户单击用于操作的按钮时，将其重定向到网站。

我想在消息框中嵌入一个超级链接，因为输入一个URL是非常1994年的，但是MsgBox无法做到这一点。有人告诉我TaskDialog有，但它显示的是一堆汉字，而不是我输入的文本。

我不会说中文，我也不知道我已经安装了语言。无论如何，这个对话框需要显示我输入的英文文本。

请帮帮忙。

下面是我所期望的(粗略的)：

​

我得到的是：

​

下面是我用来生成上述代码的代码：

Public Class Form1
    '[DllImport("comctl32.dll", CharSet = CharSet.Unicode,  EntryPoint="TaskDialog")]
    'Static extern int TaskDialog(IntPtr hWndParent, IntPtr hInstance, String pszWindowTitle,
    'String pszMainInstruction, String pszContent, int dwCommonButtons, IntPtr pszIcon, out int pnButton);
    Declare Function TaskDialog Lib "comctl32" Alias "TaskDialog" (
        hWndParent As IntPtr _
        , hInstance As IntPtr _
        , pszWindowTitle As String _
        , pszMainInstruction As String _
        , pszContent As String _
        , dwCommonButtons As Integer _
        , pszIcon As IntPtr _
        , ByRef pnButton As Integer) _
        As Integer

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim b As Integer = 0
        Dim r As Integer = -3

        MsgBox("Use x to process accounts" & vbCrLf &
                "Please visit http://x.u.org:8080/.")
        r = TaskDialog(Me.Handle, IntPtr.Zero,
                       "Account Processing through x",
                       "Use x to process accounts",
                       "Please visit <a href='http://x.u.org:8080/'>http://x.u.org:8080/</a>.",
                       1, UInt16.MaxValue, b)

        MsgBox(String.Format("b:|{0}|; r:|{1}|", b, r))

    End Sub
End Class

最后一个调试框显示“b:可比1倍；r:0倍”。

Answer 1

我认为问题在于，您已经将本机.NET DllImport声明转换为VB6时代的过时Declare Function声明。通常情况下，只要参数是正确的，这是很好的，但是DllImport声明更倾向于与.NET平台调用完全兼容。

在这种情况下，TaskDialog函数需要Unicode (UTF-16)字符串(这是由W In PCWSTR表示的，它代表Wide和Wide Char)。Declare Function语句没有指定要使用的字符集的方法，因此它很可能默认为ANSI --一个字节字符集。

TaskDialog函数希望每一个字符都是两个字节()长，但是它接收到的字符串每个字符只使用一个字节，因此函数将每个其他字符解释为前一个字符的一部分。这导致了一个相当高的字符代码，恰好映射到UTF-16字符表中的汉字。

如果您查看对话框的蓝色标题，可以看到它显示的字符仅为实际字符串的一半(“使用x处理帐户”)。

这方面的解决方案也是在VB.NET中使用VB.NET声明，允许您指定CharSet.Unicode。

<DllImport("comctl32.dll", CharSet := CharSet.Unicode)> _
Public Shared Function TaskDialog( _
    hWndParent As IntPtr _
    , hInstance As IntPtr _
    , pszWindowTitle As String _
    , pszMainInstruction As String _
    , pszContent As String _
    , dwCommonButtons As Integer _
    , pszIcon As IntPtr _
    , ByRef pnButton As Integer) _
    As Integer
End Function