BARRE DE PROGRESSION
IceNoxe
-
19 févr. 2001 à 01:08
cs_buzzo Messages postés 29 Date d'inscription jeudi 20 janvier 2005 Statut Membre Dernière intervention 30 novembre 2006 - 1 juin 2006 à 22:29
cs_buzzo Messages postés 29 Date d'inscription jeudi 20 janvier 2005 Statut Membre Dernière intervention 30 novembre 2006 - 1 juin 2006 à 22:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/696-barre-de-progression
https://codes-sources.commentcamarche.net/source/696-barre-de-progression
1 juin 2006 à 22:29
20 août 2004 à 20:57
Fonctionne très Bien,
Merci !
Le Wiss...
HOY !!! >
23 avril 2003 à 02:20
26 juil. 2002 à 13:38
8 juin 2002 à 08:56
3 nov. 2001 à 19:44
cliquer sur un boutton de commnde pour que la couleur du barre progression descend svp dans les moindre detaille
16 sept. 2001 à 15:32
14 juin 2001 à 11:14
JAV
14 juin 2001 à 11:13
d'avance merci.
JAV
8 juin 2001 à 01:02
8 juin 2001 à 01:02
19 févr. 2001 à 18:14
merci d'avance !
19 févr. 2001 à 04:23
Insert un form
Ajoute le code ci-dessus et ajoute un PictureBox et un Timer
Met le Timer(Interval) dison à 50 ou plus
Et ensuite :
'Section Général
Dim I As Integer
Private Sub Form_Load()
I = 0
End Sub
Private Sub Form_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
I = I + 1
If I >= 100 Then Call Form_Click: Exit Sub
degradeBar Picture1, I
'Ou
'UPDATEPROGRESS Picture1, I
End Sub
Voila tu à ton Exemple!!!
19 févr. 2001 à 01:08