Archiv verlassen und diese Seite im Standarddesign anzeigen : [Hilfe] ProgressBar bei VB.NET ... kleine Frage
On3m4nsh0w
05.03.2010, 15:38
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 ...
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
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
05.03.2010, 16:34
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 ...
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
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.