印度爱经3d 西瓜影音:解释VB问题，666666666

Private Sub form_keydown(keycode As Integer, shift As Integer)'当在对话框里按下任意键引发的事件
Select Case keycode
Case vbKeyF1: Form1.Show'如果按的F1，则显示Form1
Form2.Hide
Case vbKeyF2: Form2.Show'如果按的F2 ，则显示Form2
Form1.Hide
End Select
End Sub

这样不行。
在Form1中添加：
Private Sub form_keydown(keycode As Integer, shift As Integer)
If keycode = vbKeyF2 Then Form2.Show: Form1.Hide
End Sub

在Form2中添加：
Private Sub form_keydown(keycode As Integer, shift As Integer)
If keycode = vbKeyF1 Then Form1.Show: Form2.Hide
End Sub

'要是把一个判断放在一个窗体，当显示另一个窗体时，原来的窗体已经失去焦点了，怎么还能响应事件呢？

Private Sub form_keydown(keycode As Integer, shift As Integer)
'keydown事件，获取keycode
Select Case keycode '选择语句，判断按下了那个键
Case vbKeyF1: Form1.Show '如果按下了F1，则显示Form1
Form2.Hide ‘关闭form2
Case vbKeyF2: Form2.Show '如果按下了F2，则显示Form2

Form1.Hide '关闭form1
End Select '选择语句结束
End Sub '时间结束