刚来没权限，发个多线程初级教程吧，大神莫喷

企邦科技

在此附上一个简单的多线程演示，

要点：
1.线程中操作窗口组件、全局变量、程序集变量时，加上许可证，可以保障资源不冲突

2.如何保持稳定的工作线程数

3.尽量避免，不用延迟命令



注：本源码仅使用系统核心支持库及[color=rgb(68, 68, 68) !important]易语言自带的多线程支持库，仅供学习使用，鉴于程序长时间运行，内存得不到释放这个问题，在此并没有得到解决，故此法并不适用于所有软件，请酌情使用。（反正我自己很少用）

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

bool ＝ 真  ' 控制开关
计次循环首 (到整数 (编辑框1.内容), )  ' 创建线程的数量
启动线程 (&投递线程, , )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
投递线程

判断循环首 (bool ≠ 假)  ' 用判断循环来保持工作线程数
Get_Index ()
判断循环尾 ()

子程序名	返回值类型	公开	备 注
Get_Index

变量名	类 型	静态	数组	备 注
i	整数型

进入许可区 (Per)  ' 线程中操作组件或者全局变量以及程序集变量，尽量加上许可证
index ＝ 超级列表框1.插入表项 (, , , , , )
退出许可区 (Per)
i ＝ index
进入许可区 (Per)
超级列表框1.置标题 (i, 0, 到文本 (i ＋ 1))  ' 序号
超级列表框1.置标题 (i, 1, 到文本 (i))  ' 索引
超级列表框1.保证显示 (i)
如果真 (超级列表框1.取�硐钍� () ＞ 10000)
超级列表框1.全部删除 ()
退出许可区 (Per)
返回 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

Per ＝ 创建进入许可证 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

bool ＝ 假

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> bool ＝ 真  ' 控制开关<br /> .计次循环首 (到整数 (编辑框1.内容), )  ' 创建线程的数量<br />     启动线程 (&投递线程, , )<br /> .计次循环尾 ()<br /> <br /> .子程序 投递线程<br /> <br /> .判断循环首 (bool ≠ 假)  ' 用判断循环来保持工作线程数<br />     Get_Index ()<br /> .判断循环尾 ()<br /> <br /> .子程序 Get_Index<br /> .局部变量 i, 整数型<br /> <br /> 进入许可区 (Per)  ' 线程中操作组件或者全局变量以及程序集变量，尽量加上许可证<br /> index ＝ 超级列表框1.插入表项 (, , , , , )<br /> 退出许可区 (Per)<br /> i ＝ index<br /> 进入许可区 (Per)<br /> 超级列表框1.置标题 (i, 0, 到文本 (i ＋ 1))  ' 序号<br /> 超级列表框1.置标题 (i, 1, 到文本 (i))  ' 索引<br /> 超级列表框1.保证显示 (i)<br /> .如果真 (超级列表框1.取表项数 () ＞ 10000)<br />     超级列表框1.全部删除 ()<br /> .如果真结束<br /> 退出许可区 (Per)<br /> 返回 ()<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> Per ＝ 创建进入许可证 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> bool ＝ 假

联系我时，请说是在 挂海论坛 上看到的，谢谢！

HKMaxwell

联系我时，请说是在  海论坛 上看到的，谢谢！

小冷MC

功能很强大 很喜欢

米酒白酒葡萄酒

感谢分享~期待更多的分享~

语过留唇

这个要支持。顶一个

那片星空那片海

联系我时，请说是在 挂海论坛 上看到的，谢谢！

wangguifeng

回复看隐藏~

xiaolv0396

联系我时，请说是在  海论坛 上看到的，谢谢！