PROGRESSBAR SANS OCX

- - Dernière réponse : poldere
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007
- 8 févr. 2006 à 00:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

http://codes-sources.commentcamarche.net/source/2100-progressbar-sans-ocx

Afficher la suite 
COOL.


Continue comme ça.. maintenant essaie de coder Windows Xp ...
cs_Urgo
Messages postés
780
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
16 avril 2009
1 -
vite fait et mal fait
zonebleue
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007
-
tout le monde sait faire ca ...
poldere
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007
-
Bonjour je débute en programmation et j'en avais besoin d'un petit comme ça. Merci je l'ai juste modifier pour m'entrainer à fonctionner en descendant et en changeant le couleur. Juste pour rire. Pas besoin de commentaires je n'ai aucun mérite. MErci au site et programmeurs ( les vrais ).
poldere
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007
-
OUPS, j'ai oublié le code
La progression se fait à partir des secondes de l'horloge système

Dim intPercentage As Integer
Private Sub Form_Load()
intPercentage = 60
shpProgress.Left = 45
shpProgress.Top = 45
shpProgress.Height = frmProgressBar.Height - 85
lblPercent.Left = 45
lblPercent.Top = (frmProgressBar.Height - lblPercent.Height) / 2
lblPercent.Width = frmProgressBar.Width



End Sub

Private Sub tmrProgress_Timer()
' Met les secondes de l'heure du système dans intPercentage
intPercentage = Second(Time)
' dessine shpProgress With en descendant
shpProgress.Width = (frmProgressBar.Width - intPercentage * 135) - 85
shpProgress.BackColor = RGB(Second(Time) * 4, Second(Time), 255 - (Second(Time) * 4))
lblPercent.Caption = (60 - intPercentage) & " Seconds"
If intPercentage = 60 Then
End
End If
End Sub
Commenter la réponse de ATH|500|