[PYTANIE] Jak spowolnic progress bar?

[sriskels]

Witam chcialbym zeby moj progress bar dzialal wolniej pomozecie ?

[szakal499]

ProgressBar1.Value = 1
ProgressBar1.Value = 2
ProgressBar1.Value = 3 
 

 

i tak dalej jeśli chcesz żeby stał na % to

 

 

ProgressBar1.Value = 12
ProgressBar1.Value = 12
ProgressBar1.Value = 12
 

[sriskels]

 

ProgressBar1.Value = 1
ProgressBar1.Value = 2
ProgressBar1.Value = 3 
 

 

i tak dalej jeśli chcesz żeby stał na % to

 

 

ProgressBar1.Value = 12
ProgressBar1.Value = 12
ProgressBar1.Value = 12
 

Nie rozumiem gdzie to mam dodac?

[szakal499]

robisz buton w moim przypadku

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = 1
        ProgressBar1.Value = 2
        ProgressBar1.Value = 3
    End Sub

 

button ładuje sie do 3 % a kod

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = 1
        ProgressBar1.Value = 2
        ProgressBar1.Value = 3
        ProgressBar1.Value = 4
        ProgressBar1.Value = 5
        ProgressBar1.Value = 6
        ProgressBar1.Value = 7
        ProgressBar1.Value = 8
        ProgressBar1.Value = 9
        ProgressBar1.Value = 10
        ProgressBar1.Value = 11
        ProgressBar1.Value = 12
        ProgressBar1.Value = 13
        ProgressBar1.Value = 14
        ProgressBar1.Value = 15
        ProgressBar1.Value = 16
        ProgressBar1.Value = 17
        ProgressBar1.Value = 18
        ProgressBar1.Value = 71
        ProgressBar1.Value = 99
        ProgressBar1.Value = 100

    End Sub

 

wtedy proces dojdzie do 100

[Gość]

robisz buton w moim przypadku

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = 1
        ProgressBar1.Value = 2
        ProgressBar1.Value = 3
    End Sub

 

button ładuje sie do 3 % a kod

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = 1
        ProgressBar1.Value = 2
        ProgressBar1.Value = 3
        ProgressBar1.Value = 4
        ProgressBar1.Value = 5
        ProgressBar1.Value = 6
        ProgressBar1.Value = 7
        ProgressBar1.Value = 8
        ProgressBar1.Value = 9
        ProgressBar1.Value = 10
        ProgressBar1.Value = 11
        ProgressBar1.Value = 12
        ProgressBar1.Value = 13
        ProgressBar1.Value = 14
        ProgressBar1.Value = 15
        ProgressBar1.Value = 16
        ProgressBar1.Value = 17
        ProgressBar1.Value = 18
        ProgressBar1.Value = 71
        ProgressBar1.Value = 99
        ProgressBar1.Value = 100

    End Sub

 

wtedy proces dojdzie do 100

To rozwiązanie jest poniżej wszelkiej krytyki

 

@Topic

zakładając, że progressbar nazywa się ProgressBar1, a klasa z oknem to Form1 ten kod będzie działał

 

Imports System.Threading
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim trd As Thread = New Thread(New ThreadStart(AddressOf ProgressBarThread))
        trd.IsBackground = True
        trd.Start()
    End Sub
    Delegate Function __setProgressBarValue(p As ProgressBar, wartosc As Integer)
    Function _setProgressBarValue(p As ProgressBar, wartosc As Integer)
        p.Value = wartosc
    End Function
    Function setProgressBarValue(p As ProgressBar, wartosc As Integer)
        If p.InvokeRequired Then
            p.Invoke(New __setProgressBarValue(AddressOf _setProgressBarValue), p, wartosc)
        Else
            _setProgressBarValue(p, wartosc)
        End If
    End Function
    Function ProgressBarThread()
        While Not ProgressBar1.Value = 100
            setProgressBarValue(ProgressBar1, ProgressBar1.Value + 1)
            Thread.Sleep(50)
        End While
    End Function
End Class

[sriskels]

to do guzika ?

[UkradliMiNick]

@up tak