分享一个拓展易语言标签反馈事件的源码

阿素里戈沃里嘚

我们在编写多线程程序的时候，往往要利用标签反馈事件来将多线程处理中将控制权转移到程序主线程上去执行。
每一个标签仅支持一个反馈事件，我需要很多线程操作要转移到主线程的时候，反馈事件不够用怎么办？
如果我们用其中一个参数来表示作用的话，那就只剩下一个参数可以利用了；
所以我整理了一个“拓展标签反馈事件”的类来处理，使一个标签可以支持无数个反馈事件；
与原生反馈事件的原理和效果是一样的。


拓展标签反馈事件.rar (8.48 KB, 下载次数: 34)

昨天 19:52 上传

点击文件名下载附件
下载积分: 精币 -2 枚

阿素里戈沃里嘚

heiioxiaojian 发表于 2026-2-9 23:45
列子里面，集_标签.销毁 ()一直都是返回假

改一下就好了。。。。

  

子程序名	返回值类型	公开	备 注
销毁	逻辑型		销毁掉所有已注册的反馈事件，并回复到未初始的状态，成功返回真，失败返回假

变量名	类 型	静态	数组	备 注
空标签	标签

如果真 (集_是否初始化)
SetWindowLongA (集_标签.取窗口句柄 (), -4, 集_原窗口过程)  ' 销毁只需要用原窗口过程替换掉即可
集_标签 ＝ 空标签
集_最大消息值 ＝ 0
集_原窗口过程 ＝ 0
集_是否初始化 ＝ 假
清除数组 (集_子程序指针)
返回 (真)
返回 (假)

.版本 2<br /> <br /> .子程序 销毁, 逻辑型, 公开, 销毁掉所有已注册的反馈事件，并回复到未初始的状态，成功返回真，失败返回假<br /> .局部变量 空标签, 标签<br /> <br /> .如果真 (集_是否初始化)<br />     SetWindowLongA (集_标签.取窗口句柄 (), -4, 集_原窗口过程)  ' 销毁只需要用原窗口过程替换掉即可<br />     集_标签 ＝ 空标签<br />     集_最大消息值 ＝ 0<br />     集_原窗口过程 ＝ 0<br />     集_是否初始化 ＝ 假<br />     清除数组 (集_子程序指针)<br />     返回 (真)<br /> .如果真结束<br /> 返回 (假)

heiioxiaojian

列子里面，集_标签.销毁 ()一直都是返回假

heiioxiaojian

        新技能已get√

lijunfa12345

看看，，，，，，，，

lijunfa

看看吧，，，，，，，，

mning

感谢分享

jyfinn

感谢分享

kmskik

衬衫样式好看，颜色好看，质量很好，穿着漂亮，发货快，包装好。

Fate

感谢分享