Question

VB 窗口form1 窗口form2

VB 窗口form1 窗口form2
点击窗口form1的command1 窗口form1 隐藏 按F5建 显示form2 窗口

这个代码怎么写？

Answer 1

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim key1 As Integer, key2 As Integer, key3 As Integer
Const keycode1 As Integer = 116 '按下【F5】的键码是 116
Private Sub Command1_Click()
Form1.Hide
End Sub

Private Sub Form_Load()
Form2.Hide
key1 = GetKeyState(keycode1)
Timer1.Interval = 1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If GetKeyState(keycode1) <> key1 Then
Form2.Show
End If
End Sub

Answer 2

halushan的回答中
在Form2.Show后面增加
key1 = GetKeyState(keycode1)

Answer 3

parvite sub command1_click()
form1.hide
form2.show
end sub