Discussion :

[gds35]

Mes AMIS du forum bonjour , bon dimanche ,

Je cherche a incorpore dans un label le mot EFFECTUE , et je desirerais qu'un delai de passe en le fait de l'entree du E puis le F après une seconde etc . Est-ce possible. J'ai cherché sans succes a utiliser les barre de progression .

Merci de votre aide encore Bon WE Cordialement GDS 35

[Duddy]

Bonjour le forum,

Une idée brute:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub essai()
    TonForm.TonLabel.Caption = "E"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    TonForm.TonLabel.Caption = "EF"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    TonForm.TonLabel.Caption = "EFF"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    TonForm.TonLabel.Caption = "EFFE"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    TonForm.TonLabel.Caption = "EFFEC"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    TonForm.TonLabel.Caption = "EFFECT"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    TonForm.TonLabel.Caption = "EFFECTU"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
    TonForm.TonLabel.Caption = "EFFECTUE"
    Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
 
End Sub

Il y a peut-être moyen de créer une boucle.

[babaothe]

Salut,
de ce genre ?

Code :

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

1
2
3
4
5
6
7
8
9
a_afficher = "EFFECTUE"
pause = 0.5 ' (en secondes)
For i = 1 To Len(a_afficher)
  Label1.Caption = Mid(a_afficher, 1, i)
  deb = Timer
    Do While Timer - deb < pause
      DoEvents
    Loop
Next

[gds35]

Merci a tous grace a vous mon pb est resolu.

Bon dimanche merci de votre aide cordialemnt GDS35