Une boucle « tant que toujours » dans une procédure VB ?

Question

Bonjour
Je recherche le moyen d’exécuter une procédure en boucle. J’utilise pour l’instant la fonction timer paramétrée à 1ms mais cela ne me convient pas ( trop lent …).  Peut-on faire autrement ?

Merci d'avance

Makabey · Answer

Dans une Form met un Label et un CommandButton avec ce code:


Option Explicit
Private fin As Boolean

Private Sub Command1_Click()
 fin = True
End Sub

Private Sub Form_Load()
  Dim clr As Boolean
  
  Me.Show
  Command1.Caption = "Arrêt"

  DoEvents
  Do
    If fin Then Exit Do
    If clr Then
        Label1.BackColor = &HFF&
        clr = False
      Else
        Label1.BackColor = &HFF00&
        clr = True
    End If
    DoEvents
  Loop Until 0
End Sub

Une boucle « tant que toujours » dans une procédure VB ?

1 réponse

Discussions similaires