Membuat Form Berkedip Dengan Visual Basic 6.0

Kalian mungkin sering menggunakan  aplikasi Yahoo Messenger.
Jika ada pesan baru masuk ke Ymsg anda, anda melihat formnya berkedip-kedip di taksbar kalian, nah apakah kalian ingin membuat nya, mari kita coba membuatnya menggunakan visual basic 6.0

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

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

Setelah itu run atau tekan f5 lalu klik command button 1 dan hasil nya akan seperti gambar di bawah ini

pada taksbar dalam kotak merah berwarna kuning itu adalah frmFlash
selesai.....

Tweet