Membuat Form Berkedip (Flash Form) Dengan Visual Basic 6.0

Anda mungkin pernah menggunakan aplikasi Yahoo Messenger. 
Jika ada pesan baru masuk ke Ymsg anda, anda melihat formnya berkedip-kedip. 

Anda juga bisa membuat form berkedip ini dengan menggunakan fungsi API yang disediakan oleh Visual Basic. 

Pada project ini kita akan menggunakan dua form yaitu: 
1. form1 sebagai form pemanggil form berkedip (flash) 
2. frmSplash adalah form yang berkedip 

OK sekarang kita mulai saja. Buka project baru dengan tipe project standard.exe 

Di bawah ini adalah kode pada masing-masing form:

Kode pada form1:

Private Sub Command1_Click()

   frmFlash.Show

End Sub

Kode ada frmFlash:

Option Explicit

Private Declare Function FlashWindow Lib "user32" ( _

   ByVal hwnd As Long, _

   ByVal bInvert As Long) As Long

Private Sub Form_Load()

  tmrFlash.Interval = 1000 / 5

  tmrFlash.Enabled = True

End Sub

Private Sub tmrFlash_Timer()

  Dim Ret As Long

  Ret = FlashWindow(hwnd, CLng(True))

End Sub
Tekan tombol Run (F5) lalu klik tombol command1 pada form1 maka muncul frmFlash (berkedip) seperti gambar di bawah ini:



pada gambar anda melihat di taskbar form berwarna kuning berkedip. Itu adalah frmFlash.

Jika anda ingin memperoleh penjelasan yang lebih lengkap langkah-langkah pembuatan program dan penjelasan kode secara detail beserta dengan contoh project pada artikel ini anda dapat membaca e-book saya yang berjudul  TRIK DASAR BELAJAR VISUAL BASIC 6.0

Posted in: Visual Basic