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 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
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...
Tidak ada komentar:
Posting Komentar