Barre de progression soft et avec changement de couleur du texte à la montée de la jauge

Soyez le premier à donner votre avis sur cette source.

Vue 7 545 fois - Téléchargée 1 811 fois

Description

Procédure pour ProgressBar avec changement de couleur du texte à la montée de la jauge.

Source / Exemple :


Sub Progression(ByVal Mode As String, cycle As Single) ' Mode est le texte affiché, cycle est le ratio de progression

        PbxNiveau.Width = PbxBarre.Width * cycle
        LblNiveau(0).Caption = Mode
        
        If cycle <= 1 Then ' on veille à n'afficher que des valeurs < 100 %
        LblNiveau(0).Caption = LblNiveau(0).Caption & " : " & CLng(cycle * 100) & "%"
        End If
        
        LblNiveau(1).Caption = LblNiveau(0).Caption
        PbxBarre.Refresh
        
   
End Sub

Conclusion :


Le truc : supperposition d'un label et d'un picture box aux dimensions variables contenant un label identique

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_PrX
Messages postés
91
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
2 novembre 2005
-
Le Principe est intéressant et ne manque pas d'ingéniosité.

Rq: En affectant "None" au BorderStyle de ta PictureBox rouge tu obtient un meilleur effet 'smooth'
Par contre, tu as fait un comptage un peu trop lent, et ta boucle ne permettait pas de reprendre la main. Ajoute un "DoEvents" avant ton test If et gardera la main.
(PS : Ca évite des plantages monstrueux dans les boucles "Do ... Loop" du style infinie)

J'ai mis 7 pour l'idée.

A plus, et amuse toi encore comme ça...
cs_Ouneufe
Messages postés
60
Date d'inscription
mardi 4 septembre 2001
Statut
Membre
Dernière intervention
19 janvier 2009
-
Effectivement, j'ai oiblié le DoEvents. ça n'est qu'un oubli. Il ne faut pas le placer avant mais dans le test pour préserver les perfs.

démonstration dans une appli ? http://fondusonline.free.fr/mts2.php

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.