yjuego

Opción explícita

'Agregue dos botones de comando en el formulario VB y use los nombres predeterminados para observar el efecto de la prueba

Tipo privado POINTAPI

ByVal lpWindowName As String) Siempre

Función de declaración privada ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) Mientras

Declaración privada Sub mouse_event Lib "user32" ( ByVal dwFlags mientras, ByVal dx mientras, ByVal dy mientras, ByVal cButtons mientras, ByVal dwExtraInfo mientras)

Función de declaración privada GetCursorPos Lib "user32" (lpPoint As POINTAPI) mientras

Función de declaración privada SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Const MOUSEEVENTF_LEFTDOWN = &H2

Const MOUSEEVENTF_LEFTUP = &H4

Const MOUSEEVENTF_MIDDLEDOWN = &H20

Const MOUSEEVENTF_MIDDLEUP = &H40

Const MOUSEEVENTF_MOVE = &H1

Const MOUSEEVENTF_ABSOLUTE = &H8000

Const MOUSEEVENTF_RIGHTDOWN = &H8

Const MOUSEEVENTF_RIGHTUP = &H10

Subcomando privado1_Click()

Atenuar punto 0 como POINTAPI

Atenuar punto 1 como POINTAPI

GetCursorPos Point0 'Obtiene las coordenadas actuales del mouse

Point1.X = 2 'Especifique el valor de la coordenada X de desplazamiento, la aplicación real depende de la forma de destino

Point1. Y = 2 'Especifique el valor de la coordenada de desplazamiento Y, la aplicación real depende del formulario de destino

'Convierta la coordenada de desplazamiento del Comando2 de desplazamiento en coordenadas de pantalla

'En la aplicación real Utilice el identificador de la ventana especificada

ClientToScreen Command2.hWnd, Point1

'Mueve el mouse al Punto1 convertido

puntero, es decir, la coordenada de desplazamiento de la ventana especificada

SetCursorPos Point1 0&, 0&, 0&, 0&

'Restaurar las coordenadas originales del mouse

SetCursorPos Point0. .X, Punto0.Y

End Sub

Private Sub Command2_Click()

Depurar.Imprimir "Clic"

Fin Sub