登录2.vb

来自「用VB.NET开发的记事本,功能强大 用VB.NET开发的记事本,功能强大」· VB 代码 · 共 27 行

Public Class 登录2
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label_Ran.Text = Format(Rnd() * 99, "00")
    End Sub

    Private Sub btn_Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Start.Click
        Try
            Timer1.Interval = txt_interval.Text
            Timer1.Start()
        Catch ex As Exception
            MessageBox.Show("请输入数字！")
        End Try
    End Sub

    Private Sub btn_Stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Stop.Click
        Timer1.Stop()
    End Sub

    Private Sub denglu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles denglu.Click
        If mima.Text = Label_Ran.Text Then
            Form2.Show()
            Me.Hide()
        Else
            MessageBox.Show("密码有误，请重新输入！")
        End If
    End Sub
End Class