如何实现按按钮后退出一个正在运行的循环？

fsccqq 2003-12-02 10:59:10

目前程序的思路大致是：按一个键后执行循环，想在任意时间后按另一个按扭退出该循环。这应该使用什么语句呀？

...全文

218 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

fsccqq 2003-12-03

打赏
举报

感谢大伙的支持，谢谢。

hfch1981 2003-12-03

打赏
举报

思想：设置一个全局变量用来控制程序的开、停。

碧海情天-赵亮 2003-12-03

打赏
举报

而且多个TIMER间可以进行清晰地交互作用.程序可读性较好.

碧海情天-赵亮 2003-12-03

打赏
举报

在一些复杂应用里最好不要用DOEVENTS,而且象在EVB中还不支持它呢.
所以最好用TIMER事件来做.控制性最好.

HanZhu1 2003-12-03

打赏
举报

doevents 必须
退出是可用
exit for
break;
go to

boydgmx 2003-12-03

打赏
举报

在循环中加入 doevents

vbanddelphi 2003-12-03

打赏
举报

在循环里加DOEVENTS!!

jpinglee 2003-12-03

打赏
举报

DoEvents 函数

转让控制权，以便让操作系统处理其它的事件。

语法

DoEvents( )

说明

DoEvents 函数会返回一个 Integer，以代表 Visual Basic 独立版本中打开的窗体数目，例如，Visual Basic，专业版，在其它的应用程序中，DoEvents 返回 0。

DoEvents 会将控制权传给操作系统。当操作系统处理完队列中的事件，并且在 SendKeys 队列中的所有键也都已送出之后，返回控制权。

DoEvents 对于简化诸如允许用户取消一个已启动的过程 — 例如搜寻一个文件 — 特别有用。对于长时间过程，放弃控制权最好使用定时器或通过委派任务给 ActiveX EXE 部件来完成。以后，任务还是完全独立于应用程序，多任务及时间片由操作系统来处理。

小心确保以 DoEvents 放弃控制权的过程，在第一次 DoEvents 返回之前，不能再次被其他部分的代码调用；否则会产生不可预料的结果。此外，如果其它的应用程序可能会和本过程以不可预知的方式进行交互操作，那么也不要使用 DoEvents，因为此时不能放弃控制权。

dreamflying1980 2003-12-03

打赏
举报

设置一个全局变量flag
初始化:flag=0
一个按钮按下开始循环:
do
doevents
loop while(flag=0)

另一个按钮按下:
if flag=0 then
flag=1
else
flag=0
end if

kujiaku 2003-12-03

打赏
举报

就是这个思路，设置全局变量作为停止的标志

yqydaful 2003-12-03

打赏
举报

同意DemonXHunter(恶魔猎手)

陈年椰子 2003-12-03

打赏
举报

DemonXHunter(恶魔猎手) 的方法是对滴

基本上就是如此了

SoHo_Andy 2003-12-03

打赏
举报

dim ValControl as integer

sub cmdStart_click
valControl=1
do while valControl

doevents
loop
end sub

sub cmdStop_Click()
valControl=0
End sub

czjt0602 2003-12-02

打赏
举报

Agree with DemonXHunter(恶魔猎手) !!!

DemonXHunter 2003-12-02

打赏
举报

在循环中加入 doevents,设置一个全局变量控制停止
我们假设开始和停止的按钮为cmdStart, cmdStop
sub cmdStart_click
gStop=false
for ...
....
doevents
if gStop=true then
exit for
end if
next
end sub

sub cmdStop_Click()
gStop=True
End sub