[Hilfe] ProgressBar bei VB.NET ... kleine Frage

Code:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        ProgressBar1.Value = 0

        If ProgressBar1.Value < 100 Then

            ProgressBar1.Value += 100


        End If

        TextBox1.Text = "Hurensohn"



    End Sub

---

Ich hab ein kleines Programm gemacht (mein erstes)
und komme hier nicht weiter. ich will dass der text erst NACHDEM die progressbar.value = 100 ist erscheint.

ich kenn die syntax bei VB.NET nicht und deshalb bekomm ichs nich hin ...
habs mit

when progressbar1.value = 100 do TextBox1.Text = "Hurensohn"

versucht aber dann kommt nen syntax-error naja ...

Code:

---

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ProgressBar1.Value = 0

        If ProgressBar1.Value < 100 Then
            ProgressBar1.Value += 100
        Else
            TextBox1.Text = "Hurensohn"
        End If

    End Sub

---

Hierfür reicht ein else, da es dann nur noch größer oder gleich 100 sein kann ;) Ich würde dir dennoch an Herz legen dir zumindest die Grundlagen der Sprache anzuschauen.

MfG, Sawyer

if progressbar1.value = 100 then
textbox1.text = "Hundekind"
end if

wenn du aber die progressbar hochzählen lassen möchtest, dann solltest du nicht
ProgressBar1.Value += 100
verwenden
sondern das ganze in einem thread oder in einem timer hochlaufen lassen
ProgressBar1.Value += 10
also 10 mal um 10 erhöhen lassen = 100

das ist nicht das problem ... ich hab das schon mit 20er schritten gemacht ... es ist genauso schnell ändert sich nichts dran da ich kein progressbar1.minimum und maximum festgelegt habe...
es geht darum dass mein text schon kommt während sich die progressbar noch füllt also der text erscheint bei ca. 30% von der progressbar und dann läuft sie erst zu ende obwohl der text schon zu ende ist ...
ich woll folgendes:


die progressbar soll zu ende laufen, DANN soll der text erscheinen ...

Code:

---

imports system.threading

class form1

private sub hochzählen()
for i as integer = 1 to 100
progressbar1.value = i
Thread.sleep(100)'gibt an, wie lange gewartet werden soll.
next
textbox1.text = "Hurensohn"
end sub

sub button1_Click()
dim HochzählThread as new thread(Addressof hochzählen)
HochzählThread.isbackground = true
control.CheckForIllegalCrossThreadCalls = false
HochzählThread.start
end sub


end class

---