跪求暂停程序

[红色银狐]

有个按钮点暂停程序就暂停,然后点开始程序接着上次的结果开始.

[faysky2]

可以用Sleep API函数

[迈克揉索芙特]

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: [e-mail]
Me.Caption = "Your system will sleep 5 sec."
'Sleep for 5000 milliseconds
Sleep 5000
Me.Caption = ""
End Sub
Private Sub Form_Load()
Me.Caption = ""
Command1.Caption = "Sleep ..."
End Sub

[红色银狐]

有没有不需要设置时间的,无限等待下去

[云路]

Dim blnPause As Boolean

Private Sub Command1_Click()
blnPause = True
End Sub

Private Sub Command2_Click()
blnPause = False
Call Command3_Click
End Sub

Private Sub Command3_Click()
Static i As Long

Do While (Not blnPause)
DoEvents
i = i + 1
Text1.Text = i
Loop

End Sub

Private Sub Form_Load()
blnPause = False
End Sub

试写了一段代码，作为参考。

[红色银狐]

yimain(求知)的方法可行,可是占cpu100%啊