如何实现运行停止继续运行？ - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何实现运行停止继续运行？

标题：如何实现运行停止继续运行？

取消只看楼主

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16
结帖率：85.71%

已结贴√ 问题点数：20 回复次数：2

如何实现运行停止继续运行？

我有个程序，需要实现运行，停止，继续运行，试了多次都无法实现，请大家予以赐教！

程序代码：

Dim running As Boolean

Sub xx()
Dim i%
For i = 1 To 1000
'处理和调用
If running = False Then Exit For

Next

End Sub

搜索更多相关主题的帖子: 如何　

2015-10-29 09:07

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16

得分:0

回复 2楼风吹过b

程序代码：

Private Sub Command1_Click()
Me.Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()

For i = 1 To 1000

'.....
Next

End Sub

是这意思吗？我的目的是要实现随时可以Exit For

[此贴子已经被作者于2015-10-30 09:59编辑过]

2015-10-30 09:54

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16

得分:0

回复 5楼风吹过b

这样不行，我需要的是随时可以停止或继续，版主的必须要运行到>1000,是不是VB无法实现这样的功能啊？

[此贴子已经被作者于2015-11-2 09:52编辑过]

2015-11-02 09:50