effet sur un bouton à partir d'un KeyPress

Salut,

Je souhaite créer un effet d'enfoncement d'un bouton quand je presse une touche du clavier (touche défini par avance).


Merci à tous ceux qui pourront me donner un coup de main. @+ Patrik

hello!!
il faut ultiliser l'API sens message
Declare Function SendMessage Lib "USER32" lias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
avec la constante
Const BM_SETSTATE = &HF3

Exemple

Sub EnfonceBouton(Button As CommandButton, Enfonce As Integer)
'ou Enfonce vaut 1 si enfonce et 0 si relache
SendMessage Button.hwnd, BM_SETSTATE, Enfonce, 0
End Sub

pour animer le bouton tu pourrais utiliser quelquechose du style

if KeyAscii=.. then
SendMessage Command1.hwnd, BM_SETSTATE, 1, 0
Sleep 150
SendMessage Command1.hwnd, BM_SETSTATE, 0, 0

avec l'API sleep
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

ou utiliser le keydown et le keyup

a+


endif

fffffffffffffffffffffffffffff^{ffffffffdddddddddddddddddddddddddddddddddddddddddddddddddddddddd}

fffffffffffffffffffffffffffff^{ffffffffdddddddddddddddddddddddddddddddddddddddddddddddddddddddd}