1.Siapkan komponen tambahan seprti gambar tersebut, caranya tekan ctrl + T >ceklist/centang Microsoft Windows Common
Controls 6.
2.Sisipkan Loading dan 1 buat timer
kedalam form, hingga seperti gambar tersebut
3.Setelah itu masukan
perintahnya dibawah
Private Sub Timer1_Timer()
If ProgressBar1.Value >= 100 Then
Unload Me
Form2.Show
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub
Unload Me
Form2.Show
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub
2. Buat tampilan kurang lebih seperti ini dan untuk membuat tampilan loading box gunakan "ProgressBar" pada toolbox.
3. Lalu ketika listing berikut ini :
<--start here-->
Private Sub Timer1_Timer()
Label2.Caption = Label2.Caption + 1
progressbar1.Value = progressbar1.Value + 1
If pb1.Value = 100 Then
Do
Me.Top = Me.Top + 10
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 800
Unload Me
MainMenu.Show
End If
End Sub
Private Sub Timer2_Timer()
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
<--end here-->
Pendek sekali bukan listingnya, tapi coba kalian lihat hasilnya :) nah sedikit penjelasan, Label2 adalah angka "1" yang ada pada form, jadi nantinya angka 1 itu akan berubah sehingga mencapai angka 100 baru kemudian me'unload form loading itu sendiri dan kemudian me'load form yang ingin kita tampilkan selanjutnya, saya beri contoh form yang akan di load setelah loading adalah form MainMenu. Gampang kan? nah selamat mencoba deh..
