【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

系统消息

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

1. Type DWord
   
2.         LoWord As Integer
   
3.         HiWord As Integer
   
4. End Type
   
5. 
   
6. Declare Function SplitDWord Lib "msvbvm60" Alias "#644"(ByVal DWord As Long) As DWord
   
7. 
   
8. Sub Test()
   
9.         Dim dw As DWord
   
10.         dw = SpliteDWord(&HA1B2C3D4)
    
11.         ?Hex$(dw.LoWord), Hex$(dw.HiWord)        ' 输出：C3D4        A1B2
    
12. End Sub
    

复制代码

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

1. Type RGBAColor
   
2.         Red As Byte
   
3.         Green As Byte
   
4.         Blue As Byte
   
5.         Alpha As Byte
   
6. End Type
   
7. 
   
8. Declare Function SplitRGBA Lib "msvbvm60" Alias "#644"(ByVal Color As ColorConstants) As RGBAColor
   

复制代码

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
障眼法可还行，这不是变成自欺欺人了吗，

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

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编码

发光鸵鸟

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

scdn2022

感谢分享

cnHopeStudio

纯粹就是API调用?
太神奇了！

W741

膜拜下大佬

逍遥爱迪生

B6】【全网首发】在经典控件上使用UN

wgwangjiang

我也学习一下！

liu496324

认真学习