Warum funktioniert der Countdown nicht?

[x BoooM x]

Moin.

Habe in einem Button als Text "5"

Nun möchte ich nachdem "0" erreicht wurde der Text zu "Öffnen" geändert wird.
Jedoch zieht der nichts von der "5" ab.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Text = Button1.Text - 1
        Button1.Text = Button1.Text - 1
        Button1.Text = Button1.Text - 1
        Button1.Text = Button1.Text - 1
        Button1.Text = Button1.Text - 1
        If Button1.Text = "0" Then
            Button1.Text = "Öffnen"
            Button1.Enabled = True
        End If
        Timer1.Stop()
    End Sub 

Woran liegt das?

MfG.

[aquastar]

Du hast da 'n String, was soll denn schon deiner Meinung nach passieren, wenn du dem 1 abziehst(?), also einem String!

[x BoooM x]

Aus der 5 soll eine 4 werden, dann eine 3 und das jede Sekunde -1?!

[aquastar]

Ja, das kannst du einem Integer abziehen, aber wie willst du 'nem String 1 abziehen? Das, was du da auf deinem Label hast, ist 'n String.

[x BoooM x]

Fail, hat sich erledigt.

[aquastar]

Button1.Text = Val(Button1.Text) - 1

So sollte es gehen.

Gruß

[Daxter]

Außerdem reicht es, wenn du nur einmal 1 abziehst.

Label1. Text = 10

Im Timer-Tick-Event

Me.Label1.Text = Label1.Text -1
If Label1.Text = 0 Then
'Timer stoppen und Meldung ausgeben

[Gangstersheep]

Ich hätte es einfach so gemacht:

(Kommt in den Timer)
Den Timer stellst du beim Interval auf 1000, fertig.

        Button1.Text = Button1.Text - 1
        If Button1.Text = "0" Then
            Timer1.Stop()
            Button1.Text = "Öffnen"
            Button1.Enabled = True
        End If

Falls du es noch brauchst...