Ejemplos usando el Api de windows para Visual basic

231 - Saber si se ha movido el Mouse

Contenido:

Ejemplo 1 ( Utilizando un Timer )
Ejemplo 2 ( Utilizando un Hook )
Relacionados

Ejemplo 1 ( Con un Timer )

Simple ejemplo de la función GetCursorPos con un termporizador para averiguar cuando se ha movido el puntero del mouse

El ejemplo tiene una función de ajuste que retorna un valor de tipo Boolean , devolviendo True cuando se ha movido el puntero. Dicha función está dentro de un Timer para poder obtener constantemente las coordenadas y compararlas con los valores anteriores , es decir la posición x / y anterior.

Ejemplo

Colocar en el formulario un control Timer llamado Timer1

Código fuente en el formulario

Option Explicit ' estructura POINTAPI para las coordenadas Private Type POINTAPI x As Long y As Long End Type Dim Anterior As POINTAPI ' declaración Api GetCursorPos Private Declare Function GetCursorPos Lib "user32" ( _ lpPoint As POINTAPI) As Long Public Function SeMueve() As Boolean ' variable para copiar las coordenadas actuales Dim Mouse As POINTAPI ' obtiene las coordenadas GetCursorPos Mouse ' compara los valores actuales con los almacenados If (Mouse.x <> Anterior.x) Or (Mouse.y <> Anterior.y) Then ' Retorna True cuando el mouse se mueve Anterior.x = Mouse.x Anterior.y = Mouse.y SeMueve = True Else 'Retorna False cuando No se mueve SeMueve = False End If End Function Private Sub Form_Load() Timer1.Interval = 50 ' intervalo End Sub Private Sub Timer1_Timer() ' .. si el puntero se mueve If SeMueve Then Me.Print "Se movío el Mouse" End If End Sub

Ejemplo 2 - Mediante un Hook

Acá te muestro otra forma simple que descubrí de poder saber si se mueve el mouse, En este caso haciendo un gancho o Hook al mouse

La ventaja con respecto al ejemplo anterior, es que no se requiere utilizar un timer que chequee constantemente los valores para poder determinar si se movió el puntero, por lo tanto se ahorran recursos en el programa

Primero se instala el Hook con la función Api SetWindowsHookEx. A esta función, se le pasa el procedimiento que se disparará o interceptará la actividad del puntero ( Sub que debe estar si o si en un módulo bas ). En este caso dicha función le puse MouseProc.

        IdProc = SetWindowsHookEx(WH_MOUSE_LL, _
                                  AddressOf MouseProc, _
                                  App.hInstance, 0)

Dentro de la función MouseProc, se recupera las coordenadas del puntero con la api GetCursorPos, y los valores se imprimen en el formulario :

Nota: para eliminar el Hook, se usa la función UnhookWindowsHookEx, pasádole el identificador del Hook, este id o puntero , es el que retorna la función SetWindowsHookEx en el momento de instalar el gancho.

Ejemplo

Agregar a un form1 , dos Commandbutton ( Command1 y Command2 ) , y un módulo bas al proyecto.

Código fuente en el formulario

Option Explicit ' Botón que elimina el Hook '''''''''''''''''''''''''''''''' Private Sub Command1_Click() If IdProc <> 0 Then Call UnhookWindowsHookEx(IdProc) End If End Sub Private Sub Command2_Click() ' instala el Hook al mouse ' Nota: Le pasa en AdressOf, la función CallBack IdProc = SetWindowsHookEx(WH_MOUSE_LL, _ AddressOf MouseProc, _ App.hInstance, 0) 'Me.Caption = IdProc End Sub Private Sub Form_Load() Command1.Caption = "Quitar Hook" Command2.Caption = "Instalar Hook" End Sub Private Sub Form_Unload(Cancel As Integer) ' si IdProc es 0, el Hook no está instalado If IdProc <> 0 Then UnhookWindowsHookEx IdProc IdProc = 0 End If End Sub

Código fuente en el módulo bas

Option Explicit ' Api para instalar el Hook para el mouse Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long ' Api que elimina el Hook Public Declare Function UnhookWindowsHookEx Lib "user32" ( _ ByVal hHook As Long) As Long ' api para obtener las coordenadas del mouse en la pantalla Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 'Constante de mensaje que se le pasa a SetWindowsHookEx Public Const WH_MOUSE_LL = 14 ' estructura para usar con GetCursorPos Type POINTAPI x As Long y As Long End Type Dim Valores As POINTAPI ' puntero a la función que maneja el hook Public IdProc As Long ' procedimiento CallBack para saber cuando hay actividad en el mouse ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Public Function MouseProc(ByVal nCode As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long ' recupera las coordenadas del mouse GetCursorPos Valores Form1.Cls ' imprime los valores en Form1 Form1.Print "Coordenada X: " & Valores.x Form1.Print "Coordenada y: " & Valores.y End Function

Relacionados

Buscar en Recursos vb