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

[On3m4nsh0w]

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

[Sawyer]

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 SubHierfü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

[krusty]

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

[On3m4nsh0w]

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

[krusty]

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