command 属性设置
单击command之后运行程序,但由于程序大长,运行结束需要20分钟左右,我想中途结束或者暂停,就像调试那样,怎么设置呢?调试状态下设置 end 程序后,程序确实停了,不过窗体也没响应了,只能关了VB,再重新打开。想过Timer 的Enabled属性来控制,但Timer的循环时间太短啊 ,请问各位大神 command的属性中有没有通过 false或 true来控制command下的程序结束或暂停,或者通过其他控件 实现同样的效果也可以,如果设置全局热键的话 请大神 写一下代码!本人小白一枚,请各位大神帮忙!
试试设一布尔型全程变量pause,初值为false,窗体上新建一按钮,点击按钮后pause=true
Dim pause As Boolean
Dim i As Long
Private Sub Command1_Click()
pause = Not (pause)
If pause = False Then Form1.Caption = i
End Sub
Private Sub Form_Load()
Me.Show
While (1)
DoEvents
If pause = False Then
i = i + 1
End If
Wend
End Sub