Soyez le premier à donner votre avis sur cette source.
Vue 14 960 fois - Téléchargée 1 142 fois
'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
1 juin 2006 à 22:29
20 août 2004 à 20:57
Fonctionne très Bien,
Merci !
Le Wiss...
HOY !!! >
23 avril 2003 à 02:20
26 juil. 2002 à 13:38
8 juin 2002 à 08:56
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.