Question

vb通过怎样通过按键使程序暂停运行,再按一个按键重新开始运行?

一个vb程序有两个窗体form1、form2，并有一个时间控件timer、一个按钮控件command1。想通过按退出键使程序暂停运行，再按一次回车重新开始运行。但怎么没有效果？代码如下：
Dim tt As Long, xx As Integer

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

Private Sub Form_Load()
Timer1.Interval = 300
Timer1.Enabled = False
tt = 2
End Sub

Private Sub Timer1_Timer()
If tt = 0 Then
Form2.Show
Form1.Hide
xx = xx + 1
ElseIf tt = 1 Then
Form1.Show
Form2.Hide
End If
tt = tt + 1
If tt >= 5 Then tt = 0
If xx >= 20 Then End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '按esc键
Timer1.Interval = 0
Timer1.Enabled = False
ElseIf KeyAscii = 13 Then '按回车
Timer1.Enabled = True
Timer1.Interval = 300
End If
End Sub

Answer 1

当窗体隐藏后是无法接收你按的键的（只有拥有焦点的窗体才能接收，否则的话你在这个窗体打的字却出现在另一个软件的窗体中，这还了得！）。这种时候应该用API函数设置系统全局热键才行（也就是说给Windows系统注册一个热键，告诉它按这个键就怎么怎么样），这个对于你来说可能就复杂点了。

追问

愿闻其详。请给个例子代码

追答

以下是一个简单的例子，按Ctrl+F7显示窗体，按Ctrl+F8隐藏窗体。需要用到一个Timer控件

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer1.Interval = 300
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyF7) 0 And GetAsyncKeyState(vbKeyControl) 0 Then
Me.Show
ElseIf GetAsyncKeyState(vbKeyF8) 0 And GetAsyncKeyState(vbKeyControl) 0 Then
Me.Hide
End If
End Sub

注意哦，尽量不要用ESC键、回车键这些常用的单键作为热键哦，因为这个热键是在任何时候（包括你在玩游戏、打字等等）都起作用的，所以最好用其他软件不会用到的组合键，以免造成冲突。

追问

如果把你上面的两个组合键盘改成按同一个空格键，怎样实现？按一次空格键Me.Show，再按一下Me.Hide

追答

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Timer2.Interval = 300
Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Static showme As Boolean
If GetAsyncKeyState(vbKeySpace) Then
If showme Then
Me.Show
Else
Me.Hide
End If
showme = Not showme
End If
End Sub

不过我再一次提醒你哦，最好不要用空格键做热键，它是最最常用的一个键，比如你在QQ聊天的时候只要一按空格就会触发这个程序哦

追问

如果用F1和F2当热键呢？而不是组合键盘。另外用esc退出键、回车键、S键当热键呢？我用vbKeyESC和vbKeyEnter、vbKeyA怎样不行？此外，Me.Show和Me.Hide如果变成timer1.enabled=true、timer1.enabled=flase，你的参数showme需要作怎样的变化？回答再加分！！！

追答

这个就更简单了，连参数showme都可以省了：

Private Sub Timer2_Timer() '注意，这里是Timer2，用它来控制Timer1
If GetAsyncKeyState(vbKeySpace)0 Then
Timer1.Enabled = Not Timer1.Enabled '每按一次键Timer1.Enabled的值都取反
End If
End Sub

至于你想知道某个键的虚拟键码常量是什么，你可以点VB6菜单栏的“对象浏览器”，输入“vbKey”后点搜索就全出来了。你也可以用数字直接表示，如
ESC键 = vbKeyEscape = 27
回车键 = vbKeyReturn =13
S键 = vbKeyS = 83

追问

很好！最后一问：怎样只用F1只不是ctrl+f1呢？

追答

只用F1
If GetAsyncKeyState(vbKeyF1)0 Then

用Ctrl+F1
If GetAsyncKeyState(vbKeyF1) 0 And GetAsyncKeyState(vbKeyControl) 0 Then

Answer 2

form1的代码
-------------------------------------------------------
Private Sub Command1_Click()
Timer1.Enabled = True
Me.Hide
End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
Form_KeyPress KeyAscii
End Sub

Private Sub Form_Load()
Timer1.Interval = 300
Timer1.Enabled = False
tt = 2
End Sub

Private Sub Timer1_Timer()
If tt = 0 Then
Form2.Show
Form1.Hide
xx = xx + 1
ElseIf tt = 1 Then
Form1.Show
Form2.Hide
End If
tt = tt + 1
If tt >= 5 Then tt = 0
If xx >= 20 Then End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '按esc键
Timer1.Enabled = False
ElseIf KeyAscii = 13 Then '按回车
Timer1.Enabled = True
End If
End Sub
------------------------
form2的代码
---------------------------------------
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '按esc键
Form1.Timer1.Interval = 0
Form1.Timer1.Enabled = False
ElseIf KeyAscii = 13 Then '按回车
Form1.Timer1.Enabled = True
Form1.Timer1.Interval = 300
End If
End Sub

追问

可用，想改进下：怎样让按空格键停止，再按空格键开始呢？另外，如果两个窗体都是一直隐藏的状态，怎么办？

追答

还真不容易
form1
---------------

Dim tt As Long, xx As Integer, dj As Boolean
Private Sub Command1_Click()
If dj = False Then
Timer1.Enabled = True
Me.Hide
dj = False
End If
End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)
Form_KeyPress KeyAscii
dj = True
End Sub

Private Sub Form_Load()
Timer1.Interval = 300
Timer1.Enabled = False
tt = 2
End Sub

Private Sub Timer1_Timer()
If tt = 0 Then
Form2.Show
Form1.Hide
xx = xx + 1
ElseIf tt = 1 Then
Form1.Show
Form2.Hide
End If
tt = tt + 1
If tt >= 5 Then tt = 0
If xx >= 20 Then End
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then '按esc键
Timer1.Enabled = Not Timer1.Enabled
End If
End Sub

--------
form2
--------

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then '按esc键
Form1.Timer1.Enabled = Not Form1.Timer1.Enabled
End If
End Sub

Answer 3

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '按esc键
Timer1.Enabled = False
ElseIf KeyAscii = 13 Then '按回车
Timer1.Enabled = True
End If
End Sub

追问

测试你的代码加上不管用啊。