易语言同一个程序中执行两次线程的方法
直接看代码.版本 2
.支持库 EThread
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
启动线程 (&子程序1, , )' //易语言里面同一个程序只能启动一个线程，个人经验发现，如果调用多次启动线程就会乱套的
.子程序 子程序1
.局部变量 i, 整数型
.局部变量 计次, 整数型, , , 比如你要求这个子程序执行两次，那么就这个设置2
计次 ＝ 1
.判断循环首 (真)
i ＝ i ＋ 1
调试输出 (i)
.如果 (i ＝ 100)' //判断如果已经执行完一万次，则计次+1
计次 ＝ 计次 ＋ 1
i ＝ 0
.否则
.如果结束
.如果 (计次 ＝ 3)' //判断 计次如果等于3 就说明这个循环已经执行了2次，那么就跳出循环，线程自动结束
调试输出 (“累计执行线程：” ＋ 到文本 (计次 － 1) ＋ “次”)
跳出循环 ()
.否则
.如果结束
延时 (30)
.判断循环尾 ()
运行截图
页:
[1]