Discussion :

[Chatbour]

Salut à tous

Comment simuler un click de souris sur un bouton ? (Je veux qu'un évennement Validate d'un TextBox le déclenche)..
Le bouton est en fait un bouton ReyCommand..

J'ai fais le même travail avec un Bouton ordinaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' Dans le module
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Public Const BM_SETSTATE = &HF3
 
' Puis..
Private Sub Text1_Validate(Cancel As Boolean)
    SendMessage cmdEnvoi.hwnd, BM_SETSTATE, 1, 0
    Sleep 10
    SendMessage cmdEnvoi.hwnd, BM_SETSTATE, 0, 0
End Sub

Mais avec le ReyCommand (Rey_XpBasics.ocx), il parait que c'est plus compliqué car il y avait beaucoup de messages à envoyer et non pas juste BM_SETSTATE(j'ai utilisé Spy++)..

J'ai pas réussi à envoyer ces messages alors je pose cette question :
Est-ce qu'on envoyer à ce bouton "un click puis un relâchement sur la touche ESPACE" tout simplement?

Merci d'avance..

[Vld44]

je ne connais pas ce contrôle, mais selon moi un clic est un clic, je ne vois pas pourquoi l'ocx réagirait différemment.

[ProgElecT]

Si Rey_XpBasics.ocx a un evenement Click, essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Text1_Validate(Cancel As Boolean)
    cmdEnvoi_Clik
End Sub

[Chatbour]

Merci pour vos réponses rapides

Ce que j'essaye de faire ProgElecT n'est pas déclencher l'évènement Click tout juste, mais plutôt faire comme-ci ça était fait par la souris : je veux voir bouton avoir le focus (ne me dites pas SetFocus ), appuyé puis relâché..

[Chatbour]

Salut,

J'ai trouvé une réponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
' On sauvegarde la position actuelle de la souris
Dim currentPos As POINTAPI
GetCursorPos currentPos
' On déplace la souris
Dim P As POINTAPI
ClientToScreen cmdEnregistrer.hwnd, P
SetCursorPos P.X + 10, P.Y + 10
' On simule un click de souris
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
' Retour à la position précédente
SetCursorPos currentPos.X, currentPos.Y
DoEvents

Merci en tout cas les gars