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 8 316 fois - Téléchargée 1 889 fois

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Ouneufe Messages postés 60 Date d'inscription mardi 4 septembre 2001 Statut Membre Dernière intervention 19 janvier 2009
7 janv. 2003 à 23:39
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
cs_PrX Messages postés 91 Date d'inscription lundi 16 septembre 2002 Statut Membre Dernière intervention 2 novembre 2005
7 janv. 2003 à 17:15
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...
S'inscrire maintenant

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.

Du même auteur (cs_Ouneufe)