IMITATION D'UNE BARRE DE TELECHERGEMENT (PRISE EN MAIN DES TIMERS)

Signaler
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
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/20615-imitation-d-une-barre-de-telechergement-prise-en-main-des-timers

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
La même chose, en beaucoup plus court et avec des 20 pictureboxes, 1 timer et un bouton plutôt que des images :


////////////////////////////////////////////////////////////

Public VAL As Long

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Dim i As Long
VAL = 0
For i = 0 To 19
Picture1(i).BackColor = RGB(127, 127, 127)
Next i
End Sub

Private Sub Timer1_Timer()
If VAL < 20 Then
Picture1(VAL).BackColor = RGB(0, 0, 155)
Else
Timer1.Enabled = False
End If
VAL = VAL + 1
End Sub

//////////////////////////////////////////////////