Selasa, 02 Agustus 2011

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

Ditulis Oleh : Wahyu Aji // 19.34
Kategori:

0 komentar:

Posting Komentar