Question

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

PS:是调出不是打开一个新的……

Answer 1

'快截键相关声明开始
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