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