Cara Mendapatkan Waktu ketika Double Click di VB6

Mendapatkan Waktu ketika Double Click artinya adalah ketika kita akan men-double klik maka akan di tampilkan sebuah waktu lamanya double klik dalam satuan milliseconds.Perhatikan Gambar dibawah ini:

Saat Form di DoubleClick

Berikut dibawah ini adalah cara untuk mendapatkan waktu saat Doubel klik :

1. Buka Form VB6 Anda
2. Tambahkan Label dan Textbox pada form
3. Kemudian ketik kode dibawah ini:


Option Explicit
Private Declare Function GetDoubleClickTime Lib "user32" () As Long

Private Sub Form_DblClick()
Dim ret As Long
ret = GetDoubleClickTime
Text1.Text = ret & " Milliseconds"
End Sub

4. Simpan hasil pekerjaan Anda dan jalankan program

Sekarang coba Doubel Click Form kosong, maka akan muncul waktu dalam satuan milliseconds di textbox.

Mudah bukan?, selamat mencoba semoga sukses.....

No comments: