计时系统代码

该段程序是用vb.net实现的。

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim 自定义时间 As New 自定义时间
        自定义时间.Show()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Label1.Text = 0 Then
            MsgBox("请设置时间！")
            Timer1.Enabled = False
            Timer2.Enabled = False
            Dim 自定义时间 As New 自定义时间
            自定义时间.Show()
        End If
        If Label1.Text > 0 Then
            Timer1.Enabled = True
            Timer2.Enabled = True
            Label3.Text = 60
            Label3.Text = Label3.Text - 1
        End If
        Label1.Text = Label1.Text - 1
        when Label1.Text = 0 And Label3.Text = 0
        MsgBox("时间到！")
        Timer1.Enabled = False
        Timer2.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Text = Label3.Text - 1
        If Label3.Text < 0 Then
            Label3.Text = 59
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label1.Text = Label1.Text - 1
    End Sub
End Class

 

以上是form1的，也就是主窗口的代码。

 

以下是form2的，也就是弹出窗口的代码

Public Class 自定义时间

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If IsNumeric(Me.TextBox1.Text) Then
            Form1.Label1.Text = Me.TextBox1.Text()
            Form1.Label1.Text = Form1.Label1.Text
            Me.Hide()
        Else
            MsgBox("请输入正确的时间")
        End If
    End Sub
End Class