Membuat Loading pada VB 6

Pada postingan sebelumnya kita membuat form login tanpa menggunakan data base dan sekarang kita membuat form loading , langsung saja kita menuju ke tkp :

• Pertama coba agan buka vbnya dan pilih VB Enterprise Edition Controls

• Terus coba agan masukan bahan-bahan yang di perlukan seperti di gambar berikut



• Lalu coba agan double clik di timmer1 dan coba masukan coding di bawah ini :

Private Sub Command1_Click()
Timer1.Enabled = True
ProgressBar1.Enabled = True
Command1.Enabled = False
Label1.Visible = True

End Sub
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 1
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
Unload Me
Form2.Show
End If
End Sub



• sebelumnya agan ubah dulu beberapa pengaturannya :



Timmer1	Enabled	False
Progressbar1	Enabled	false
Label1	Visible	False

• Sebelumnya agan harus menambahkan dahulu form2nya , pada postingan sebelumnya membuat form login tanpa menggunakan data base coba agan masukan form login itu dan jadikan nama form itu dengan nama form2.
• Tinggal start saja / tekan F5

Nah dari coding di atas jadi jika agan klik pada command button progressbar akan berjalan dan jika progressbar sudah mencapai 100 maka akan keluar form2.
Semoga Bermanfaat