1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Graphique
  5. Barre de progression

Barre de progression

Soyez le premier à donner votre avis sur cette source.

Vue 14 960 fois - Téléchargée 1 142 fois

Télécharger le projet
Commenter

Description

Pour faire des belles barres de progression

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_buzzo
Messages postés
29
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
30 novembre 2006
1 juin 2006 à 22:29
Super, merci beaucoup !
cs_Lewiss
Messages postés
47
Date d'inscription
jeudi 15 juillet 2004
Statut
Membre
Dernière intervention
22 septembre 2004
20 août 2004 à 20:57
< !!! YOH

Fonctionne très Bien,

Merci !

Le Wiss...

HOY !!! >
cs_johnwolf
Messages postés
3
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
23 avril 2003
23 avril 2003 à 02:20
Cool!
KirgliZ
Messages postés
7
Date d'inscription
mardi 2 juillet 2002
Statut
Membre
Dernière intervention
30 avril 2009
26 juil. 2002 à 13:38
Nikel !!!!!!!!!!
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
 1
8 juin 2002 à 08:56
Super hot ton truc max12
Afficher les 14 commentaires
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 (cs_max12)