将“≤”字符显示为 VB6 标签答案

【问题标题】：display "≤" character into a VB6 Label将“≤”字符显示为 VB6 标签
【发布时间】：2017-02-17 23:53:44
【问题描述】：

我正在尝试将 ≤ 字符设置为 VB6 Label。

看着https://en.wikipedia.org/wiki/List_of_Unicode_characters

代码是 2264 。

Label.Text = Chr(2264) 生成错误 Label.Text = ChrW$(2264) 设置问号“？”

有谁知道如何获得这个≤ 字符

【问题讨论】：

VB6 支持 Unicode，因为字符串是 Unicode。它的形式虽然不是 Unicode，但由非 Unicode 程序的字符集控制（显然是我 have already said all that）。如果您想要的字符不是当前为非 Unicode 程序选择的字符集的一部分，VB6 将不会在表单上显示它，除非您使用支持 Unicode 的 API 调用（例如stackoverflow.com/q/13515686/11683）来绘制所有内容。
作为一种解决方法，您可以在标题中使用 &
VB6 表单不是问题，您只需在它们上使用支持 Unicode 的控件。 VB6 没有 Unicode Label 控件，但有很多作为 OCX 和 .CTL UserControl 模块漂浮在那里，您可以编译成程序。
我将使用 nabuchodonossor 的解决方案，其中 &

标签： vb6 special-characters

【解决方案1】：

Label.Text = ChrW(&H2264) ' <-- &H for Hexadecimal

2264是十六进制码，你可以看到here。

十进制是ChrW(8804)。

【讨论】：

感谢您的解释。但是，ChrW(&H2264) 和 ChrW(8804) 在标签中都显示为“=”:(
我明白了，它实际上在 (Excel) VBA 中对我有用。对于使用 Unicode 的 Vb6 应用程序，您应该遵循 @GSerg 的评论。

【解决方案2】：

stock Symbol 字体在 ansi 代码点包含该符号，因此无需识别 unicode 即可工作，作为具有 3 个自动调整大小标签的人为示例：

lbl_left.Caption = "999"

lbl_middle.Font.Name = "Symbol"
lbl_middle.Caption = ChrW$(&HA3)
lbl_middle.Left = lbl_left.Left + lbl_left.Width + Me.TextWidth(" ")

lbl_right.Caption = "1000"
lbl_right.Left = lbl_middle.Left + lbl_middle.Width + Me.TextWidth(" ")

【讨论】：

当“非 Unicode 程序的语言”为例如en-gb。当“非 Unicode 程序的语言”为例如时显示 ? ru-ru.