【VB6】【自定义内置控件】UnicodeTextBox.ctl

Golden Blonde · 发表于 2022-6-1 03:42:36

欢迎访问技术宅的结界，请注册或者登录吧。

您需要登录才可以下载或查看，没有账号？立即注册→加入我们

×

这是一个“内置控件”，无需携带OCX或DLL。只需把这个文件加入到你的VB工程里，即可像使用普通TextBox一样使用这个支持UNICODE的TextBox。它支持的属性仅有几个（Flat、Text、MultiLine），也不支持任何事件。但是提供了句柄，你可以通过子类化来实现截获事件。
+.png

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

系统消息 · 发表于 2022-6-1 12:37:44

本帖最后由系统消息于 2022-6-1 12:43 编辑

怎么感觉不对劲呢？我记得好像是 UserControl_Initialize 里面不能使用 UserControl.hWnd 吧，比较这是这对象创建的时候执行的，这个时候控件都没创建。需要在 InitProperties 和 ReadProperties 这俩事件里面进行。

系统消息 · 发表于 2022-6-3 10:16:53

系统消息发表于 2022-6-1 12:37
怎么感觉不对劲呢？我记得好像是 UserControl_Initialize 里面不能使用 UserControl.hWnd 吧，比较这是这对 ...

我去试了一下，没想到居然可以用，看来是我记错了，只有 Print、Ambient 和 Extender 才是不能在 UserControl_Initialize 中使用，hWnd 是可以使用的。
最神奇的是，在你使用了 hWnd 之后，Print 就开始可以用了（原理和Form类似，隐式自动Load），但 Ambient 和 Extender 还是不能用（只有等控件与调用者把父容器连接上了才可以，这种情况要在 UserControl_InitProperties 和 UserControl_ReadProperties 里面才可以）。

0xAA55 · 发表于 2022-6-3 13:04:30

你这个竟然不支持事件！

VB6 里面声明事件的方法是在用户控件的开头（第一个过程或函数的前面）使用这样的语句：

Public Event 事件名(参数列表)

复制代码

然后在应当触发事件的地方使用以下代码来触发事件：

RaiseEvent 事件名(参数列表)

复制代码

举例：

该代码将 PictureBox 制作的“picItemList”的 Click 和 DblClick 事件包装为本控件自己的点击事件、双击事件。

类似的，KeyDown、KeyUp、MouseDown、MouseUp、MouseMove 等事件也可以像这样封装。

xiawan · 发表于 2022-6-7 10:16:00

珍惜生命，果断回帖。

W741 · 发表于 2022-8-11 11:40:17

为什么不支持事件呢

dsm · 发表于 2022-10-31 22:47:53

学习一下

二十六 · 发表于 2022-11-4 11:31:14

学习一下

scdn2022 · 发表于 2023-4-7 23:56:02

XX

cnHopeStudio · 发表于 2023-4-9 16:11:06

感谢分享！
终于不用为Unicode发愁了！

444742627 · 发表于 2023-7-18 21:14:28

谢谢

antclt · 发表于 2023-8-4 14:51:29

看看这个text控件怎么样

get43639 · 发表于 2023-8-19 15:43:47

來學習這個物件怎樣使用。

QZhi · 发表于 2024-3-16 21:22:52

感谢分享，回复学习！

studyczb · 发表于 2024-5-27 08:21:13

感谢分享，学习学习

xykicxyzg · 发表于 2025-8-13 06:38:22

学习

wonder · 发表于 2025-8-18 08:56:09

學習

xxdoc · 发表于 2025-9-6 09:45:49

真心有用。难得有人研究一下

imperialeast · 发表于 2025-10-18 13:27:03

xuexi

imperialeast · 发表于 2025-10-19 19:10:43

能不能发一个listbox的？

账号		自动登录	找回密码
密码			立即注册→加入我们

【VB6】【自定义内置控件】UnicodeTextBox.ctl

欢迎访问技术宅的结界，请注册或者登录吧。

本帖被以下淘专辑推荐:

点评