FLASH
TITLE BAR
Pasti anda pernah
melihat title bar sebuah form yang berkedip saat proses telah selesai. Berikut
trik untuk membuat animasi title bar berkedip.
1.
Bukalah program Visual Basic 6.0 dan
mulailah dengan form yang baru.
2.
Masukkan dua komponen CommandButton kedalam area form dan
ubahlah properties Caption-nya
sehingga tampak seperti gambar dibawah ini :
1.
Aktifkan jendela kode dan ketikkan
perintah di bawah ini pada bagian General.
|
1
2
3
4
5
6
7
8
9
10
11
12
|
Public
Sub Flash(ByRef Form As Form, ByVal AniFlash As Boolean)
Dim
StartAni As Single
If
AniFlash Then mulai = True Else mulai = flase
Do
While mulai
FlashWindow Form.hwnd, True
StartAni = Timer
Do While Timer < StartAni + 0.5
DoEvents
Loop
Loop
If
Not mulai Then FlashWindow Form.hwnd, flase
End
Sub
|
Keterangan
Kode
1-2
3
4-5
6-8
9-12
13
|
Mendeklarasikan
fungsi API dan mendeklarasikan variabel mulai dengan tipe data Boolean (True/False).
Membuat
sebuah fungsi subroutine dengan nama Flash
yang memiliki nilai input variabel Form
dan AniFlash.
Mendeklarasikan
variabel StartAni. Kemudian
membuat kondisi apabila variabel AniFlash
sama dengan True, maka variabel mulai diberi nilai default True dan apabila sebaiknya variabel mulai diberi nilai False.
Selanjutnya
membuat perintah pengulangan selama nilai variabel mulai sama dengan true. Mengisi fungsi API FlashWindow dan variabel StartAni.
Kemudian
melakukan pengulangan di dalam perintah pengulangan pertama selama nilai dari timer lebih kecil variabel
startAni+0.5.
Jika
nilai variabel mulai tidak sama
dengan true, maka fungsi API FlashWindow diberi nilai Flase.
|
2.
Kembali ke tampilan desain form, klik
ganda salah satu tombol. Kemudian masukkan perintah di bawah ini pada prosedur Command1_Click dan Command2_Click untuk mengaktifkan dan menonaktifkan fungsi Flash yang telah anda buat pada bagian General.
|
1
2
3
|
Private
Sub Command1_Click()
Flash Form1, True
End
Sub
|
|
4
5
6
|
Private
Sub Command2_Click()
Flash Form1, False
End
Sub
|
Untuk mencoba hasilnya, tekan tombol F5 pada keyboard
EmoticonEmoticon