Barre de progression
Soyez le premier à donner votre avis sur cette source.
Vue 14 657 fois - Téléchargée 1 107 fois
Description
Pour faire des belles barres de progression
Éxécuter
Type 1
degradeBar picture1,50
Type 2
UPDATEPROGRESS picture1,50
Source / Exemple :
'Barre de progression dégrader
'Percent = %
Sub degradeBar(PB As PictureBox, percent As Integer)
Dim Couleur As Long
Dim i As Long
PB.Scale (0, 0)-(256, 1)
For i = 0 To 255
Couleur = RGB(i, 0, 255 - i)
PB.ForeColor = Couleur
PB.Line (i, 0)-(percent * 3 + 1, 1), Couleur, BF
Next i
End sub
'Autre type
Sub UPDATEPROGRESS(PB As PictureBox, ByVal percent)
Dim num$
PB.Cls
PB.ScaleWidth = 100
PB.DrawMode = 10
num$ = Format$(percent, "###") + "%"
PB.CurrentX = 50 - PB.TextWidth(num$) / 2
PB.CurrentY = (PB.ScaleHeight - PB.TextHeight(num$)) / 2
PB.ForeColor = RGB(((percent * 2) + 55), 255 - ((percent * 2) + 55), ((percent * 2) + 55))
PB.Print num$
PB.Line (0, 0)-(percent, PB.ScaleHeight), RGB(percent * 2 + 55, 0, 255 - (percent * 2)), BF
PB.Refresh
End Sub
'Sont fonctionnement est le même
'Réglé les pictures box a autoredraw=true
Conclusion :
Éxécuter
Type 1
degradeBar picture1,50
Type 2
UPDATEPROGRESS picture1,50
Codes Sources
A voir également
- Barre de progression
- Barre de progression php - Guide
- Barre de progression vba - Guide
- Barre de progression python tkinter - Guide
- Visual Basic / VB.NET : Copie de fichier avec barre de progression - CodeS SourceS - Guide
- Barre de progression progressbar plus puissante - Codes sources - Visual Basic / VB.NET (Graphique)
Fonctionne très Bien,
Merci !
Le Wiss...
HOY !!! >
- Messages postés
-
962
- Date d'inscription
- samedi 19 janvier 2002
- Statut
- Membre
- Dernière intervention
- 2 août 2010
1Vous 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.