我要终止它!!请大家看看!
CCL 2000-04-23 08:03:00 我有一程序,希望用键盘控制一个过程,可以随时结束这个过程。
入我有以下语句:
Private Sub Picture1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey1 Then
setp = 0
For i = 0 To 12
Picture1(iNumber).Visible = False
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + 3 'PauseTime为暂停的秒数
DoEvents
Loop
iNumber = i * 3
Next i
End If
End Sub
希望也在这个过程中用“s”键结束上面的For语句,(我试过关Enabled属性,无效)
请问有何高招???SOS!!