ja dann wird aber das panel nich sichtbar
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
timeleft = 5
Timer3.Enabled = False
panel1.visible = true
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