Cómo configurar VB para hacer clic con el botón izquierdo del mouse

A continuación se muestra un evento de doble clic simulado de un formulario.

privado Declarar Sub mouse _ event Lib " usuario 32 "(ByVal dw flags es Long, ByVal dx es Long, ByVal dy es Long, ByVal cButtons es Long, ByVal dwExtraInfo es Long)

private Const mouse event f _ left down = amp H2 'Simula presionar el botón izquierdo del mouse.

evento privado Const mouse f _ left up = amp H4 simula levantar el botón izquierdo del mouse.

La función de declaración privada SetCursorPos Lib "user32" (ByVal x es Long, ByVal y es Long) es Long

Private subform_dblClick()

MsgBox "Double- haga clic en"

Conector final

Sub Form_KeyDown privado (KeyCode es un número entero, Shift es un número entero)

Si KeyCode = vbKeyA, entonces 'Presione A para duplicar haga clic en el formulario, active el evento dblclick del formulario, A es la tecla de acceso rápido.

mouse_event evento del mouse f_LEFTDOWN o MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

mouse_event evento del mouse f_LEFTDOWN o MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

Es finalizará si...

Si KeyCode = vbKeyQ, presione la tecla q para finalizar el programa.

Fin

Terminará si...

Finalizar conector

Subtemporizador privado 1_Timer()

'setcursorpos(me. left 1000)/screen .twipsperpixelx, (me. top 1000)/screen .twipsperpixelx 'Establece la posición del mouse en el formulario.

Conector final