Simulation d'un click de souris sur un bouton ReyCommand

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:

---

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..

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.

Si Rey_XpBasics.ocx a un evenement Click, essais

Code:

---

1 2 3

Private Sub Text1_Validate(Cancel As Boolean) cmdEnvoi_Clik End Sub

---

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é..

Salut,

J'ai trouvé une réponse :

Code:

---

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 :)