解决网友问题:多线程如何暂停正在循环的语句

xboy

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
集_总线程句柄	整数型
集_多线程句柄	整数型	0
集_随机线程数	整数型

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

子程序名	返回值类型	公开	备 注
开启多线程

变量名	类 型	静态	数组	备 注
局_计次	整数型

集_随机线程数 ＝ 取随机数 (100, 200)
计次循环首 (集_随机线程数, 局_计次)
处理事件 ()
加入成员 (集_多线程句柄, 局_计次)
集_多线程句柄 [局_计次] ＝ 线程_启动 (&在循环里暂停线程测试, 局_计次, )
超级列表框_多线程状态.插入表项 (, , , , , )
超级列表框_多线程状态.置标题 (局_计次 － 1, 0, 到文本 (局_计次))
超级列表框_多线程状态.置标题 (局_计次 － 1, 1, “运行中”)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
在循环里暂停线程测试
参数名	类 型	参考	可空	数组	备 注
参_第几条线程	整数型

变量名	类 型	静态	数组	备 注
局_计次	整数型

' 重点是下面SetThreadPriority()这句,设置线程优先级,设为后台模式,不卡UI界面,
' 设置线程优先级模式为后台处理模式,人话:先响应别的事,别的事响应完了再来处理多线程
' 调试输出 (“设置线程优先级:” ＋ 到文本 (SetThreadPriority (GetCurrentThread (), 到数值 (#THREAD_MODE_BACKGROUND_BEGIN))))
SetThreadPriority (GetCurrentThread (), 65536)
计次循环首 (10000, 局_计次)
处理事件 ()
调试输出 (“我是第” ＋ 到文本 (参_第几条线程) ＋ “条线程,现在循环第” ＋ 到文本 (局_计次) ＋ “次”)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局_计次	整数型

判断 (按钮_暂停.标题 ＝ “暂停”)
计次循环首 (取数组成员数 (集_多线程句柄), 局_计次)
线程_挂起 (集_多线程句柄 [局_计次])
超级列表框_多线程状态.置标题 (局_计次 － 1, 0, 到文本 (局_计次))
超级列表框_多线程状态.置标题 (局_计次 － 1, 1, “暂停了”)
计次循环尾 ()
按钮_暂停.标题 ＝ “继续”
调试输出 (“我被暂停了”)


计次循环首 (取数组成员数 (集_多线程句柄), 局_计次)
线程_恢复 (集_多线程句柄 [局_计次])
超级列表框_多线程状态.置标题 (局_计次 － 1, 0, 到文本 (局_计次))
超级列表框_多线程状态.置标题 (局_计次 － 1, 1, “运行中”)
计次循环尾 ()
按钮_暂停.标题 ＝ “暂停”

子程序名	返回值类型	公开	备 注
__启动窗口_首次激活

集_总线程句柄 ＝ 线程_启动 (&开启多线程, , )

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 集_总线程句柄, 整数型<br /> .程序集变量 集_多线程句柄, 整数型, , "0"<br /> .程序集变量 集_随机线程数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 开启多线程<br /> .局部变量 局_计次, 整数型<br /> <br /> 集_随机线程数 ＝ 取随机数 (100, 200)<br /> .计次循环首 (集_随机线程数, 局_计次)<br />     处理事件 ()<br />     加入成员 (集_多线程句柄, 局_计次)<br />     集_多线程句柄 [局_计次] ＝ 线程_启动 (&在循环里暂停线程测试, 局_计次, )<br />     超级列表框_多线程状态.插入表项 (, , , , , )<br />     超级列表框_多线程状态.置标题 (局_计次 － 1, 0, 到文本 (局_计次))<br />     超级列表框_多线程状态.置标题 (局_计次 － 1, 1, “运行中”)<br /> .计次循环尾 ()<br /> <br /> .子程序 在循环里暂停线程测试<br /> .参数 参_第几条线程, 整数型<br /> .局部变量 局_计次, 整数型<br /> <br /> ' 重点是下面SetThreadPriority()这句,设置线程优先级,设为后台模式,不卡UI界面,<br /> ' 设置线程优先级模式为后台处理模式,人话:先响应别的事,别的事响应完了再来处理多线程<br /> ' 调试输出 (“设置线程优先级:” ＋ 到文本 (SetThreadPriority (GetCurrentThread (), 到数值 (#THREAD_MODE_BACKGROUND_BEGIN))))<br /> SetThreadPriority (GetCurrentThread (), 65536)<br /> .计次循环首 (10000, 局_计次)<br />     处理事件 ()<br />     调试输出 (“我是第” ＋ 到文本 (参_第几条线程) ＋ “条线程,现在循环第” ＋ 到文本 (局_计次) ＋ “次”)<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮_暂停_被单击<br /> .局部变量 局_计次, 整数型<br /> <br /> .判断开始 (按钮_暂停.标题 ＝ “暂停”)<br />     .计次循环首 (取数组成员数 (集_多线程句柄), 局_计次)<br />         线程_挂起 (集_多线程句柄 [局_计次])<br />         超级列表框_多线程状态.置标题 (局_计次 － 1, 0, 到文本 (局_计次))<br />         超级列表框_多线程状态.置标题 (局_计次 － 1, 1, “暂停了”)<br />     .计次循环尾 ()<br />     按钮_暂停.标题 ＝ “继续”<br />     调试输出 (“我被暂停了”)<br /> .默认<br /> <br />     .计次循环首 (取数组成员数 (集_多线程句柄), 局_计次)<br />         线程_恢复 (集_多线程句柄 [局_计次])<br />         超级列表框_多线程状态.置标题 (局_计次 － 1, 0, 到文本 (局_计次))<br />         超级列表框_多线程状态.置标题 (局_计次 － 1, 1, “运行中”)<br />     .计次循环尾 ()<br />     按钮_暂停.标题 ＝ “暂停”<br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_首次激活<br /> <br /> 集_总线程句柄 ＝ 线程_启动 (&开启多线程, , )

代码很短,想实际测试一下的可以下一下源码,多线程问题主要是卡UI界面无响应,核心问题就是解决掉线程优先级,希望大家多多进步,不知道我理解网友的问题对不对,不对可以喊我再改进 多线程暂停正在循环语句.e (956.2 KB, 下载次数: 50)

2023-10-26 23:37 上传

点击文件名下载附件

czy731

谢谢分享 !!!!    666666

ctry78985

谢谢分享

蔡文松

感谢分享，很给力！~

1593572486

Av0x

看不懂 太惨了

lm88818

感谢分享，很给力！~

sostemp

感谢分享，很给力！~

AK48

AK48

建议参考大漠多线程框架的做法，挂起、强制结束线程都是不安全的操作

按键大师

6666666666666666666666666666666