Deteksi Posisi Cursor Mouse Menggunakan VB6

Bismillah,,,

   Mungkin anda pernah melihat tampilan suatu program yang memiliki pendeteksi posisi cursor mouse. Sekarang anda pun dapat melengkapi form dengan program pendeteksi posisi cursor, karena Visual Basic sudah menyediakan sebuah fungsi untuk keperluan tersebut. Fungsi API yang digunakan untuk mendeteksi posisi cursor tersebut adalah Function GetCursorPos. Dengan fungsi ini, koordinat posisi cursor akan ditampilkan dalam satuan pixel.

   Tip program yang akan saya berikan Dibagi menjadi dua, yaitu program pendeteksi pasif dan program pendeteksi aktif. Dan masing - masing program tersebut akan kita bahas satu persatu.

Program Pendeteksi Pasif

   Program ini disebut pasif, karena tidak dapat memberikan tampilan posisi cursor secara otomatis. Posisi cursor baru akan ditampilkan setelah kita klik tombol Command dimana code nya dituliskan.

Berikut ini langkah - langkah pembuatannya :

• Letakkan dua buah Label dan sebuah CommandButton pada Form anda.

Gambar 1. Tampilan Form Setelah Diberi Kontrol

• Buka jendela code, lalu pada bagian general Declaration ketikkan kode berikut ini :

----------------------------------------------------

Private Declare Function GetCursorPos Lib "user32" (liPoint As pointapi) As Long

Private Type pointapi

x As Long

y As Long

End Type

Private Sub Command1_Click()

Dim lpPoint As pointapi

GetCursorPos lpPoint

Label1 = "X = " & lpPoint.x

Label2 = "Y = " & lpPoint.y

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1_Click

End If

End Sub

Private Sub Form_Load()

Label1.Caption = "X = "

Label2.Caption = "Y = "

End Sub

----------------------------------------------------

• Berikut ini contoh - contoh tampilan program yang sudah dibuat.

Gambar 2. Tampilan Program Yang Sudah Selesai

* Silahkan Modif Sendiri Form Anda Supaya lebih menarik.

   Gambar diatas merupakan hasil tampilan pada saat cursor mouse berada di daerah tombol Command. Dan untuk mendeteksi posisi cursor pada saat berada di luar tombol Command, tentu saja anda hanya perlu menekan tombol ENTER karena sudah pasti tombol Command tersebut akan tersorot oleh TabIndex.

Gimana gan, Pastinya sudah ngerti dong. Ok, Kalau begitu kita menuju ke langkah berikut nya yaitu

Program Pendeteksi Aktif

   Program yang satu ini bisa di katakan lebih canggih dari program sebelumnya, karena program ini dapat mendeteksi posisi cursor secara otomatis, jadi anda tidak perlu meletakkan tombol Command pada form anda. Sebagai gantinya, anda perlu meletakkan sebuah Timer.

   Penasaran, berikut ini langkah - langkah pembuatannya :

• Letakkan 2 Buah label dan satu buah Timer pada Form anda.

Gambar 3. Tampilan Form Setelah Di berikan Control

• Buka jendela Code, lalu pada bagian General Declaration ketikkan code berikut ini :

----------------------------------------------------

Private Declare Function GetCursorPos Lib "user32" (liPoint As pointapi) As Long

Private Type pointapi

x As Long

y As Long

End Type

Dim a As pointapi

Dim b As Long

Dim c As Long

Private Sub Form_Load()

Timer1.Interval = 1

End Sub

Private Sub Timer1_Timer()

mousepos

End Sub

Private Sub mousepos()

ret = GetCursorPos(a)

b = a.x

c = a.y

Label1.Caption = b

Label2.Caption = c

End Sub

----------------------------------------------------

Anda dapat mengatur kecepatan pendeteksian dengan mengubah Interval Timer pada code :

Timer1.Interval = 1

Semakin besar angka yang anda masukkan, perubahan angka akan menjadi semakin lambat, tidak percaya. Buktikan sendiri. :D