BARRE DE PROGRESSION SOFT ET AVEC CHANGEMENT DE COULEUR DU TEXTE À LA MONTÉE DE LA JAUGE

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

Télécharger le zip

• OCX ET SA SOURCE POUR OBTENIR UNE PICTUREBOX SKINABLE
• APPLI RIGOLOTE POUR EXEMPLE DE DÉSACTIVATION DE CONTROL/ALT/SUPPR ET GENERATION DYNAMIQUE DE FORMS
• TRI RAPIDE (QUICKSORT) D'UN TABLEAU DE CHAÎNES DE CARACTÈRES

• AGENDA FICHIER ANNUEL
• CALCULS DU NOMBRE DE DENTS ET DU RAPPORT D'UN TRAIN D'ENGRENAGES.
• INFORMATIONS SYSTEME
• PROGRESSBAR
• LE COMPTE EST BON