Cara Membuat Flash Window di VB6

Cara Membuat Flash Window di VB6

Pada artikel kali ini saya akan membagikan sebuah tip bagaiamana cara membuat Flash Window di VB6.

Mungkin Anda pernah menggunakan sebuah aplikasi Chating, dimana pada saat Anda melakukan sebuah chatingan dengan teman Anda, karena Anda sambil mengerjakan tugas lain di komputer, maka anda perlu me-Minimze aplikasi tersebut, kemudian ada pesan masuk pada aplikasi tersebut, pesan masuk tersebut akan ditandai dengan sebuah Notifkasi yang ada Taskbar dengan kedap-kedip, itulah yang dinamakan Flash Window yang akan kita buat tutorialnya pada kali ini.

Untuk lebih jelas lagi tentang Flash Window perhatikan pada Gambar dibawah ini :

Flash Window

Bagaimana apakah Anda tertarik untuk membuatnya?, bila Anda tertarik untuk membuatnya yuk...ikuti langkah-langkah dibawah ini :

Cara Membuat Flash Window di VB6

1. Buka Form VB6 Anda pilih Standar EXE

2. Tanamkan pada Form1 2 Commandbuton dengan Caption masing-masing "Aktif" dan "Non Aktif"

3. Tambahkan 1 buah Module dengan cara Project >> Add Module >>Jendela Module akan terbuka

4. Ketik kode dibawah ini di jendela Module :

Declare Function FlashWindow Lib "user32" (ByVal Hwnd As Long, ByVal bInvert As Long) As Long

Dim blnDo As Boolean

Public Sub Flash(ByRef Form As Form, ByVal BlnFlash As Boolean)

Dim angStart As Single

If BlnFlash Then

blnDo = True

Else

blnDo = False

End If

Do While blnDo

FlashWindow Form.Hwnd, True

angStart = Timer

Do While Timer < angStart + 0.5

DoEvents

Loop

Loop

If Not blnDo Then FlashWindow Form.Hwnd, False

End Sub

5. Kembali ke Form1, pada Command1 yang bertuliskan "Aktif" ketik kode berikut :

Private Sub Command1_Click()

Flash Form1, True

End Sub

6, Pada Command2 yang bertuliskan "Non Aktif" ketik kode berikut :

Private Sub Command2_Click()

Flash Form1, False

End Sub

7. Setelah itu coba jalankan program Anda, jika tombol "Aktif" di tekan, Form akan kedip kemudian Minimize Form terebut. Perhatikan Form di Taskbar Anda akan berubah.

Itulah yang dinamakan Flash Window.

Demikianlah artikel singkat pada hari ini mengenai tip Cara Membuat Flash Window di VB6, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat menciba semoga sukses....

Related Post: Animasi Form