Réponse acceptée !
Bonjour
Veux-tu cliquer ou bien simuler une action type Enter ? Ainsi, lorsque tu as une boite de message avec un bouton OK, tu peux cliquer sur le bouton ou bien, lorsque le bouton a le focus; simplement appuyer sur la touche Enter.
Le code ci-dessous simule l'appuie sur la touche Enter.
Première chose : déclare la fonction et les constantes ci-dessous
Public 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
Public Const WM_KEYDOWN = &H100 Public Const VK_RETURN = &HD
Ensuite utilise ce code
PostMessage hwnd, WM_KEYDOWN, VK_RETURN, 0&
où hwnd est assigné au handle de; par exemple, le bouton sur lequel tu veux cliquer.
Christophe
|