Hallo!
Wie ich schonmal geschrieben habe, habe ich ein Programm mit Visual Basic 2005 Express Edition erstellt, welches 390 Schritte ausführt und einen ProgressBar dazu anzeigt.
Ich habe das Maximum für den ProgressBar auf 390 gesetzt.
In Label1 wird der Fortschritt in Prozent angezeigt.
Allerdings mit vielen Kommastellen.
Ich habe alle möglichkeiten versucht um die Kommastellen zu entfernen doch ich bekomme es nicht hin.
Um nicht meinen Ganzen Code hier reinzuschreiben, habe ich als Beispiel einen ProgressBar (Maximum 390, Step 1) mit einem Timer gesteuert.
Da ist der Code
Kann mir den Code jemand so ändern, dass die Prozentanzeige Ohne Kommastellen angezeigt wird?
1000 dank im Voraus
Wie ich schonmal geschrieben habe, habe ich ein Programm mit Visual Basic 2005 Express Edition erstellt, welches 390 Schritte ausführt und einen ProgressBar dazu anzeigt.
Ich habe das Maximum für den ProgressBar auf 390 gesetzt.
In Label1 wird der Fortschritt in Prozent angezeigt.
Allerdings mit vielen Kommastellen.
Ich habe alle möglichkeiten versucht um die Kommastellen zu entfernen doch ich bekomme es nicht hin.
Um nicht meinen Ganzen Code hier reinzuschreiben, habe ich als Beispiel einen ProgressBar (Maximum 390, Step 1) mit einem Timer gesteuert.
Da ist der Code
Code:
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Start" Button2.Text = "Beenden" ProgressBar1.Maximum = 390 ProgressBar1.Step = 1 Timer1.Interval = 50 Label1.Text = "0%" End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Application.Exit() End Sub Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.PerformStep() Label1.Text = ProgressBar1.Value / 3.9 & "%" If ProgressBar1.Value = ProgressBar1.Maximum Then Timer1.Stop() Exit Sub End If End Sub End Class
1000 dank im Voraus
Comment