Discussion :

[benjamin50]

Bonjour,


J'aimerais que vous m'aidez à mettre une pause dans l'exécution des
actions, en effet je veux afficher certains contrôles dans le formulaires
mais les uns après les autres (après une certaine durée). Comment y procéder ? SVP


Merci

[mikeGo20]

Suggestion: on peut utiliser les propriétés du formulaire

* Sur minuterie (OnTimer)
* IntervalleMinuterie (TimerInterval)

Place ton curseur dans une de ces propriétés et fait la touche d'aide F1 ....

[Invité]

Bonjour

Dans les propriétés de ton formulaire, à Intrevalle Minuterie tu mets le chiffre 1000 (cela fait une seconde)

Ensuite sur l'èvènement Timer de ton formulaire tu places le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_Timer()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If ctrl.Visible = False Then
            ctrl.Visible = True
            Exit Sub
        End If
    Next ctrl
End Sub

En fait le timer s'enclenchera toutes les secondes, on parcourt la collection des contrôles, si on en trouve un, on test s'il est visible ou non, s'il est invisible on le rend visible et on quitte le timer. Une seconde aprés l'évènement se ré enclenche on recommence.

Pour mettre tous tes contrôles en invisible lors du chargement de ton formulaire tu mets le code suivant sur le Load de celui-ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_Load()
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        ctrl.Visible = False
    Next ctrl
End Sub

Maintenant regarde lorsque tu ouvres ton formulaire.

Starec