Bonjour,

Voilà... j'utilise le petit bout de code suivant dans mon programme dans le sub qui lance la lecture d'un fichier midi.
Info importante : Label1 est placé dans un timer et s'incrémente (par exemple) de cette façon -> 1 - 2 - 3 - 4 - 1 - 2 - 3 - 4 - 1 - 2... etc.
Continuons dans l'exemple, TSig.beatsPerMeasure a une valeur de 4.
Donc dès que Label1 = 4 alors mon action est effectuée. 

Ce que je souhaiterais, c'est que l'action soit effectuée dès que Label1affiche "1" pour la troisième fois !(1 - 2 - 3 - 4 - 1 - 2 - 3 - 4 - 1 - 2... etc.)

Et je ne sais pas comment faire. Une petite idée ?


      Do Until Label1.Caption = TSig.beatsPerMeasure
        DoEvents
        If Label1.Caption = TSig.beatsPerMeasure Then
            Form2.Timer1.Enabled = True
            Form2.minute.Enabled = False
            Form2.seconde.Enabled = False
            Form2.sep.Enabled = False
        End If
        Loop

Réponse acceptée !
salut,
dans ton timer :

Private Sub Timer1_Timer() 
    Static lCptLabel As Long 
    'tes actions sur ton label....

     If Label1.Caption = "1" Then lCptLabel = lCptLabel + 1 

     If iCptLabel = 3 Then Call LABEL1_3FOIS  'ta procédure
End Sub

Coloration syntaxique automatique [AFCK]
       

++
PCPT   [AFCK]

---

Prenez un instant pour répondre à ce sondage svp

j'ai un peu modifié pour mon cas, mais l'approche était bien la bonne. merci