PROGRESSBAR SANS OCX

Signaler
-
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

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

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
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 ).
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 ...
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
COOL.


Continue comme ça.. maintenant essaie de coder Windows Xp ...