易语言多线程传递自定义数据(免加延时方法)

易语言多线程传递自定义数据(免加延时方法)

.版本 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.逻辑型开关)
    .判断循环尾 ()
.计次循环尾 ()