[VBNet]ProgressBar

Question

Je trouve que ma barre de progression va trop vite
Comment fait-on pour la ralentir
J'ai essayé de changer les propriétés mais en vain
essayé un sleep mais en vain

 Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick 
        'Déclaration de la form1 
        Dim i As New Form1 
        'Mise à valeur de la barre de progression 
        Me.pbDépart.Value = 100 
        'Condition pour afficher form1         If (Me.pbDépart.Value 100) True Then 
            'Activation de form1 
            i.Activate() 
            'Affiche form1 
            i.Show() 
            'Arrête le timer 
            Me.Timer.Stop() 
        End If 
        'Masque le formulaire Départ 
        Me.Hide() 
    End Sub 

  
    Private Sub Départ_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated 
        'Valeur de départ de la barre de progression 
        Me.pbDépart.Value = 0 
        'Activation du Timer 
        Me.Timer.Enabled = True 
        'Démarre le Timer 
        Me.Timer.Start() 
        'Défini la graduation de la barre de progression 
        Me.pbDépart.Step = 1 
        'Définition le la graduation du timer 
        Me.Timer.Interval = 10000 
        'Avancement de la graduation 
        Me.pbDépart.PerformStep() 
        

    End Sub 

    
End Class

cs_dafu · Answer

coucou
il ya beaucoup plus simple comme code 

.minimum = 0
.maximum = '100000 (plus le nombre est grand plus le chargement est long
.value = 1
.step = +1'vitesse de chargement

        for i as integer = .minimum to .maximum

        performstep( )

sans oublier les codes du timer biensur

bonne chance pour ton code
DAFU

cs_dafu · Answer

oups 
dans .maximum il faut déplacer l'appostrophe devant la parentèse
DAFU

[VBNet]ProgressBar

2 réponses

Discussions similaires