0/5 (2 avis)
Vue 4 736 fois - Téléchargée 333 fois
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
12 août 2003 à 12:32
3 août 2001 à 13:49
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.