如何在VB6中制作热键？

Question

我遇到了一些问题，我打算制作一个可以隐藏自身并且可以再次显示的表单（只能使用热键激活它）。我的问题的源代码是什么？

Answer 1

以此声明

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

然后制作一个计时器

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyR) Then
Frmsav.Show
End If
End Sub

该代码使用 Ctrl + R 显示您的表单

How to make hotkeys in VB6?