I want to assign Shortcuts to Toolbar Buttons Say "Ctrl+A" , "Ctrl-E" etc
Women ...r like tea bags, you neva know how strong they really r untill u put them in hot water Huzefa Yousuf Software Engineer Verticity Inc. +92-345-2235303 [email protected]
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
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
VB/Office Guru™ (AKA: Gangsta Yoda™ ®) I dont answer coding questions via PM. Please post a thread in the appropriate forum. Microsoft MVP 2006-2011 Office Development FAQ (C#, VB.NET, VB 6, VBA) Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET If a post has helped you then Please Rate it! • Reps & Rating Posts • VS.NET on Vista • Multiple .NET Framework Versions • Office Primary Interop Assemblies • VB/Office Guru™ Word SpellChecker™.NET • VB/Office Guru™ Word SpellChecker™ VB6 • VB.NET Attributes Ex. • Outlook Global Address List • API Viewer utility • .NET API Viewer Utility • System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6
Forum Rules
Reply With Quote
