form8.vb

来自「学籍管理系统 源代码 希望大家能用上 谢谢」· VB 代码 · 共 30 行

Public Class Form8
    Dim n As Integer = 0
    Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label1.ForeColor = Color.Red
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.ForeColor = Color.Yellow
        Timer1.Interval = 600
        If Label1.ForeColor = Color.Yellow Then
            Timer1.Enabled = False
            Timer2.Enabled = True
            Label1.ForeColor = Color.Red
            n = n + 1
        End If
        If n = 3 Then
            Me.Close()
            Form3.Show()

        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label1.ForeColor = Color.Yellow
        If Label1.ForeColor = Color.Yellow Then
            Timer1.Enabled = True
            Timer2.Enabled = False
        End If
    End Sub
End Class