Progressbar sans ocx

Soyez le premier à donner votre avis sur cette source.

Vue 6 566 fois - Téléchargée 1 079 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

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

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.