如何用快捷键调出自己用VB写的程序？

来源：百度知道 编辑：UC知道 时间：2024/05/27 09:59:15
PS:是调出不是打开一个新的……

'快截键相关声明开始
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
'快截键相关声明结束

'快截键相关函数开始
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode))
End Function
'快截键相关函数结束

'快截键
Private Sub Timer3_Timer()
If MyHotKey(vbKeyPageUp) Then 'PageUp

End If
If MyHotKey(vbKeyHome) Then 'Home

End If
If MyHotKey(vbKeyPageDown) Then 'PageDown

End If
End Sub