Faire danser son clavier en mieux (vitesse reglable)
Soyez le premier à donner votre avis sur cette source.
Vue 4 660 fois - Téléchargée 325 fois
Description
C la meme chause que le code au desus mais la vitesse et reglable, telecharger le zip !
Telecharger le zip, c mieux !
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
- Faire danser son clavier en mieux (vitesse reglable)
- Faites danser votre clavier!!! :-) - Codes sources - Visual Basic / VB.NET (Divers)
- Changer la vitesse du clavier et le delai de repetition - Codes sources - Visual Basic / VB.NET (Système)
- Symbole flash clavier ✓ - Forum - Flash
- Python détecter touche clavier - Forum - Python
- Clavier arabe javascript - Guide
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.