[ Source Code ] Membuat Loading Pada Program Visual Basic 6.0

Efek loading yang akan kita buat kali ini hanyalah sekedar style yang membuat project program visual basic menjadi lebih bagus dan menarik

Jika anda sedang mengerjakan project dengan bahasa pemrograman visual basic 6.0 tidak ada salahnya anda menambahkan efek-efek yang menarik sehingga aplikasi yang sedang anda kerjakan terlihat lebih bagus dan tidak biasa-biasa saja, sehingga pengguna dari aplikasi anda akan merasa lebih puas dengan hasil kerja anda.

Efek loading ini diletakkan pada startup aplikasi anda, jadi saat aplikasi tersebut dirunning maka efek loading ini akan muncul duluan sebelum menu utama aplikasi tersebut.

Untuk lebih jelasnya, berikut langkah-langkah yang harus anda kerjakan dan kemudian lihat sendiri hasilnya. Silakan ikuti langkah-langkahnya berikut ini :

• Buka project yang akan anda tambahkan efek loading, atau jika hanya ingin mencoba silakan anda buka bahasa pemrograman visual basic 6.0 dan pilih VB Enterprise Edition Controls kemudian klik OK
• Klik kanan Project yang ada di jendela Properties disebelah kanan, pilih Add kemudian klik Form.

 

• Setelah jendela Add Form terbuka pilih Splash Screen kemudian klik Open.

 

• Hapus semua gambar pada form tersebut.
• Buat disain form seperti gambar berikut.

• Keterangan gambar : 1. Label, 2. Timer, 3. ProgressBar

• Atur interval pada Timer di jendela properties menjadi 40
• Buka jendela coding dari form tersebut dan hapus semua script yang ada. Kemudian masukkan script berikut ini :

Option Explicit Dim efek As Integer 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

• Ubah settingan startup program dengan mengklik kanan project di jendela properties dan pilih Project1 Properties...

• Setelah tampil jendela Project Properties klik menu pull down pada Startup Object, kemudian pilih formSplash dan klik OK.

• Script yang berwarna merah diatas dapat anda ganti sesuai keinginan anda, tergantung form apa yang akan ditampilkan setelah efek loading selesai, sebagai contoh jika anda memiliki form menu utama menggunakan MDIForm maka ubah script tersebut seperti berikut

Load Form1

Form1.Show

ubah menjadi :

Load MDIForm1 

MDIForm1.Show