[VB] Timer Problem

[Chain Reaction]

ja dann wird aber das panel nich sichtbar

[killeeer111]

dann schreib statt dem:

timeleft = 3
            Timer4.Interval = 1000
            Timer3.Enabled = False
            Timer4.Enabled = True
Code:
Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If timeleft = 0 Then
            Panel1.Visible = True
        End If
    End Sub

das:

timeleft = 5
                        Timer3.Enabled = False
                        panel1.visible = true

lg

[Chain Reaction]

Meinst du so?

PHP Code:

Public Class Form1
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        Timer1.Start()
        Label4.Visible = True
    End Sub
    Dim timeleft As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Label5.Visible = True Then Timer4.Start()
        Timer4.Interval = 1000
        timeleft = 5
        If Label5.Visible = True Then
            Timer3.Start()
            Timer3.Interval = 1000
            timeleft = 5
            Timer4.Interval = 1000
            timeleft = 3
            Timer3.Enabled = False
            Timer4.Enabled = False

        End If
        Timer1.Interval = 1000
        timeleft = 5
        Timer2.Interval = 1000
        Timer1.Enabled = False
        Timer2.Enabled = True
        If Label5.Visible = True Then Timer3.Start()


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       
        timeleft = Val(timeleft - 1)
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If timeleft = 0 Then
            Label4.Visible = False
            If Label4.Visible = False Then
                Label5.Visible = True
                If Label5.Visible = True Then Button1.Enabled = False
                If Label5.Visible = True Then Timer1.Stop()


                


            End If
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

        timeleft = Val(timeleft - 1)
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        timeleft = Val(timeleft - 1)
        If timeleft = 0 Then
            Panel1.Visible = True

        End If
    End Sub
End Class 


Wenn ja....
geht nicht.