Cara Membuat Splash Screen di Visual Basic 6.0

Splash Screen, menurut Wikipedia adalah Layar Splash yang biasa digunakan oleh aplikasi sangat besar untuk memberitahu pengguna bahwa program ini dalam proses loading. Mereka memberikan umpan balik bahwa proses yang panjang sedang berlangsung. Kadang-kadang, sebuah progress bar dalam splash screen menunjukkan kemajuan pemuatan. Sebuah splash screen menghilang ketika jendela utama aplikasi muncul.

Di Visual Basic 6.0 kita akan membuat sebuah Splash Screen sebagai layar utama dengan memasukkan beberapa objek yaitu salah satunya adalah progressbar, dimana yang nantinya akan memberikan efek loading pada saat pertama kali project di jalankan.

Untuk cara pembuatannya silahkan anda ikuti langkah-langkahnya seperti di bawah ini :

Langkah pertama : Buka Microsoft Visual Basic 6.0

Langkah kedua : Karena ketika pertama kali membuka Microsoft Visual Basic 6.0 sudah muncul Form1, maka langsung saja tambahkan sebuah Splash Screen dengan cara :

• Arahkan Mouse Pointer anda ke Bagian Menu Bar. 
• Lalu Pilih Project.
• Kemudian pilih Add Form.
• Pilih Form Splash Screen
• Klik Open.

Untuk lebih jelasnya silahkan lihat gambar di bawah ini :

Di bawah ini adalah gambar dari Form Splash Screen :

Langkah Ketiga : Tambahkan Object ProgressBar1 dengan cara : 

• Di bagian Menu Bar, pilih Project lalu klik Components atau klik kanan mouse anda di bagian Toolbox, atau bisa juga dengan cara menekan CTRL+T pada keyboard. 
• Lalu pilih Microsoft Windows Common Controls 6.0 (SP6).
• Tekan Apply lalu klik Close.

Untuk lebih jelasnya silahkan lihat gambar di bawah ini :

Maka akan muncul Objectnya di dalam Toolbox :

Langkah Keempat : Untuk langkah selanjutnya adalah meletakkan object ProgressBar1 dan Timer1 ke dalam frmSplash, silahkan anda lihat gambar di bawah ini :

Langkah Kelima : Silahkan anda Copy lalu letakkan kode nya ke dalam frmSplash dengan cara Doble Klik pada frmSpalsh, berikut ini kodenya :

Option Explicit
Dim efek As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub
Private Sub Form_Load()
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = App.Title
End Sub
Private Sub Frame1_Click()
    Unload Me
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
efek = efek + 5
ProgressBar1.Value = ProgressBar1.Value + 400 / 400
If efek > 500 Then
Timer1.Enabled = False
Screen.MousePointer = vbNormal
Me.WindowState = 0
Do
Me.Left = Me.Left + 20
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Load Form1
Form1.Show
Unload Me
End If
End Sub

Langkah Keenam : Jika kode di atas sudah di letakkan, sekarang silahkan ke Property Timer1, ganti intervalnya menjadi 1. Lalu jalankan projectnya dengan cara menekan F5 di keyboard anda.

Tambahan :

• Form1 : anda bisa mengganti dengan Form yang lainnya seperti Mdi form atau bisa juga dengan project yang sedang anda buat.
• frmSplash : anda bisa mengubah tampilan dari frmSplash dengan gambar sesuai keinginan anda.
• Timer1 : silahkan anda atur untuk intervalnya sesuai dengan kebutuhan anda.

Selanjutnya silahkan anda kembangkan lagi sendiri tentang Cara Membuat Splash Screen di Visual Basic 6.0, semoga memberi manfaat untuk anda, selamat mencoba...

Share this post