易语言多线程传递自定义数据(免加延时方法)
.版本 2
.支持库 commobj
.支持库 spec
.支持库 EThread
.程序集 窗口程序集1
.子程序 子程序1
.参数 整数型, 整数型
.局部变量 A, 数据类型1
.局部变量 TXT, 快速文本对象
ASM_交换_变量交地址 (A, 整数型)
TXT.添加 (A.字节型, #换行符)
TXT.添加 (A.小数型, #换行符)
TXT.添加 (A.字节集, #换行符)
TXT.添加 (A.文本数组, #换行符)
TXT.添加 (A.文本型, #换行符)
TXT.添加 (A.逻辑型开关, #换行符)
TXT.添加 (“=======线程句柄:”, A.整数型)
调试输出 (TXT.取文本 (, ))
.子程序 _按钮1_被单击
.局部变量 备份, 数据类型1
.局部变量 B, 数据类型1
.局部变量 n, 整数型
备份.字节型 = 23
备份.小数型 = 1.22
备份.文本型 = “你好啊”
备份.逻辑型开关 = 真
.计次循环首 (500, n)
B = 备份
B.文本数组 = { “888”, “,”, “888” }
B.字节集 = 到字节集 (“我是第” + 到文本 (n) + “次”)
启动线程 (&子程序1, 取变量地址 (B), B.整数型)
.判断循环首 (B.逻辑型开关)
.判断循环尾 ()
.计次循环尾 ()
易语言多线程传递自定义数据类型