How to set a keyboard shortcut?

[srk999]

How can I set a keyboard shortcut, such as- Alt + F1, that performs the same function as a particular button?

For example, I want to close a window and I have coded the button for it already. How can I make a keyboard shortcut so that pressing Alt + F1 closes the window.

[chubzyko]

try this codes.

Code: Select all

'// I have a timer named Timer1
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const WM_CLOSE = &H10
Private Function KeyDown(ByVal vKey As KeyCodeConstants) As Boolean
KeyDown = GetAsyncKeyState(vKey)
End Function
Private Sub Timer1_Timer()
HotKey = vbKeyF1 '// Change this to desired hotkey
If KeyDown(HotKey) = True Then
iBox = InputBox("Process name?") '// Exact window name
hWnd1 = FindWindow(vbNullString, iBox)
SendMessage hWnd1, WM_CLOSE, 0, 0
End If
End Sub