Progressbar en couleur , degrade !!!!!!!

0/5 (7 avis)

Vue 7 654 fois - Téléchargée 544 fois

Description

Ce programme vous permet de faires des progressebar dégradé , Affichant le pourcentage très lisiblement , avec un arrière-plan Dégradé, N'oubliez pas les déclarations des api lineto et Movetoex car il sont obligatoire pour une rapidité remarquable.

Ma source téléchargeable est plus bien faite, mais cette source est particulièrement pour Moustachu :

Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Public cg As Integer
Public Sub pgrco(pgr As Object, ByVal pgrv As Integer, r1 As Integer, v1 As Integer, b1 As Integer, r2 As Integer, v2 As Integer, b2 As Integer)
Dim li As POINTAPI
ss = pgr.AutoRedraw
dd = pgr.ScaleMode
pgr.ScaleMode = 3
pgr.AutoRedraw = 1
h1 = Abs(r1 + Int(((pgr.ScaleWidth / 100) * (100 - pgrv) * ((r2 - r1) / pgr.ScaleWidth))))
h2 = Abs(v1 + Int(((pgr.ScaleWidth / 100) * (100 - pgrv) * ((v2 - v1) / pgr.ScaleWidth))))
h3 = Abs(b1 + Int(((pgr.ScaleWidth / 100) * (100 - pgrv) * ((b2 - b1) / pgr.ScaleWidth))))
pgr.BackColor = RGB(h1, h2, h3)

For i = 0 To (pgr.ScaleWidth / 100) * pgrv

h1 = Abs(r1 + Int(((pgr.ScaleWidth / 100) * pgrv * ((r2 - r1) / pgr.ScaleWidth))))
h2 = Abs(v1 + Int(((pgr.ScaleWidth / 100) * pgrv * ((v2 - v1) / pgr.ScaleWidth))))
h3 = Abs(b1 + Int(((pgr.ScaleWidth / 100) * pgrv * ((b2 - b1) / pgr.ScaleWidth))))
li.x = i
li.y = 0
pgr.ForeColor = RGB(h1, h2, h3)
MoveToEx pgr.hdc, i, 0, li
LineTo pgr.hdc, i, pgr.ScaleHeight
Next
li.x = pgr.ScaleWidth / 100 * pgrv
li.y = 0
h1 = Abs(r1 - (2 * ((r1 - r2))) - 128)
h2 = Abs(v1 - (2 * ((v1 - v2))) - 128)
h3 = Abs(b1 - (2 * ((b1 - b2))) - 128)
pgr.ForeColor = RGB(h1, h2, h3)
MoveToEx pgr.hdc, pgr.ScaleWidth / 100 * pgrv, 0, li
LineTo pgr.hdc, pgr.ScaleWidth / 100 * pgrv, pgr.ScaleHeight
pgr.CurrentX = pgr.ScaleWidth / 2 - 10
pgr.CurrentY = pgr.ScaleHeight / 2 - 5
pgr.FontBold = True
pgr.Print pgrv & "%"
pgr.Refresh
pgr.AutoRedraw = ss
pgr.ScaleMode = dd
End Sub

Private Sub Form_Load()
Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
cg = (cg + 1) Mod 101
pgrco pgrr, Val(cg), 255, 0, 0, 0, 255, 0
End Sub

Conclusion :


Voir mon site:plusieurs source , tutoriaux , cours
http://membres.lycos.fr/fildomen/

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
22 août 2003 à 15:26
Pleure pas, c'est parce que c'est les vacances... J'ai même plus internet au boulot tu vois, je peux même plus déposer de commentaires ;o)... c'est bien pire !
Fildomen Messages postés 805 Date d'inscription jeudi 22 mai 2003 Statut Membre Dernière intervention 30 octobre 2010
7 juil. 2003 à 11:14
Pas d'autres commentaires,snif
cs_moustachu Messages postés 1079 Date d'inscription jeudi 14 novembre 2002 Statut Membre Dernière intervention 1 janvier 2012
23 mai 2003 à 09:58
Arrête de dire ça je vais rougir, il y a du monde allons... Merci quand même :p
Fildomen Messages postés 805 Date d'inscription jeudi 22 mai 2003 Statut Membre Dernière intervention 30 octobre 2010
22 mai 2003 à 21:32
Pour mustachu

j'ai fais ce que tu voudrais, alors, sois content
jotrash Messages postés 373 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 19 juin 2007
22 mai 2003 à 18:56
ca serait sympa une capture pour un objet graphique mais super qd meme
Afficher les 7 commentaires

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.