Incrémentation en appui maintenu...Résolu

Question

Jimy

Pensez: Réponse acceptée
'**********************************************

Renfield · Accepted Answer

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

Renfield · Answer

allumes un timer dans le MouseDown
coupes ce Timer dans le MouseUp

et dans le Timer1_Timer, incrémentes ta variable

jimy neutron · Answer

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.

Auriez-vous une piste?

Jimy

Pensez: Réponse acceptée
'**********************************************

Renfield · Answer

ma réponse semble correcte, alors (de l'interet d'avoir un titre adapté)

en jouant avec l'interval du Timer, tu peux même ajouter un délai minimum a partir duquel sa s'incrémente

jimy neutron · Answer

Jimy

Pensez: Réponse acceptée
'**********************************************

Renfield · Answer

passes en textbox classique, on est bien moins embetté ^^

jimy neutron · Answer

Jimy

Pensez: Réponse acceptée
'**********************************************

jimy neutron · Answer

A enfin je peux recommuniquer avec le monde exterieur.
Merci Renfield, tu es 'Seigneur'.

Renfield · Answer

ravi que ca convienne.
continue a donner des titres explicites

Incrémentation en appui maintenu...

9 réponses

Votre réponse