Progress bar
Soyez le premier à donner votre avis sur cette source.
Vue 12 795 fois - Téléchargée 1 680 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
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
- Progress bar
- Modifiable progresse bar (couleur début&fin) - Codes sources - Visual Basic / VB.NET (Control)
- Visual Basic / VB.NET : Progresse bar avec couleur de fin & début modifiable - CodeS Sour - Guide
- Progress bar dégradé - Codes sources - Visual Basic / VB.NET (Control)
- Progress bar simple - Codes sources - Visual Basic / VB.NET (Divers)
- Javascript : Progress bar - update(pourcentage) - CodeS SourceS - Guide
Commentaires
- Messages postés
- 16
- Date d'inscription
- mardi 17 décembre 2002
- Statut
- Membre
- Dernière intervention
- 5 mai 2003
-- Messages postés
- 1
- Date d'inscription
- dimanche 4 mai 2003
- Statut
- Membre
- Dernière intervention
- 6 mai 2003
-- Messages postés
- 91
- Date d'inscription
- mardi 21 janvier 2003
- Statut
- Membre
- Dernière intervention
- 22 août 2003
-- 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
- Messages postés
- 1663
- Date d'inscription
- lundi 16 septembre 2002
- Statut
- Membre
- Dernière intervention
- 30 juillet 2008
1 -- Messages postés
- 4947
- Date d'inscription
- lundi 17 février 2003
- Statut
- Modérateur
- Dernière intervention
- 14 février 2014
31 -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.