以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  异步执行的终止  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192742)

--  作者:newsun2k
--  发布时间:2024/7/18 10:56:00
--  异步执行的终止

关于异步执行,大概代码如下,我想点按钮终止异步执行,好像不起作用。麻烦指导一下。


Public Total As Integer

public pauseflag as boolean 

首先增加一个名为"AddTotal"的函数,代码为:

if pauseflag = false then return nothing

For i As Integer = 1 To 100
    
Total = Total + 1


Next

然后在命令窗口用AsyncExecute方法异步执行此函数100次:

Total = 0

pauseflag = true
For 
i As Integer = 1 To 100
    
Functions.AsyncExecute("AddTotal")
Next

Sleep 
(2000\'等待2秒,待所有子线程线程执行完毕
Return 
Total


然后我在其他的地方设置一个按钮,点按钮时执行:pauseflag = false


--  作者:有点蓝
--  发布时间:2024/7/18 11:28:00
--  
把累加改大一点把,1加到100不到1毫秒的事,等你点按钮都已经执行完毕了

试试(改大后可能会很慢,注意新建一个项目测试,有点耐心哈)

For i As Integer = 1 To 100000

另外不应该在异步里直接操作全局变量,应该通过同步函数处理,不然全局变量的值是有问题的:http://www.foxtable.com/mobilehelp/topics/3270.htm


--  作者:newsun2k
--  发布时间:2024/7/19 13:23:00
--  
没理解。
然后我在其他的地方设置一个按钮,点按钮时执行:pauseflag = false
这里,我改成同步函数处理?

--  作者:有点蓝
--  发布时间:2024/7/19 13:48:00
--  
和按钮没有关系,是在异步里对Total这个变量累加的时候,必须使用同步函数