Cara Membuat Proses Loading Program di VB 6.0

Cara Membuat Proses Loading Program di VB 6.0

Selamat datang kembali di TeknoTips.NET. TeknoTips.NET adalah media online Indonesia yang diluncurkan pada bulan Maret 2015. Kami berkomitmen menyajikan konten seputar teknologi yang berkualitas dan bermanfaat. Ulasan kami terdiri dari berbagai topik: pemrograman komputer & database, review produk, tutorial windows, linux, android, kumpulan source code & project program, referensi tugas akhir & skripsi, download ebook, game & software.

Pada kesempatan ini kita akan mengulas artikel yang berjudul : Cara Membuat Proses Loading Program di 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 :
Cara Membuat Program Loading di VB 6.0, Program Loading pada VB 6.0.
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.. Untuk menghasilkan Tampilan yang lebih menarik kami sarankan anda membuat Design pada FormLoading agar terlihat lebih Layak dilihat :)

Tag : Cara Membuat Program Loading di VB 6.0, Program Loading pada VB 6.0.
Untuk mendapat notifikasi setiap artikel terbaru, masukkan e-mail anda disini
Selanjutnya cek e-mail anda untuk verifikasi.

Silahkan tuliskan komentar relevan Anda dengan jelas dan sopan, sesuai dengan topik postingan tentang "" pada halaman dibawah ini.

0 Response to "Cara Membuat Proses Loading Program di VB 6.0"

Post a Comment

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2


Iklan Bawah Artikel