pause jusqu'a ce qu'une touche soit touchéeRésolu

Question

Je cherche &#224; stopper ( faire une pause) &#224; une boucle de mon application jusqu'a ce que le user appuie sur une touche. cela doit &#234;tre tout simple , mais je n'y arrive pas .

Merci de m'indiquer la bonne direction ( with event .. keypresed ...)

salut

PCPT · Accepted Answer

salut, SVP INDIQUEZ LE LANGAGE DE DEV !!!!! pour le coup il te faut un boolean. quand touche pressée, boolean change. et la boucle en permanence teste ce boolean. supposons VB6 pour la touche, il faut que la form reçoive l'évènement avant les contrôles. Option Explicit Dim bTouchePresse As Boolean ' ' Private Sub Form_Load() Me.KeyPreview = True End Sub ' ' Private Sub Form_KeyPress(KeyAscii As Integer) bTouchePresse = True End Sub ' ' Private Sub Command1_Click() bTouchePresse = False MsgBox "La boucle commence. tapez une touche pour quitter" ' on va rester simples.... Dim i As Long For i = 0 To 500000 Me.Caption = "Entrée n°" & CStr(i) & "/500000" DoEvents If bTouchePresse Then Exit For Next i MsgBox "sortie de boucle" End Sub Coloration syntaxique automatique [AFCK] PCPT [AFCK]

PCPT · Answer

tu remarqueras tout de m&#234;me qu'on quitte la boucle, on ne fait pas de pause genre... on entre on sort comme on veut.

buddy91600 · Answer

Impeccable merci. c'est exactement ce qe je chercher

Pause jusqu'a ce qu'une touche soit touchée

3 réponses

Discussions similaires