Do until / Do events

Résolu
gribouillex Messages postés 172 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 16 mai 2011 - 5 sept. 2006 à 16:31
gribouillex Messages postés 172 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 16 mai 2011 - 5 sept. 2006 à 17:24
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 Label1 affiche "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

2 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
5 sept. 2006 à 16:52
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

<small> Coloration
syntaxique automatique [AFCK] </small>
       

++
PCPT   [AFCK]

<hr size ="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
3
gribouillex Messages postés 172 Date d'inscription lundi 10 octobre 2005 Statut Membre Dernière intervention 16 mai 2011
5 sept. 2006 à 17:24
j'ai un peu modifié pour mon cas, mais l'approche était bien la bonne. merci
0
Rejoignez-nous