jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 2016
-
18 avril 2008 à 11:20
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
18 avril 2008 à 12:03
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202172 18 avril 2008 à 11:40
allez, je te mache ça :
Private Sub CmdLMoins_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Timer1.Tag = -1
Timer1.Interval = 1
Timer1.Enabled = True
End If
End Sub
Private Sub CmdLMoins_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub
Private Sub CmdLPlus_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Timer1.Tag = 1
Timer1.Interval = 1
Timer1.Enabled = True
End If
End Sub
Private Sub CmdLPlus_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
If Timer1.Interval = 1 Then
'# delai minimal avant incrémentation
Timer1.Interval = 1000
Else
'# delai entre deux incrémentation
Timer1.Interval = 200
End If
Text1.Text = Val(Text1.Text) + Timer1.Tag
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
quand on clique, ca incrémente (ou décrémente)
après mantien d'une seconde, ca incrémente toutes les 200 millisecondes
jimy neutron
Messages postés491Date d'inscriptionmercredi 1 février 2006StatutMembreDernière intervention18 novembre 20161 18 avril 2008 à 11:29
Bon, et bien je ne sais pas ce qu'il s'est passé, mais mon post s'est effacé à la validation?
Je reprends donc:
J'ai un soucis que malgré mes recherches sur le forum, je ne parviens pas à corriger.
Je cherche à incrémenter une valeur sur l'appui du bouton gauche de la souris.
+1 pour un appui
Incrementation en boucle pour un maintien.
J'ai essayé ceci, ( biensure ça ne marche pas!)
Private Sub CmdLPlus_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Do
'******************************
'* TRAITEMENT *
'******************************
Loop While Button = VbLeftButton
End Sub
Et comme c'est une appli industrielle, et que l'opérateur n'a pas accés au clavier, reste que la souris.