Membuat AutoClose Jika Form Tidak Digunakan VB6
Berikut ini adalah cara memeriksa apakah aplikasi sedang digunakan (aktif) atau tidak (tidak aktif). Jika tidak sedang digunakan selama sekian detik, maka aplikasi langsung keluar.(seperti ScreenSaver Windows). di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 project baru dengan 1 form.2. Tambahkan 1 Timer dan 2 Textbox
3. Copy-kan source code ini ke dalam editor form yang betalian
Dim awal As Date
Dim Gerak As Boolean
Dim Aksi As Boolean
Private Sub Form_Load()
'Inisialisasi semua variabel dan Timer
Gerak = False
Aksi = False
Timer1.Interval = 500
Timer1.Enabled = True
awal = Time
End Sub
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, Y As Single)
'Jika ada pergerakan mouse di form, set waktu mulai
'utk perhitungan durasi dengan waktu saat itu
awal = Time
'Update status...
Aksi = True
End Sub
Private Sub Timer1_Timer()
Dim durasi As Date
Aksi = False
'Periksa...
If Aksi = False Then
Gerak = False
Timer1.Enabled = True
Else 'Jika ada perubahan di Mouse_Move
Gerak = True
Timer1.Enabled = False
End If
Text1.Text = awal
Text2.Text = Time
'Jika tidak ada pergerakan, aktifkan perhitungan durasi
If Gerak = False Then
durasi = Time - awal
'Dalam contoh ini, jika 5 detik aplikasi tidak
'mengalami kegiatan, maka langsung keluar...
If Format(durasi, "hh:mm:ss") = "00:00:05" Then
'Sebelum keluar, bebaskan semua variabel di form ini
Set Form1 = Nothing
Unload Me
End If
End If
End Sub
Tags:
contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module
Posting Komentar untuk "Membuat AutoClose Jika Form Tidak Digunakan VB6"