Petite progressbar sympathoche, léger effet 3d

Télécharger le projet
Commenter

Description

Une petite progress bar pour m'amuser
faites en ce que vous voulez
bon appetit

Source / Exemple : 


' Voici la fonction, dans le zip y'a un exemple
' prct = pourcentage à donner à la progressbar
' A mettre dans une form, avec un picturebox nommée "progress"
Public Function ProgressBar(prct As Integer)

' Le pourcentage doit être entre 0 et 100, sinon on l'ajuste
If prct > 100 Then prct = 100
If prct < 0 Then prct = 0

' toute la partie où on dessine
' line par line
' Vous remarquerez que la partie rgb à droite de chaque ligne de code
'précise la couleur de la ligne (rouge + ou - fonçé)
' Ainsi je fait un degradé de + en + clair au début
'puis la couleur devient plus fonçée au fur et à mesure
'cette ligne color le fond de la picturebox en bleu
progress.Line (0, 0)-(progress.Width, progress.Height), RGB(60, 0, 120), BF
progress.Line (0, 0)-(((prct * (progress.ScaleWidth / 100))), 0), RGB(160, 0, 0)
progress.Line (0, 1)-(((prct * (progress.ScaleWidth / 100))), 1), RGB(200, 0, 0)
progress.Line (0, 2)-(((prct * (progress.ScaleWidth / 100))), 2), RGB(230, 0, 0)
progress.Line (0, 3)-(((prct * (progress.ScaleWidth / 100))), 3), RGB(255, 0, 0)
progress.Line (0, 4)-(((prct * (progress.ScaleWidth / 100))), 4), RGB(215, 0, 0)
progress.Line (0, 5)-(((prct * (progress.ScaleWidth / 100))), 5), RGB(200, 0, 0)
progress.Line (0, 6)-(((prct * (progress.ScaleWidth / 100))), 6), RGB(180, 0, 0)
progress.Line (0, 7)-(((prct * (progress.ScaleWidth / 100))), 7), RGB(170, 0, 0)
progress.Line (0, 8)-(((prct * (progress.ScaleWidth / 100))), 8), RGB(160, 0, 0)
' Cette line se dessine sous forme de carré pour compléter l'espace qui reste
'sous les lignes dessinées précedemment
' (sinon il n'y aurait que quelques lignes de dessinées en haut de la progressbar)
' enlevez cette ligne pour voir
If prct > 0 Then progress.Line (0, 9)-(((prct * (progress.ScaleWidth / 100))) - 1, progress.Height), RGB(160, 0, 0), BF

' la je gère l'affichage du texte
' la couleur blanche pour le texte
progress.ForeColor = &HFFFFFF
' la position x du texte au centre de la picturebox
progress.CurrentY = (progress.ScaleHeight - progress.TextHeight("l")) / 2
' la position y du texte au centre
progress.CurrentX = (progress.ScaleWidth - progress.TextWidth(Str(prct) + " %")) / 2

' On affiche le pourcentage
progress.Print Str(prct) + " %"

'et voilà
End Function

Conclusion :


j'attend vos commentaires
Télécharger le projet

Codes Sources

A voir également

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 (MadM@tt)