易语言多线程源码例程程序调用API函数实现线程的创建,挂起,恢复,销毁等功能。
易语言例程源码属于易语言进阶教程。
点评:易语言多线程源码是易语言API应用例程。
.版本 2
.程序集 窗口程序集1
.程序集变量 线程ID1, 整数型
.程序集变量 线程ID2, 整数型
.程序集变量 i, 整数型
.子程序 _创建线程1_被单击
编辑框1.内容 = “”
线程ID1 = 创建线程 (0, 0, &线程1, 0, 0, 线程ID1)
信息框 (“创建了第一个线程”, 1, )
.子程序 线程1
i = i + 1
编辑框1.加入文本 (到文本 (i) + “多线程演示中” + #换行符)
延时 (10)
线程1 ()
.子程序 线程2
编辑框2.加入文本 (“同时进行中” + #换行符)
延时 (10)
线程2 ()
.子程序 _挂起线程1_被单击
挂起线程 (线程ID1)
信息框 (“线程1被挂起啦!”, 1, )
.子程序 _创建线程2_被单击
编辑框2.内容 = “”
线程ID2 = 创建线程 (0, 0, &线程2, 0, 0, 线程ID2)
信息框 (“创建了第二个线程”, 1, )
.子程序 _挂起线程2_被单击
挂起线程 (线程ID2)
信息框 (“线程2被挂起啦!”, 1, )
.子程序 _销毁线程1_被单击
销毁线程 (线程ID1, 0)
信息框 (“第一个线程被销毁啦”, 1, )
.子程序 _恢复线程1_被单击
恢复线程 (线程ID1)
信息框 (“线程1又恢复啦!”, 1, )
.子程序 _销毁线程2_被单击
销毁线程 (线程ID2, 0)
信息框 (“第二个线程被销毁啦”, 1, )
.子程序 _恢复线程2_被单击
恢复线程 (线程ID2)
信息框 (“线程2又恢复啦!”, 1, )
.子程序 __启动窗口_创建完毕