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
poldere
Messages postés69Date d'inscriptionsamedi 14 mai 2005StatutMembreDernière intervention12 août 2007 8 févr. 2006 à 00:35
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 ).
zonebleue
Messages postés73Date d'inscriptionsamedi 15 janvier 2005StatutMembreDernière intervention16 octobre 2007 7 sept. 2005 à 13:41
tout le monde sait faire ca ...
cs_Urgo
Messages postés780Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention16 avril 20091 17 mai 2003 à 14:35
8 févr. 2006 à 00:36
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
8 févr. 2006 à 00:35
7 sept. 2005 à 13:41
17 mai 2003 à 14:35
6 nov. 2001 à 23:50
Continue comme ça.. maintenant essaie de coder Windows Xp ...