Controlar el mouse dentro del alcance del programa en VB

Función de declaración pública ClipCursor Lib "user32 " (ByRef lpRect como rect) como entero

Función de anulaciones protegidas ProcessCmdKey (ByRef msg como mensaje, ByVal keyData como claves) como booleano

Si keyData = (Keys.Alt o Keys.F4) Entonces

Devuelve True

De lo contrario

Devuelve MyBase.ProcessCmdKey(msg, keyData)

Finalizar si

Finalizar función

Estructura pública recta

Atenuar a la izquierda como entero

Atenuar arriba como entero

Atenuar a la derecha como entero

Atenuar abajo como entero

Estructura final

mouse.left = 0

mouse.top = 0

mouse.right = Screen.PrimaryScreen.Bounds.Right

mouse.bottom = Screen.PrimaryScreen.Bounds.Bottom

ClipCursor( mouse)

Si desea la versión completa, comuníquese conmigo. He realizado programas en esta área antes. Es muy simple, solo necesita estar familiarizado con la API.