Hallo zusammen,
ich möchte gerne ein Label (nur Zahlen!) automatisch runterzählen lassen, bis dieses auf 0 steht. Das runterzählen klappt an sich auch, aber wie kann ich das Ganze bei 0 anhalten? Aktuell geht es in den negativen Bereich.
Nachtrag: Die Startzahl ist immer unterschiedlich, also mal gerade und ungerade, kann z.B. bei 100, aber auch bei 10000 liegen. Also alles queer durch die Bank.
ich möchte gerne ein Label (nur Zahlen!) automatisch runterzählen lassen, bis dieses auf 0 steht. Das runterzählen klappt an sich auch, aber wie kann ich das Ganze bei 0 anhalten? Aktuell geht es in den negativen Bereich.
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Timer1.Start()
- End Sub
- Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
- Dim Bytes As Integer = Label1.Text
- Bytes -= 200
- Label1.Text = CStr(Bytes)
- End Sub
- End Class
Nachtrag: Die Startzahl ist immer unterschiedlich, also mal gerade und ungerade, kann z.B. bei 100, aber auch bei 10000 liegen. Also alles queer durch die Bank.