Imitation d'une barre de telechergement (prise en main des timers)

4/5 (1 avis)

Snippet vu 4 264 fois - Téléchargée 28 fois

Commenter

Contenu du snippet

Cette source n'a pas la fierté de présenter une barre de chargement réelle, elle est plutôt un exemple, et un exercice, qui permet de faire connaissance avec les timers.
Voici les composants à mettre sur votre form :
1 timer (interval = 100 - name=timer1)
1 zone de texte (text= « 1 » - name = txttime)
Autant d'image qu'il vous faut pour compléter votre barre (des images de rectangle par exemple) (name=image1, image2, image3.. - visible = false)
(Code à mettre sur le chargement du formulaire)

Source / Exemple : 


Dim i As Integer
Private Sub Timer1_Timer()
If txttime.Text = 1 Then
    Image2.Visible = True
End If
If txttime.Text = 3 Then
    Image3.Visible = True
End If
If txttime.Text = 5 Then
    Image4.Visible = True
End If
If txttime.Text = 7 Then
    Image5.Visible = True
End If
If txttime.Text = 9 Then
    Image6.Visible = True
End If
If txttime.Text = 11 Then
    Image7.Visible = True
End If
If txttime.Text = 13 Then
    Image8.Visible = True
End If
If txttime.Text = 15 Then
    Image9.Visible = True
End If
If txttime.Text = 17 Then
    Image10.Visible = True
End If
If txttime.Text = 19 Then
    Image11.Visible = True
End If
If txttime.Text = 21 Then
    Image12.Visible = True
End If
If txttime.Text = 23 Then
    Image13.Visible = True
End If
If txttime.Text = 25 Then
    Image14.Visible = True
End If
If txttime.Text = 27 Then
    Image15.Visible = True
End If
If txttime.Text = 29 Then
    Image16.Visible = True
End If
If txttime.Text = 31 Then
    Image17.Visible = True
End If
If txttime.Text = 33 Then
    Image18.Visible = True
End If
If txttime.Text = 35 Then
    Image19.Visible = True
End If
If txttime.Text = 36 Then
    Unload Me
Else
    txttime.Text = txttime.Text + 1
End If

Conclusion :


C juste un petit exo hein ;-)
Biz

A voir également

Ajouter un commentaire Commentaire
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
20 févr. 2004 à 16:39
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

//////////////////////////////////////////////////
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ndsaerith)