Progressbar sans ocx

Soyez le premier à donner votre avis sur cette source.

Vue 6 459 fois - Téléchargée 1 064 fois

Description

Voici une progressbar n'utilisant aucun OCX. C'est très facile à manipuler et le pourcentage se store dans la variable "intPourcentage". Vous pouvez changer la ProgressBar "frmProgressBar" de place ou de taille et sa fonctionne toujours. Ça m'à pris 5 minutes à fair donc c'est très peu recherché...

Source / Exemple :


Tout est dans le ZIP

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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


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

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.