105255
May 26, 2012, updated at Jun 05, 2012 (UTC)
9445
8
1
Microsoft Visual Basic 2010 Express --- Progressbar erstellen mit selbsteinstellbarer Länge ---
Man könnte normalerweise in eine Textbox einen Wert in Millisekunden angeben und die Progressbar braucht dann genau so lange, bis sie auf 100% landet!
Bloß irgendwie geht es nicht wirklich...
Hallo Leute, ich habe ein Projekt angefangen mit folgendem Code:
<code vb>Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval(-TextBox1.Text)
ProgressBar1.Increment(1)
End Sub
End Class
Das ganze schaut dann so aus:
Mich stört noch dieser kleine Fehler, durch den das ganze Prog. nicht läuft:
Ich habe es von dem YouTube-Video:
http://www.youtube.com/watch?v=ywVTA8SHBWc
Kann mir einer helfen?
(Weiß vielleicht auch jemand wie ich den Code dann umschreiben müsste, dass der Wert, den ich eingeben muss, nicht in Millisekunden, sondern einfach nur in Sekunden anzugeben ist?)
Danke im Voraus!
Chris
<code vb>Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Interval(-TextBox1.Text)
ProgressBar1.Increment(1)
End Sub
End Class
Das ganze schaut dann so aus:
Mich stört noch dieser kleine Fehler, durch den das ganze Prog. nicht läuft:
Ich habe es von dem YouTube-Video:
http://www.youtube.com/watch?v=ywVTA8SHBWc
Kann mir einer helfen?
(Weiß vielleicht auch jemand wie ich den Code dann umschreiben müsste, dass der Wert, den ich eingeben muss, nicht in Millisekunden, sondern einfach nur in Sekunden anzugeben ist?)
Danke im Voraus!
Chris
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 185506
Url: https://administrator.de/contentid/185506
Printed on: April 25, 2024 at 05:04 o'clock
8 Comments
Latest comment
Hallo,
benutz doch endlich mal die Codeformatierung.
Formatting instructions in the posts
So, dann wie rechnet man Millisekunden in Sekunden um und wie rechnet man mit Visual Basic?
Fall's du Probleme damit hast benutz eine Suchmaschine deiner Wahl, lass die Youtube Videos die bei dir eh anscheinend nicht funktionieren und glaub mir wenn du dich in die Thematik einliest, ist zwar langweiliger, wirst du mehr lernen.
Zudem schau dir das Video mal genau an und du wirst deinen Fehler finden.
Übrigens ich würd das Intervall beim drücken des Startbuttons setzten
Ach Visual Studio gibt eigentlich immer schöne und sehr Informative Fehlermeldungen aus mit denen man schnell fündig wird.
benutz doch endlich mal die Codeformatierung.
Formatting instructions in the posts
So, dann wie rechnet man Millisekunden in Sekunden um und wie rechnet man mit Visual Basic?
Fall's du Probleme damit hast benutz eine Suchmaschine deiner Wahl, lass die Youtube Videos die bei dir eh anscheinend nicht funktionieren und glaub mir wenn du dich in die Thematik einliest, ist zwar langweiliger, wirst du mehr lernen.
Zudem schau dir das Video mal genau an und du wirst deinen Fehler finden.
Übrigens ich würd das Intervall beim drücken des Startbuttons setzten
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox1.Text
Timer1.Start()
End SubAch Visual Studio gibt eigentlich immer schöne und sehr Informative Fehlermeldungen aus mit denen man schnell fündig wird.
danke!
das hat mir sehr geholfen!
das hat mir sehr geholfen!
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox1.Text
Timer1.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
End Sub
End Class
Das funktioniert auch nicht!
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = TextBox1.Text
Timer1.Start()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
End Sub
End Class
Das funktioniert auch nicht!
So Lernkontrolle,
so was war der Fehler?
so was war der Fehler?
Ok, was schreibt er den als Fehler?
Und nimm doch endlich die Formatierung her.
Und nimm doch endlich die Formatierung her.
folgendes:
Fehler 1 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Versuch\Versuch\Form1.vb 3 99 Versuch
und
Fehler 2 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Versuch\Versuch\Form1.vb 8 99 Versuch
Fehler 1 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Versuch\Versuch\Form1.vb 3 99 Versuch
und
Fehler 2 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird. C:\Users\Administrator\Documents\Visual Studio 2010\Projects\Versuch\Versuch\Form1.vb 8 99 Versuch
Konnte es nicht glauben, ich hab's jetzt kurz selbst erstellt.
Hab den Code genau so rein Kopiert. Es funktioniet ohne Problem.
Gut normal müsste man noch abfangen ob ein Wert in der Textbox drinnen ist da man sonnst auf einen Fehler stoßen kann, aber ich glaub das ist jetzt egal.
Fang vielleicht noch mal von neu an, eftl. hast du zu viel rum gespielt.
Hab den Code genau so rein Kopiert. Es funktioniet ohne Problem.
Gut normal müsste man noch abfangen ob ein Wert in der Textbox drinnen ist da man sonnst auf einen Fehler stoßen kann, aber ich glaub das ist jetzt egal.
Fang vielleicht noch mal von neu an, eftl. hast du zu viel rum gespielt.
Du hast offenbar Button1 und Button2 entweder umbenannt oder gelöscht!
Zudem ist diese Zuweisung:
Äußerst unschön.
Denn du weißt einer Eigenschaft vom Typ Integer einen String zu.
Die ist generell eher gefährlich!
Besser:
Zudem ist diese Zuweisung:
Timer1.Interval = TextBox1.TextÄußerst unschön.
Denn du weißt einer Eigenschaft vom Typ Integer einen String zu.
Die ist generell eher gefährlich!
Besser:
dim intervall as integer
If Textbox1.Text.Length > 0 AndAlso Integer.TryParse(Textbox1.Text, intervall) Then
Timer1.Interval = intervall
Timer1.Start
End if
End Sub
