loop until ?

J'essaye de lancer une routine qui doit tourner tant que le bouton qui l'a lancée reste enclenché
J'ai essayé :
   Do
   DoEvents
   Loop Until (ButtonUP = True)
mais la routine tourne meme si je relache le bouton.
je doit en appuyer un autre pour quelle stoppe.
une Idée ?
@+Gi

Tout dépend où est-ce que tu passe la variable BouttonUP à true...

Mais quel est le but de cette boucle ? Car là, à part occuper 100 % du processeur, elle sert à rien !

merci de ta reponse
en fait j'envoi un code en boucle dans le rs232 tant que je reste appuyé sur le bouton.
voila ce que je n'arrive pas a faire.
@+Gi

Je cherche aussi comment recuperer les valeurs des axes et boutons joystick dans des variables.
et comment changer l'image d'un bouton quand on l'appui.
@+Gi

Ce serait plus simple et moins fatigant pour l'index si tu pesais 1 coup sur le bouton pour enclancher le processus et un autre coup pour le déclancher, je pense.

Il suffirait de mettre une variable Static dans la procédure qui change à chaque fois que tu cliques le bouton. Tu pourrais éventuellement changer le Caption du bouton selon l'état de celui-ci.

Private Sub Command1_Click()
    Static Arret As Boolean
   
    If Arret = False Then
        Arret = True
    Else
        Arret = False
    End If
   
    Do Until Arret
        'Action
        DoEvents
    Loop

End Sub


MPi

c'est ce que j'ai fait mais cela ne me convient pas.
le but est de simuler un joystick avec 4 touche de direction.
pense-tu que cela soit possible version bouton poussoir?
@+Gi

Salut,

Tu peux jouer sur l'évenement Mouse_Down et Mouse_Up de ton bouton pour simuler un appuie et un relachement.