Intercambiar botones del mouse - VB-MUNDO

Paipote · #1 (**permalink**) 18-05-2008, 14:50:03

hola queria saber si desde un formulario y un commandbotton se puede hacer la siguiente aplicacion

Cita:

Al apretar el boton (del formulario ) se active la tecla U en el boton izquierdo. ya apretado se quede en la barra del relog, creo que se llama systrai algo asi ^_^

bueno espero sus ayudita gracias

Editado por J.M.Movilla
___________________

Por favor, no pongáis links que ejecuten aplicaciones para visualizar imágenes. Debéis simplemente adjuntar la imagen.

susio24 · #2 (**permalink**) 20-05-2008, 13:34:51

Hola forer@
Para intercambiar los botones del mouse lo puedes hacer declarando esta funcion API :

Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETMOUSEBUTTONSWAP = 33

luego la llamas asi:

SystemParametersInfo SPI_SETMOUSEBUTTONSWAP, True, ByVal 0&, 0

y para restaurar los botones llamas a:

SystemParametersInfo SPI_SETMOUSEBUTTONSWAP, False, ByVal 0&, 0