Barre de progression

Soyez le premier à donner votre avis sur cette source.

Vue 14 059 fois - Téléchargée 1 072 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

est-ce qu'il serait possible d'avoir un un exemple dans un zip merci!!
Menu FichierNouveau Project

Insert un form

Ajoute le code ci-dessus et ajoute un PictureBox et un Timer

Met le Timer(Interval) dison à 50 ou plus

Et ensuite :

'Section Général
Dim I As Integer

Private Sub Form_Load()

I = 0

End Sub

Private Sub Form_Click()

If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If

End Sub

Private Sub Timer1_Timer()

I = I + 1
If I >= 100 Then Call Form_Click: Exit Sub

degradeBar Picture1, I

'Ou

'UPDATEPROGRESS Picture1, I

End Sub

Voila tu à ton Exemple!!!
est-il aussi possible d'avoir un exemple qui affiche une barre de progression relative au chargement d'un fichier ou au lancement d'une impression?
merci d'avance !
Vous demander toujours un zip a tout ce que je met sur le net
Bon d'accord vous avez gagner

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.