How to set keyboard events as mouse click events in VB

Some of the content is posted to filtering.,Please see ** for incomplete content.。

private sub cmda click() This is the click event of the A command button, please add the specific handling here.

end sub

private sub cmdb click() This is the click event of the b command button, please add the specific handling here.

end sub

Private Sub cmdc click() This is the click event of the C command button, please add the specific handling here.

end sub

private sub cmdd click() This is the click event of the d command button, please add the specific handling here.

end sub

private sub cmda_keyup(keycode as integer, shift as integer) 'This is the key event of the A command button, in order to make the focus respond on other controls, you need to add the following call to the keyup event of other controls in the form that can get focus.

keyuptodo keycode, shift 'Invoke the handler.

end sub

private sub keyuptodo(keycode as integer, shift as integer) 'Here's how to deal with it.

select case ucase(chr(keycode))case<>

I wrote it briefly.

There are two controls: commanda, commandbprivate sub form load() = true

end sub

private sub commanda_click()msgbox "a"

end sub

private sub commandb_click()msgbox "b"

end sub

private sub form_keydown(keycode as integer, shift as integer)

if keycode = vbkeya thencommanda_click

elseif keycode = vbkeyb thencommandb_click

end if

end sub

Hope it helps.