[VB.NET] Label (Runterz�hlen)

Hey Leute,
Wusste ned genau wie ich den Thread nennen soll deswegen hab ich
Label (Runterz�hlen) genommen ;D

Also ich zeige euch Heute wie ein Label von z.B 30 auf 0 runter z�hlt
und dann was ausf�hrt z.B Form 2 �ffnen

Was braucht ihr?
1x Label
1x Timer
2te Form
--------------
Zuerst �ffnet ihr die Code Seite von eurer Form1

Als erstes schreibt ihr unter "Public Class Form1" das hin

Code:

Private meinz�hler As Integer = 30

Wenn ihr das habt m�sste das so aussehen

Code:

Public Class Form1
    Private meinz�hler As Integer = 15
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    End Sub
End Class

In der Form1_Load startet ihr nun den Timer1

Code:

 Timer1.Start()

Wenn ihr das habt m�sste der Code so aussehen

Code:

Public Class Form1
    Private meinz�hler As Integer = 15
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
End Class

Nun geht ihr wieder in den Form1(Entwurf)
Klickt einmal auf den Timer1 und im Eigenschaft's Fenster m�sst ihr "Interval"
auf 1000 stellen den 1000 ist eine Sekunde

Nun macht ihr doppelklick auf den Timer1 und es m�sste der Code erscheinen

Code:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 End Sub
End Class

Und in den Timer1_tick schreibt ihr jetzt diesen Code rein:

Code:

        meinz�hler -= 1
        Label1.Text = CStr(meinz�hler)

        If meinz�hler = 0 Then
            Me.Hide()
            Form2.Show()
        End If

Der ganze Code m�sste jetzt so aussehen

Code:

Public Class Form1
    Private meinz�hler As Integer = 30
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        meinz�hler -= 1
        Label1.Text = CStr(meinz�hler)

        If meinz�hler = 0 Then
            Me.Hide()
            Form2.Show()
        End If
    End Sub
End Class

Kurze Erkl�rung:

Private meinz�hler As Integer = 30 (Damit legst du fest bei welcher zahl er anfangen soll runter zu z�hlen)

Timer1.Start() (Damit startest du den Timer1)

meinz�hler -= 1 (Er zieht immer eine Sekunde ab)

Label1.Text = CStr(meinz�hler) (Er zeigt beim Label1 an bei wie viel Sekunden er gerade ist)

If meinz�hler = 0 Then (Wenn der z�hler auf 0 ist.. Also wenn er fertig runter gez�hlt hat dann..)

Me.Hide() (Mich verstecken also Form1)

Form2.Show() (Die Form2 erscheint)