用户登陆
站点日历
站点统计
最新评论
过程外终止 for 或者 do 循环 [ 日期：2007-04-19 ] [ 来自：过程外终止 for 或者 do 循环
首先要做的是 在循环的 时候 ，还可以执行其他的程序，不至于出现无响应的状态。这就要在循环过程中加入语句 DoEvents
然后还要设置一个公有变量，然后在过程外修改变量的值。
循环的时候一直判断这个值是否被修改，如果修改了则 退出循环。
如：
Dim Temp As Boolean
Private Sub Cancel_CMD_Click()
Temp = True
End Sub
Private Sub OK_CMD_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 1000
For j = 1 To 500
DoEvents
If Temp = True Then Exit For
……
Next j
Next i
……
End Sub
Private Sub Cancel_CMD_Click()
Temp = True
End Sub
Private Sub OK_CMD_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 1000
For j = 1 To 500
DoEvents
If Temp = True Then Exit For
……
Next j
Next i
……
End Sub
[本日志由 田草 于 2007-04-19 03:33 PM 编辑]
|
|
暂时没有评论
| 发表评论 - 不要忘了输入验证码哦！ |