! Tutorial membuat berkedip pada TitleBar form visual basic 6.0

Jumat, 23 September 2011
Anda dapat mencoba trik berikut ini jika anda ingin tampilan form yang anda buat menjadi lebih menarik.
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