Discussion :

[salimo79]

comment repeter l'effet dans cet exemple jusqu'a la la fermeture du programme.

[BERRACHED SAID]

Bonjour

si j'ai bien compris la question tu veux fermé form après la fin de la progression

Code :

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

1
2
3
4
5
6
7
Private Sub Timer1_Timer()
If Shape2.Width <= 10000 Then
Shape2.Width = Shape2.Width + 90
Else
Unload Me
End If
End Sub

bonne journée

[l_autodidacte]

comment repeter l'effet dans cet exemple jusqu'a la la fermeture du programme.

Voici un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Timer1_Timer()
 
1:   If Shape2.Width <= 10000 Then
        Shape2.Width = Shape2.Width + 90
    End If
    If Shape2.Width > 10000 Then
       Shape2.Width = 0
       GoTo 1
    End If
    DoEvents
End Sub

[salimo79]

resolu

[l_autodidacte]

resolu

Je pense qu'il est utile de donner la méthode ayant conduit à la résolution du problème !(pour en faire profiter les autres).