Bikin program Loading sederhana menggunakan VB 6.0

Pada Tutorial VB 6.0 kali ini akan membahas tentang Cara Membuat Program Loading pada VB 6.0.

Berikut langkah-langkahnya :
Pertama Buatlah sebuah Project VB 6.0

Buatlah 2 buah Form (1 Form untuk Loading dan 1 Form untuk menu Utama)

Form Loading adalah form pertama jika di Run.
Beikut dibawah adalah Design Form Loadingnya : 

Form diatas hanya menambahkan : Timer dan Progressbar.

Untuk mendapatkan ProgressBar silahkan aktifkan : Microsoft Windows Common Controls 6.0 (SP6)

1. Edit Interval pada Timer1 menjadi = 100
2. Ganti nama ProgressBar menjadi = ProgLoading 
3. Kemudian masukan Koding dibawah ini pada FormLoading :

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Sub Form_Activate()
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub
Private Sub Form_Load()
    Left = (Screen.Width - Width) \ 2
    Top = (Screen.Height - Height) \ 2
End Sub
Private Sub Timer1_Timer()
    ProgLoad.Value = ProgLoad.Value + 5
    If ProgLoad.Value = 100 Then
        FormMenuUtama.Show
        Unload Me
    End If
End Sub

Jika FormLoading sudah selesai maka akan memanggil FormMenuUtama ( FormMenuUtama.Show)

Silahkan Jalankan Aplikasi anda..

Tweet

Subscribe to receive free email updates: