【VB6】【全网首发】在经典控件上使用UNICODE的方案（第2季）

Golden Blonde

首先致谢用户【系统消息】，他的一段提示给了我很大的帮助。本贴解决了在标题栏、菜单、标签、文本框、按钮、框架、列表框、组合框、单选按钮、多选按钮上使用UNICODE的困扰，而且没有使用非自带控件，不需要开启“XP风格”，纯粹就是API调用。

---

解决方案：

游客，如果您要查看本帖隐藏内容请回复

代码：

游客，如果您要查看本帖隐藏内容请回复

使用微软控件的解决方案：https://www.0xaa55.com/thread-26612-1-1.html
各种WINDOWS控件使用范例大杂烩：https://www.0xaa55.com/thread-1421-1-3.html

0xAA55

竟然使用障眼法！假装用的是原生控件，但直接用 API 创建了控件。

不过很可能这个 Combobox 是可以找到办法像 YY菌 说的那样用 CallWindowProcW 设置 Unicode 的。

Ayala

0xAA55 发表于 2022-5-25 21:35
竟然使用障眼法！假装用的是原生控件，但直接用 API 创建了控件。

不过很可能这个 Combobox 是可以找到办 ...

combox可以直接使用ImageCombo 那玩意就是系统原生的

xiawan

非常感谢~~支持~~~

WeaponJang

障眼法可还行，这不是变成自欺欺人了吗，

0xAA55

WeaponJang 发表于 2022-5-26 10:23
障眼法可还行，这不是变成自欺欺人了吗，

这不叫自欺欺人，这叫实现功能。程序员的事能叫自欺欺人吗？

系统消息

提示一下，HIWORD和LOWORD最好不要用除法运算，这个遇到负数的时候会有一些问题的。最好的是用结构体来做拆分：

[Visual Basic] 纯文本查看 复制代码

Type DWord
        LoWord As Integer
        HiWord As Integer
End Type

Declare Function SplitDWord Lib "msvbvm60" Alias "#644"(ByVal DWord As Long) As DWord

Sub Test()
        Dim dw As DWord
        dw = SpliteDWord(&HA1B2C3D4)
        ?Hex$(dw.LoWord), Hex$(dw.HiWord)        ' 输出：C3D4        A1B2
End Sub

同理，我们也可以用此方法来拆分RGBA颜色：

[Visual Basic] 纯文本查看 复制代码

Type RGBAColor
        Red As Byte
        Green As Byte
        Blue As Byte
        Alpha As Byte
End Type

Declare Function SplitRGBA Lib "msvbvm60" Alias "#644"(ByVal Color As ColorConstants) As RGBAColor

tlwh163

认真学习

tlwh163

我觉得子类化要想个办法 不然加多少个控件 就要声明多少个 函数指针变量 有点挫
是不是这样？

陈布衣

就我不回复看不见是吗（ qaq

Golden Blonde

系统消息 发表于 2022-5-26 18:42
提示一下，HIWORD和LOWORD最好不要用除法运算，这个遇到负数的时候会有一些问题的。最好的是用结构体来做拆 ...

本意上是不想调用API，如果要调用API的话，直接用RtlMoveMemory不就行了。

1. dim words(1) as integer
   
2. RtlMoveMemory varptr(words(0)),varptr(dword),4
   
3. loword=words(0)
   
4. hiword=words(1)

复制代码

系统消息

tlwh163 发表于 2022-5-27 06:47
我觉得子类化要想个办法 不然加多少个控件 就要声明多少个 函数指针变量 有点挫
是不是这样？ ...

你的这个问题我早已解决了，我以前写过一个安全子类化组件，可以在类模块（包括窗体、用户控件等）中用WithEvents事件的方式来接收窗口消息，并且在IDE中断点调试不会崩溃。

cmd1152

正好我写爬虫需要
因为现在的网页大多数都是UTF-8编码

发光鸵鸟

第一季的我会了，看看第二季