Membuat Form Loading Pada VB 6

Membuat Form Loading Pada VB 6

Terbit pada 2016-10-13, 18:17:23 WIB. Oleh : Fuad Nur Hasan, Dibaca : 534 kali

Membuat Form Loading Pada VB 6 - Di Postingan saya kali ini saya akan membagi cara membuat Form Loading di visual basic 6.0 dengan menggunakan progress bar.

Ini contoh sederhana Form Loading yang saya buat.

Pertama kali anda buka file baru atau bisa dengan add Form.
Kemudian tambahkan dan aktifkan file MSCOMCTL.ocx, seperti yang terlihat pada gambar :

Kemudian pilih icon progress bar dan drag di form.

Setelah itu tambahkan 2 timer.

Setelah design kelar, maka perintahnya seperti di bawah ini :

Private Sub Timer1_Timer()
Label3.Caption = Label3.Caption + 1
ProgBar1.Value = ProgBar1.Value + 1
If ProgBar1.Value = 100 Then
Do
Me.Top = Me.Top + 10
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 800
Form1.Show
Unload Me
End If
End Sub

Private Sub Timer2_Timer()
Label2.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Label1.ForeColor = RGB(Rnd * 555, Rnd * 555, Rnd * 555)
End Sub


Keterangan :
pisahkan label angka dan lambang persen
label3 adalah angka 1
label 2 adalah tulisan "Loading"
label 1 adalah tulisan "Please Wait"
label 4 adalah lambang "%"

Nah sedikit kan Listingnya??? Selamat mencoba!



Bagikan Artikel :


Baca Juga :