Faire dancer son clavier

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 697 fois - Téléchargée 59 fois

Contenu du snippet

Comment faire flasher les lumières a la suite sur le clavier

Source / Exemple :


Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
Private Touches(0 To 255) As Byte
Dim État As Integer

'Timer 3

Private Sub Timer3_Timer()
État = État + 1
If État = 1 Then
ChangerÉtat vbKeyNumlock, 1
ElseIf État = 2 Then
ChangerÉtat vbKeyNumlock, 0
ElseIf État = 3 Then
ChangerÉtat vbKeyCapital, 1
ElseIf État = 4 Then
ChangerÉtat vbKeyCapital, 0
ElseIf État = 5 Then
ChangerÉtat vbKeyScrollLock, 1
ElseIf État = 6 Then
ChangerÉtat vbKeyScrollLock, 0
État = 0
End If
End Sub

'Changement

Private Sub ChangerÉtat(Touche As KeyCodeConstants, Etat As Integer)
Dim RetVal As Long
Touches(Touche) = IIf(Touches(Touche) = 1, Etat, Etat)
RetVal = SetKeyboardState(Touches(0))
End Sub

Private Sub Form_Load()
état=0
end sub

Conclusion :


Pas juste les gens qui veulent dancer

A voir également

Ajouter un commentaire Commentaires
Messages postés
6
Date d'inscription
lundi 11 mars 2002
Statut
Membre
Dernière intervention
22 août 2003

Marche pas avec l'Office Keyboard de Microsoft.
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Sous 2k non plus :(
Messages postés
7
Date d'inscription
mardi 30 juillet 2002
Statut
Membre
Dernière intervention
31 janvier 2004

Je n'arrives pas non plus à le faire fonctionner sous XP, mais si tu trouves une solution... Sinon, j'essaierais de voir car l'idée est sympa
Messages postés
69
Date d'inscription
jeudi 29 août 2002
Statut
Membre
Dernière intervention
27 avril 2007

Ca n'a pas l'air detrop fonctionner sous Windows Xp Enfin ca n'a pas l'air de tourner du tout. :O) Mais l'idée est sympa ;)
Bravo ! J'ai fait rigolé ma femme !
Mais elle est furieuse parce que j'ai dit que je bossais et ...
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.