Simuler un clic de souris avec le clavier

Bonjour Guy Lafrenière,
Guy Lafrenière a écrit :

Bonjour Collègues,

Comment fait-on pour simuler un clic de souris avec le clavier pour le
contrôle ayant le focus?
Comment simuler un double-click avec le clavier?

Merci pour toute aide

Guy Lafrenière

Tu peux essayer ceci :

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203

Private Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Sub PostClick(CtrlhWnd As Long, _
Optional DblClick As Boolean = False)
If DblClick Then
PostMessage CtrlhWnd, WM_LBUTTONDBLCLK, 0&, 0&
Else
PostMessage CtrlhWnd, WM_LBUTTONDOWN, 0&, 0&
PostMessage CtrlhWnd, WM_LBUTTONUP, 0&, 0&
End If
End Sub


A appeler avec :

PostClick ActiveControl.hWnd ' Click

ou

PostClick ActiveControl.hWnd, True ' DblClick

--
Cordialement,

Jacques.

Merci pour la réponse.

Guy Lafrenière


"Jacques93" <jacques@Nospam> a écrit dans le message de
news:e$5TTMBXGHA.5012@TK2MSFTNGP05.phx.gbl...

Bonjour Guy Lafrenière,
Guy Lafrenière a écrit :
> Bonjour Collègues,
>
> Comment fait-on pour simuler un clic de souris avec le clavier pour le
> contrôle ayant le focus?
> Comment simuler un double-click avec le clavier?
>
> Merci pour toute aide
>
> Guy Lafrenière
>

Tu peux essayer ceci :

Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_LBUTTONDBLCLK = &H203

Private Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Private Sub PostClick(CtrlhWnd As Long, _
Optional DblClick As Boolean = False)
If DblClick Then
PostMessage CtrlhWnd, WM_LBUTTONDBLCLK, 0&, 0&
Else
PostMessage CtrlhWnd, WM_LBUTTONDOWN, 0&, 0&
PostMessage CtrlhWnd, WM_LBUTTONUP, 0&, 0&
End If
End Sub


A appeler avec :

PostClick ActiveControl.hWnd ' Click

ou

PostClick ActiveControl.hWnd, True ' DblClick

--
Cordialement,

Jacques.