I want to assign Shortcuts to Toolbar Buttons
Say "Ctrl+A" , "Ctrl-E" etc
Printable View
I want to assign Shortcuts to Toolbar Buttons
Say "Ctrl+A" , "Ctrl-E" etc
Set the forms KeyPreview property to Ture and then...
VB Code:
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 65 And (Shift And vbCtrlMask) > 0 Then 'Ctl + A Toolbar1_ButtonClick Toolbar1.Buttons.Item(1) 'Click button 1 ElseIf KeyCode = 69 And (Shift And vbCtrlMask) > 0 Then 'Ctl + E Toolbar1_ButtonClick Toolbar1.Buttons.Item(2) 'Click button 2 End If End Sub