Question

vb6.0怎么显示隐藏的窗体，都来看看吧。

我试了N久，请看完我的思路再回答。不要找别人一大段代码发给我
我想设置一个老板键，功能是用快捷键来让窗体隐藏和显示之间的切换。但是不想加模块，因为我不会，就算抄了别人的代码能用也不能学到什么。那加模块的代码太多了，同样了，也不用2个窗体，不使用窗体2显示窗体1 。就只有一个窗体。
开始我的思路是这样的。
Private Sub Command1_Click()
If Form1.Visible = True Then
Form1.Visible = False
Else
Form1.Visible = True
End If
End Sub
按钮1我用的是alt + a 的快捷键。但是只能让窗体隐藏，却不能显示，我估计是隐藏后窗体的焦点随之消失，快捷键也随之没了功效。然后我就想，能不能使消失的窗体也能得到焦点。就在else后面加了个 form1.setfocus.结果当然也不行。所以，在这里想请问，要用什么方法去实现这个功能。谢谢了。。

Answer 1

添罩余加个timer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer '全局物仿滚热键声明

Private Sub Form_Load()
Timer1.Interval = "100"大仔 '设定时间, 如果太小的话,程序该来回慌了
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyMenu) and GetAsyncKeyState(vbKeyA) Then ' 检查是否按下Alt+A键
If Form1.Visible = True Then
Form1.Visible = False '或 form1.hide
ElseIf Form1.Visible = False Then
Form1.Visible = True '或 form1.show
End If
End If
End Sub
如果你要按键组合:
If GetAsyncKeyState(vbKeyF12) And GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyMenu) Then'其中的(vbkey)就是按键码,,,(vbkeycontrol)代表Ctrl键
(vbKeyMenu)代表Alt键

Answer 2

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

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyA) Then
If Form1.Visible = False Then
Form1.Visible = True
Else
Form1.Visible = False
End If
End If
End Sub