Progress bar

Soyez le premier à donner votre avis sur cette source.

Vue 12 810 fois - Téléchargée 1 686 fois

Description

C'est juste une progress bar toute simple, il y a quelque truc sympa mais simple comme changer le pointeur de la souris ou la couleur d'un label mais ceci reste assez basique mais c toujours bien pour apprendre .
Merci c'est mon premier prog soyez indulgeant

Source / Exemple :


'Ici déclaration d'un variable
Dim a

Private Sub Command1_Click()
'Ici on dit que la variable a est égal a 0
a = 0
'Ici on dit que la progress bar peut être utiliser
If a = 0 Then
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
' Ici on incrémente une variable
a = a + 10
'Ici On dit que quand la progress bar est a 100 % qu'il arrête de compter
If a = 100 Then
Timer1.Enabled = False
End If
ProgressBar1 = a
'Ici on dit que quand la progress bar est a moins de 50 % la couleur de l'affichage de la progression sur le label et en rouge
If a < 50 Then
Label1.ForeColor = &HFF
End If
'Ici on dit que quand la progress bar est a plus de 50 % la couleur de l'affichage de la progression sur le label et en jaune
If a > 50 Then
Label1.ForeColor = &H80FFFF
End If
'Ici on dit simplement au label1 qu'il est égal a la progression
Label1 = a & "%"
'Ici on fait en sorte que le pointeur de la souris mette un sablier pendant qu'il travail
If a < 100 Then
MousePointer = 11
End If
'Ici on dit que quand la progression est finit que le pointeur redeviens une flèche
If a = 100 Then
MousePointer = 0
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

olicool
Messages postés
16
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
5 mai 2003
-
Pas mal basique , mais bien.
MaxiGigi
Messages postés
1
Date d'inscription
dimanche 4 mai 2003
Statut
Membre
Dernière intervention
6 mai 2003
-
Merci t'assure G besoin de truc comme ça pour apprendre !!! Aussi, tu saurais pas comment configurer TabScript (les onglets) je n'arrive pas a créer des onglets indépendant. Merci.
sylric
Messages postés
91
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
22 août 2003
-
Pour bien commencer, je peux te donner quelques conseils :
- Quand tu déclare une variable essaie d’indiquer sa portée et surtout son type (c’est plus joli et ta machine tournera plus vite), dans ton cas : dim a as byte
- Quand tu utilises If et que tu n’as qu’une seule instruction, pas besoin du END IF, dans ton cas :
If a 0 Then Timer1.Enabled True, tu mets tout sur la même ligne.
Quand tu as plusieurs instructions pour le même cas If, essaie de les regrouper :
If a = 100 Then
Timer1.Enabled = False
MousePointer = 0
End If
Et dans tous les cas, et c’est valable pour tout le monde, pensez à indenter vos lignes de code, c’est plus clair !

Sylric
cs_GRenard
Messages postés
1663
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008
1 -
et les elseif ? ca srait bien non !? ou encore mieux un petit select case...
sebmafate
Messages postés
4936
Date d'inscription
lundi 17 février 2003
Statut
Modérateur
Dernière intervention
14 février 2014
32 -
pour faire simple voici quelques raccourcis pour ton code :

If a = 0 Then
Timer1.Enabled = True
End If
--> Timer1.Enabled = (a < 100)

If a < 50 Then
Label1.ForeColor = &HFF
End If
If a > 50 Then
Label1.ForeColor = &H80FFFF
End If
--> Label1.ForeColor = iif( a < 50 , &HFF , &H80FFFF )

et
If a < 100 Then
MousePointer = 11
End If
une flèche
If a = 100 Then
MousePointer = 0
End If

--> MousePointer iif( a 100 , 0 , 11 )

Séb

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.