Langsung saja,,,
Silahkan buka aplikasi Visual Basic 6.0 nya dan pilih Standart Exe aja,,,
Maka akan tampil sebuah Form1 :

Tambahkan Komponen
Caranya : Menu > Project > Component ( Ctrl + T )
Beri tanda ceklist pada Microsoft Windows Common Controls 6.0 ( SP6 )
Maka Komponen nya sudah bertambah seperti gambar

Selanjutnya silahkan Masukkan sebuat Timer, Progressbar, 3 buah Label
label1 pada properties, captionya ganti menjadi angka 0, dan label2 captionnya menjadi % serta pada label3 pada caption ganti menjadi Loading...
pada properties timer1 ganti interval nya menjadi 100
kira-kira seperti gbr berikutlah :
Tambahkan satu lagi, yaitu Form2 yang akan tampil setelah loading selesai
klik kanan pada
Project explorer > Add > Form
Selanjutnya ketikkanlah code program berikut ini :
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 10
If ProgressBar1.Value >= 100 Then
Unload Me
Form2.Show
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub
Silahkan deh dieksekusi ( F5 ),,,
Selesai sudah,,,
Silahkan buka aplikasi Visual Basic 6.0 nya dan pilih Standart Exe aja,,,
Maka akan tampil sebuah Form1 :

Tambahkan Komponen
Caranya : Menu > Project > Component ( Ctrl + T )
Beri tanda ceklist pada Microsoft Windows Common Controls 6.0 ( SP6 )
Maka Komponen nya sudah bertambah seperti gambar

Selanjutnya silahkan Masukkan sebuat Timer, Progressbar, 3 buah Label
label1 pada properties, captionya ganti menjadi angka 0, dan label2 captionnya menjadi % serta pada label3 pada caption ganti menjadi Loading...
pada properties timer1 ganti interval nya menjadi 100
kira-kira seperti gbr berikutlah :
Tambahkan satu lagi, yaitu Form2 yang akan tampil setelah loading selesai
klik kanan pada
Project explorer > Add > Form
Selanjutnya ketikkanlah code program berikut ini :
Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 10
If ProgressBar1.Value >= 100 Then
Unload Me
Form2.Show
Else
ProgressBar1.Value = ProgressBar1.Value + 10
End If
End Sub
Silahkan deh dieksekusi ( F5 ),,,
Selesai sudah,,,
0 comments:
Post a Comment