Effet sur un bouton à partir d'un KeyPress
cs_Patrik
Messages postés
95
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
10 octobre 2005
-
3 avril 2002 à 17:18
fabienlatour Messages postés 13 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 22 septembre 2005 - 22 sept. 2005 à 16:15
fabienlatour Messages postés 13 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 22 septembre 2005 - 22 sept. 2005 à 16:15
A voir également:
- Effet sur un bouton à partir d'un KeyPress
- Effet miroir photo en ligne - Forum C / C++ / C++.NET
- Keypress vba - Forum VBA Office (Excel, Word ...)
- Bouton de commande ✓ - Forum Visual Basic
- Boutons à index - Forum ASP.NET
- KeyPress KeyAscii facile ✓ - Forum Visual Basic
3 réponses
Apodemus
Messages postés
24
Date d'inscription
vendredi 25 janvier 2002
Statut
Membre
Dernière intervention
17 avril 2002
4 avril 2002 à 12:42
4 avril 2002 à 12:42
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
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
fabienlatour
Messages postés
13
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
22 septembre 2005
22 sept. 2005 à 16:15
22 sept. 2005 à 16:15
fffffffffffffffffffffffffffff<SUP>ffffffffdddddddddddddddddddddddddddddddddddddddddddddddddddddddd
fabienlatour
Messages postés
13
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
22 septembre 2005
22 sept. 2005 à 16:15
22 sept. 2005 à 16:15
fffffffffffffffffffffffffffff<SUP>ffffffffdddddddddddddddddddddddddddddddddddddddddddddddddddddddd
