Tweet
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