|
发表于 2011-7-6 15:02:29
|
显示全部楼层
山东省烟台市
首先:先把你的易语言的菜单栏里的“工具”--“支持库配置”里的“多线程支持库2.0”勾选上。
下面是代码,
.版本 2
.支持库 EThread
.程序集 窗口程序集1
.程序集变量 线程句柄, 整数型
.程序集变量 线程句柄1, 整数型
.程序集变量 线程句柄2, 整数型
.子程序 _按钮_启动线程_被单击
启动线程 (&线程1, , 线程句柄) ‘这是启动第一个线程,由于里面增加了个计次循环,可以看出:线程1还没完成就已经运行线程2跟线程3了。。
启动线程 (&线程2, , 线程句柄1)
启动线程 (&线程3, , 线程句柄2)
.子程序 线程1
.局部变量 i, 整数型
.计次循环首 (10000000, i)
处理事件 ()
i = i + 1
.计次循环尾 ()
运行 (“notepad.exe”, 假, )
.子程序 线程2
运行 (“calc.exe”, 假, )
.子程序 线程3
运行 (“mstsc.exe”, 假, )
.子程序 _按钮_结束线程_被单击
强制结束线程 (线程句柄)
强制结束线程 (线程句柄1)
强制结束线程 (线程句柄2) |
|