Faire danser son clavier en mieux (vitesse reglable)

Soyez le premier à donner votre avis sur cette source.

Vue 4 602 fois - Téléchargée 322 fois

Description

C la meme chause que le code au desus mais la vitesse et reglable, telecharger le zip !

Source / Exemple :


Option Explicit
' Source par OverDarck
' za511@aol.com
' pour tout commantaire, remarque ou modification concernant ce programme, envoyer moi un mail
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
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
If Timer3.Enabled = False Then
Command2.Enabled = False
Command3.Enabled = True
Timer3.Enabled = True
Timer3.Interval = Slider1.Value
End If
End Sub
Private Sub Command3_Click()
If Timer3.Enabled = True Then
Timer3.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
End If
End Sub
'Timer 3
Private Sub Timer3_Timer()
If Slider1.Value = 7 Then
Timer3.Interval = 1
Command3.Enabled = True
ElseIf Slider1.Value = 6 Then
Timer3.Interval = 10
Command3.Enabled = True
ElseIf Slider1.Value = 5 Then
Timer3.Interval = 100
Command3.Enabled = True
ElseIf Slider1.Value = 4 Then
Timer3.Interval = 250
Command3.Enabled = True
ElseIf Slider1.Value = 3 Then
Timer3.Interval = 500
Command3.Enabled = True
ElseIf Slider1.Value = 2 Then
Timer3.Interval = 750
Command3.Enabled = True
ElseIf Slider1.Value = 1 Then
Timer3.Interval = 1000
Command3.Enabled = True
ElseIf Slider1.Value = 0 Then
Timer3.Interval = 5000
Command3.Enabled = False
End If
É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 'boucle
End If
End Sub
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 :


Telecharger le zip, c mieux !

Codes Sources

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.

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.