form1.vb

来自「Its a Computer based book」· VB 代码 · 共 27 行

Public Class Form1

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form3.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'FOR PROGERESS BAR 
        ProgressBar1.Value = ProgressBar1.Value + 2
        'IF VALUE IS GREATER THEN 100 THEN TAKE ACTION
        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            Form3.Show()
            'FOR HIDING FORM1
            Me.Visible = False
        End If
    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub
End Class