Trik Menjebak Cursor

Sekarang tiba giliran saya untuk memposting bagi para pembuat atau pecinta program dari VB6.0 Karena bagi mereka untuk mendapatkan suatu kode yang bisa diimplementasikan kedalam aplikasi program Visual basic tidaklah semudah menggoreng tahu. Walaupun postingan kali ini kelihatan agak melenceng dari topik, tapi masih tetap dalam koridor Tip & Trik.

Kalau anda seorang programmer atau paling tidak anda suka
membuat software, maka mungkin terlintas dalam benak anda
satu pertanyaan bagaimana agar orang lain yang memakai software
buatan anda tidak buru2 meninggalkan Form yang sudah anda buat
dengan susah, sebelum apa yang ingin anda sampaikan terselesaikan.
untuk keperluan itu hanya ada satu cara yaitu Menjebak Cursor.
yang mana saat program anda di run, maka Cursor tidak akan dapat
dipindahkan kemanapun kecuali di dalam program anda, nah inilah caranya

Private Type RECT
left As Long
top As Long
right As Long
bottom As Long
End Type
Private Type POINT
x As Long
y As Long
End Type
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Sub Command1_Click()
'Batasi gerakan Cursor hanya disekeliling form.
Dim client As RECT
Dim upperleft As POINT
'ambil informasi lebar window
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
'Convert koordinate window ke koordinate screen
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub
Private Sub Command2_Click()
ClipCursor ByVal 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
ClipCursor ByVal 0&
End Sub

Kode pada Command1 adalah kode untuk memulai penjebakan mouse
atau Cursor, kalau anda mau bisa diletakan di dalam event Form Load.
dan kode yang ada dibawah Command2, adalah kode untuk melepaskan
kembali. kode ini boleh anda taruh pada elemen atau teks terahir
sekiranya maksud anda telah tercapai.

Ok sampai disini, semoga saja bermanfaat buat anda.
oleh karena isi blog ini tidak dapat dikopas, maka kalau mau download silahkan di sini: DOWNLOAD atau tinggalkan komen, nanti akan dikirim via email.(gratis..kok)