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 Platform Invocation完全兼容。

在这种情况下，TaskDialog函数需要Unicode（UTF-16）字符串（这由PCWSTR中的 W 表示，代表 Wide （如宽字符）。 Declare Function语句没有指定要使用的字符集的方法，因此它可能默认为ANSI-单字节字符集。

TaskDialog函数期望每个字符的长度为 2个字节，但是它接收的字符串每个字符仅使用一个字节，从而使该函数将所有其他字符解释为字符的一部分。前一个。这样会产生相当高的字符代码，恰好会映射到UTF-16字符表中的汉字。

如果您查看对话框的蓝色标题，您会发现它只显示实际字符串的一半左右的字符（“使用x处理帐户”）。

解决方案是在VB.NET中也使用DllImport声明，允许您指定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

TaskDialog显示中文文本，而不是中文

1 个答案: