TIMER durant execution code

Question

Je vous explique. Lorsque je clique sur un bouton je fais appel à une macro qui affiche un formulaire faisant office de loading puis execute le code de la fonction « Ouverture ».
Cependant j’ai créé une sorte de loading sur le formulaire :


Private Sub Form_Load()
Me.TimerInterval = 500
Etq1.Visible = False
Etq2.Visible = False
Etq3.Visible = False
entAffichImage = 1
End Sub

Private Sub Form_Timer()
    
    
    If entAffichImage = 1 Then
        Etq1.Visible = True
        Etq2.Visible = False
        Etq3.Visible = False
        entAffichImage = 2
    Else
        If entAffichImage = 2 Then
        Etq1.Visible = False
        Etq2.Visible = True
        Etq3.Visible = False
        entAffichImage = 3
        Else
            If entAffichImage = 3 Then
            Etq1.Visible = False
            Etq2.Visible = False
            Etq3.Visible = True
            entAffichImage = 1
            End If
        End If
    End If
    entAffichImage = Not entAffichImage

End Sub


Ainsi je n’arrive pas à réaliser ce loading ainsi que le chargement de la fonction « Ouverture en même temps !

Si vous avez une idée ….

TheLordFreddy · Answer

slt,
si le timer de ta form porte comme nom:
TimerInterval


Public entAffichImage As Integer

Private Sub Form_Load()
TimerInterval.Interval = 500
Etq1.Visible = False
Etq2.Visible = False
Etq3.Visible = False
entAffichImage = 1
TimerInterval.Enabled = True
End Sub

Private Sub TimerInterval_Timer()
If entAffichImage = 1 Then
    Etq1.Visible = True
    Etq2.Visible = False
    Etq3.Visible = False
    entAffichImage = 2
ElseIf entAffichImage = 2 Then
    Etq1.Visible = False
    Etq2.Visible = True
    Etq3.Visible = False
    entAffichImage = 3
ElseIf entAffichImage = 3 Then
    Etq1.Visible = False
    Etq2.Visible = False
    Etq3.Visible = True
    entAffichImage = 1
End If
End Sub



voila voila

-------------------------------------------
Ne vous fiez pas à l'apparence...

TIMER durant execution code

1 réponse

Discussions similaires