Auto Close pada VB 6.0

Nih ada lagi source code yang cukup berguna bagi Anda. Biasanya Auto Close ini digunakan untuk notifikasi seperti yang ada pada Anti Virus Smadav.

Ini source kode dan contoh cara pembuatannya.

1. Buat Project VB 6.0 baru.
2. Pada Form yang aktif tambahkan 1 Commandbutton dan 1 Timer.
3. Atur Properties Commandbutton dengan Name=cmdClose dan Caption=Close.
4. Atur Properties Timer dengan Enabled=False dan Interval=1000.
5. Buka jendela source code dan ketikkan deklarasi di bawah ini.

Dim Second As Integer

6. Klik 2x Timer dan pada Timer1_Timer() copy paste kode di bawah ini.

If (Second < 0) Then End
cmdClose.Caption = "&Close (" & Second & ")"
Second = Second - 1

7. Klik 2x pada Form dan pada Form_Load() ketikkan kode di bawah ini.

Second = 10
Timer1.Enabled = True

8. Klik 2x Commandbutton dan pada cmdClose_Click() ketikkan kode di bawah ini.

End

9. Jalankan dan lihat hasilnya. Selesai dan terima kasih.

Untuk contoh source code nya Anda bisa download disini.