类模块中TextBox 没有Exit事件 怎么弄

micch

最近做动态窗体也遇到类似的问题了，翻出来温习一下，感谢帖主分享

caiyu93

没必要写那么多,GetForegroundWindow 函数了解一下

micch

caiyu93 发表于 2023-10-3 15:42
没必要写那么多,GetForegroundWindow 函数了解一下

获取句柄？？

能获取激活的控件？

caiyu93

micch 发表于 2023-10-3 16:23
获取句柄？？

能获取激活的控件？

突然忘记了,vba那蛋疼的控件没句柄.

倒是有一个方法可以解决在类里面使用exit事件

在常规sheet类里的textbox_exit事件里面给指定类传递一个exit 事件即可

micch

caiyu93 发表于 2023-10-3 16:36
突然忘记了,vba那蛋疼的控件没句柄.

倒是有一个方法可以解决在类里面使用exit事件

使用场景：

在一个窗体里，用代码动态生成多个控件，给其中某个控件设置enter事件。

本身就用到两个类，一个是窗体，一个是自定义的类，如果再用到sheet类，就越来越复杂了

暂时就用mouse up事件代替吧

caiyu93

micch 发表于 2023-10-3 19:28
使用场景：

在一个窗体里，用代码动态生成多个控件，给其中某个控件设置enter事件。

离开事件模拟.rar (15.09 KB, 下载次数: 5)

2023-10-4 20:28 上传

点击文件名下载附件

caiyu93

micch 发表于 2023-10-3 19:28
使用场景：

在一个窗体里，用代码动态生成多个控件，给其中某个控件设置enter事件。

也没什么难度,在其他控件单击事件也是一个解决之法不过比较麻烦

caiyu93

micch 发表于 2023-10-3 19:28
使用场景：

在一个窗体里，用代码动态生成多个控件，给其中某个控件设置enter事件。

完美解决,离开事件的问题

micch

caiyu93 发表于 2023-10-4 19:22
也没什么难度,在其他控件单击事件也是一个解决之法不过比较麻烦

目前我在半人工添加控件，半动态添加控件的情况下进行测试，回头下一步尝试纯动态生成全部控件，并且不同控件添加不同的事件，目的是练习做一个通用的窗体。


我设想的使用场景再详细描述一下：：：
窗体里有一个控件multipage，具体有多少页和工作表数量对应一致，然后每一页有多少个控件，和对应工作表的标题字段数量对应一致。

因为文件是不固定的，所以page数量随文件的工作表数量动态添加，每一页里根据工作表字段数量，标签label动态添加，标签对应的组合框或者文本框也是动态添加的。
所以总共有多少个combobox还是textbox是不固定的，肯定没法一个控件一个控件单独声明事件（如果在窗体里声明一大堆withevents控件名称，那都不需要类模块了）

用类来实现各个标签的事件。比如，label和标题字段对应，假设标题字段是包含日期的字段，则在label对应的textbox在enter事件中，自动激活日历窗体，实现选择输入日期。
还是那个问题（因为工作表数量不固定，标题数量不固定，有多少个包含日期的字段是未知的），所以动态添加的控件（有的是combobox，有的是textbox）对应哪个控件是不固定的，而这些个日期对应的控件，需要enter事件调用打开日历窗体。

（Plus：除了举例的日期控件，还会有固定列表控件，用了combobox可以在enter的时候自动获取list信息，另外也会给一部分的label添加click事件，还有通用的button也需要添加事件。想的有点多做到现在有点后悔了，完全动态生成窗体内的所有控件，有点刻意给自己增加难度了，想放弃完全通用了）

micch

micch 发表于 2023-10-4 21:36
目前我在半人工添加控件，半动态添加控件的情况下进行测试，回头下一步尝试纯动态生成全部控件，并且不同 ...

https://club.excelhome.net/forum ... 47&pid=11343382

在这个帖子的基础上想到的。
可以做一个通用的窗体，对应不同文件也照样可以使用窗体进行数据的增改删查。
甚至还可以考虑窗体都用代码生成，并且生成的窗体里面各个控件都自带需要的事件。（目前来说，窗体都动态生成并且控件带事件还没进行实测，只是在人工插入窗体的基础上，进行全代码生成控件测试）