Ejemplos usando el Api de windows para Visual basic

256 - Enviar evento de click a una ventana

Ejemplo que envia un evento de click mediante la función api SendMessage

Este código usa la función SendMessage junto a los mensajes WM_LBUTTONDOWN y WM_LBUTTONUP para mandar a una ventana de windows un evento de click o un evento de doble click con el mensaje WM_LBUTTONDBLCLK

Este código manda un click al objeto Command1

Option Explicit ' función SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long ' constantes para SendMessage Private Const BM_SETSTATE = &HF3 Private Const WM_LBUTTONDOWN = &H201 ' botón izquierdo abajo Private Const WM_LBUTTONUP = &H202 ' izquierdo arriba Private Const WM_LBUTTONDBLCLK As Long = &H203 ' izquierdo doble click ' enviar pulsación de mouse al Hwnd indicado '''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Enviar_Pulsacion(Handle As Long) Call SendMessage(Handle, BM_SETSTATE, 0, ByVal 0&) Call SendMessage(Handle, WM_LBUTTONDOWN, 0, ByVal 0&) Call SendMessage(Handle, WM_LBUTTONUP, 0, ByVal 0&) Call SendMessage(Handle, BM_SETSTATE, 1, ByVal 0&) End Sub Private Sub Command2_Click() Call Enviar_Pulsacion(Command1.hwnd) End Sub

Este otro código hace lo mismo, pero enviando un dobleclick al formulario

Option Explicit ' función SendMessage Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _ ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long ' constantes para SendMessage Private Const BM_SETSTATE = &HF3 Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Private Const WM_LBUTTONDBLCLK As Long = &H203 Sub Enviar_Pulsacion(Handle As Long) Call SendMessage(Handle, WM_LBUTTONDBLCLK, 0, ByVal 0&) DoEvents End Sub Private Sub Command1_Click() Dim i As Integer ' envia 10 doble clicks el form For i = 0 To 10 Call Enviar_Pulsacion(Me.hwnd) Next End Sub Private Sub form_DblClick() Static x As Integer x = x + 1 Me.Print "Doble click : " & x End Sub

Buscar en Recursos vb