MEMBATASI AREA GERAK MOUSE

Membatasi Area Gerak Mouse

Assalamualaikum, wr, wb..

Kali ini kita akan membahas tentang mouse, Area gerak pointer mouse yang tadinya bisa digerakan kemana-mana selebar layar monitor akan kita persempit supaya tidak bisa keluar dari daerah yang kita tentukan, jadi akhirnya si tikus (mouse) tidak bisa keluar dari perangkapnya, hehe.. keren kan?..

OC deh kita mulai ya..

Langkah-langkah untuk membatasi area gerak mouse.

1. Buka program Visual Basic dan mulai dengan form baru.

2. Atur ScaleMode Form menjadi 1-Twip

3. Masukan 1 objek tombol dan ubah Captionnya menjadi "keluar"

4. Double klik pada area Form dan masukan variabel dibawah ini pada bagian Declaration

Dim nilaiX As Long
Dim nilaiY As Long
Dim nilaibalik As Long
Dim nilaibaru As area 

5. Lalu masukan listing kode dibawah pada prosedur Form_Activate() dan  Form_MouseMove(...)

Private Sub Form_Activate()

'Ambil nilai Twips per pixel (scalemode form harus diatur menjadi Twips)
nilaiX = Screen.TwipsPerPixelX
nilaiY = Screen.TwipsPerPixelY

'Set region kursor sesuai ukuran form
With nilaibaru
    .Left = Me.Left / nilaiX
    .Top = Me.Top / nilaiY
    .Right = .Left + Me.Width / nilaiX
    .Bottom = .Top + Me.Height / nilaiY
End With
nilaibalik = ClipCursor(nilaibaru)
End Sub 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Ambil nilai Twips per pixel (scalemode form harus diatur menjadi Twips)
nilaiX = Screen.TwipsPerPixelX
nilaiY = Screen.TwipsPerPixelY

'Set region kursor sesuai ukuran form
With nilaibaru
    .Left = Me.Left / nilaiX
    .Top = Me.Top / nilaiY
    .Right = .Left + Me.Width / nilaiX
    .Bottom = .Top + Me.Height / nilaiY
End With
nilaibalik = ClipCursor(nilaibaru)
End Sub

6. Dan masukan juga Kode dibawah pada prosedur tombolnya,

Private Sub Command1_Click()
Unload Me
End Sub

7. Selanjutnya pada prosedur Form_Unload() jangan lupa, supaya nanti ketika form ditutup area pointer mouse kembali seperti semula. Masukan listing kode dibawah ini pada prosedur Form_Unload().

Private Sub Form_Unload(Cancel As Integer)
Dim nilaibalik As Long
Dim nilaibaru As area
'set region cursor mouse ke awal
With nilaibaru
    .Left = 0
    .Top = 0
    .Right = Screen.Width
    .Bottom = Screen.Height
   
End With
nilaibalik = ClipCursor(nilaibaru)
End
End Sub

8. Langkah Terakhir buatlah file modul dan tempatkan kode dibawah ini pada modul

Type area
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Declare Function ClipCursor Lib "user32" (areaBaru As Any) As Long

9.Selesai. Coba anda jalankan dengan menekan tombol F5 pada keyboard anda dan lihat hasilnya...

Selamat mencoba...

Wassalam... n smoga bermanfaat..