Trik berikut ini akan menghasilkan efek berkedip pada TitleBar form tersebut.
Berikut langkah-langkah pembuatannya :
1. Siapkan aplikasi baru, lalu desainlah form tersebut dengan menambahkan sebuah Timer.
2. Tuliskan listing program selengkapnya berikut :
Private Declare Function FlashWindow Lib "USER32"_
(ByVal HWND As Long, BYVALBINVERT As Long) As Long
Private Sub Form_Load ()
Timer1.Interval = 100
End Sub
Private Sub Timer1.Timer ()
Dim nReturnValue As Long
nReturnValue = FlashWindow (form1.HWND, True)
End Sub
3. Jalankan aplikasi tersebut. ketika anda menjalankan aplikasi, maka akan tampil efek berkedip-kedip pada TitleBar Form secara terus menerus.
CATATAN : Anda bisa mengatur kecepatan interval waktunya sesuai kebutuhan anda :)
0 komentar:
Posting Komentar