Membuat Splash Screen & ProgressBar VB

Nah Kali ini saya akan berbagi ilmu tentang Bagaimana Sih kalo membuat splash screen pada awal program kita dijalankan?
splash screen biasa banyak digunakan untuk program-program yang berbasis Multimedia, seperti Office, Photoshop, Corel Draw, dan masih banyak Lagi,,
Splash Screen berfungsi sebagai pelengkap ato Pemanis Program kita (Kaya Gula Aja :D ),,, tidak perlu panjang Lebar langsung  aja ke TKP!!
Bahan-bahan Yang harus dipersiapkan :
1. Form1 sebagai form Utama Program Atau Bisa Juga Pakai MDI Form tergantung jenis Program kita
2. Setelah itu kita tambah lagi form Splash . dengan cara Klik Kanan Pada Form1 Pilih Add, Form, pilih Splash Screen
3. Pada Splash Form sudah ada Sampel sampel nya kan ? Lihat gambar

 

edit lah Label label yang ada dengan text sesuain program apa yang anda inginkan.

4. setelah itu sisipkan Tools ProgressBar pada Form tersebut..

5. sisipkan Timer (tools yang gambar Jam bekker )

6. Sisipkan Label dibawah Progress Br dengan NAME = lblbar

Jika Bahan bahan sudah siap , sekarang Mari kita Uji coba Hehehehe, sebelum itu rubah Interval Timer1 dari 0 menjadi 500 (Sesuai kebutuhan).

setelah itu Double Klik pada Komponen Timer1.timer tulis koding berikut :

-------------------------------------------------------------------------------------------

PRIVATE SUB TIMER1_TIMER ()

Bar.Value = Bar.Value + 2

Screen.Mousepointer = Vbhourglass

If bar.value = 20 Then

     lblbar.caption = "Loading Component . .........."

Elseif bar.value = 40 Then

     lblbar.caption = "Chek System File.........."

Elseif bar.value = 60 Then

     lblbar.caption = "Sanning Virus . .........."

Elseif bar.value = 80 Then

     lblbar.caption = "Finalizing . .........."

Elseif bar.value = 100 then

      If bar.value = 100 then

             If timer1.interval >= 1 then

                 Unload me

                 Load Form1

                 Form1.show

                 screen.Mousepointer = VBdefault

             End if

       End if

End if

End Sub

-------------------------------------------------------------------------------------

Nah, jika sudah selesai mengetik koding coba Jalankan dengan Tekan Tombol F5... 

Berhasil? Sangat Simple

Tapi Untuk Lebih dimengerti Lagi saya akan memberikan keterangan pada setiap koding :

- Screen.Mousepointer = Vbhourglass untuk merubah pointer mouse ke bentuk Jam pasir (pointer loading )

- If bar.value = 20 Then

     lblbar.caption = "Loading Component . .........." menyatakan jika Progress bar sudah sampai ke percent 20 maka akan memunculkan Label Kata "Loading......" dan seterusnya.

-  If bar.value = 100 then

             If timer1.interval >= 1 then

                 Unload me

                 Load Form1

                 Form1.show

                 screen.Mousepointer = VBdefault

             End if menyatakan jika progress bar sudah ke Percent 100 dan waktu interval lebih sama dengan 1 maka akan kembali ke Form splash (Karna tidak mengecek form1).. dan jika Form1 ada maka akan mengload atau menjalankan Form1/MDI form, , , dan pointer mouse akan kembali ke kursor biasa..

Source:http://ajarivb.blogspot.com/2011/03/membuat-splash-screen-progressbar-vb.html