Tutorial Visual Basic 6.0 untuk membatasi ruang gerak mouse

Terkadang ada saja user yang megklik di luar area form, sehingga form tidak dalam keadaan aktif. Untuk menghindari hal tersebut anda dapat menggunakan trik berikut :

1.      Bukalah program visual basic dan mulailah dengan form baru.

2.      Masukkan sebuahkomponen CheckBox ke dalam area form sehingga tampak seperti gambar dibawah ini :

                                                                                                  

  

3.      Aktifkan tampilan jendela kode, kemudian ketiklah perintah di bawah ini pada bagian general.

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit Private Type posisi     kiri As Long     kanan As Long     atas As Long     bawah As Long End Type Private Type titik     x As Long     y As Long End Type Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, point As titik) As Long

Keterangan Kode

1 2-13

Perintah yang akan mewajibkan anda mendeklarasikan semua variabel yang digunakan. Membuat tipe data dengan nama posisi dan titik dengan tipe data Long, kemudian mendeklarasikan beberapa fungsi API.

4.      Kembali ketampilan desain form dan klik ganda komponen CheckBox, kemudian ketiklah perintah dibawh ini.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub Check1_Click()     Dim r As posisi     Dim p As titik         If Check1.Value = vbChecked Then         p.x = 0         p.y = 0         ClientToScreen hwnd, p         r.kiri = p.x         r.atas = p.y         p.x = ScaleWidth         p.y = ScaleHeight         ClientToScreen hwnd, p         r.kanan = p.x         r.bawah = p.y         MousePointer = vbHourglass         ClipCursor r     Else         MousePointer = vbDefault         ClipCursor ByVal 0&     End If End Sub

Keterangan Kode

2-3 4 5-9 10-14 15-16 17-19

Mendeklarasikan variabel r dan p dengan tipe data posisi dan titik yang telah kita buat sebelumnya. Membuat kondisi apabila kita memberi tanda cek pada koponen CheckBox, maka peritnah untuk membatasi ruang gerak mouse akan dieksekusi. Memberikan nilai awal titik x dan y dengan nilai posisi 0. Mendapatkan posisi koordinat layar. Kemudian memberi nilai posisi kiri dan atas sesuai dengan titik x dan y. Memberi nilai baru pada titik x dan y dengan nilai skala lebar dan tinggi koordinat layar. Mendapatkan posisi koordinat layar, kemudian memberikan posisi kanan dan bawah sesuai dengan titik x dan y. Mengubah tampilan pointer mouse dan mengaktifkan fungsi API untuk membatasi area kursor. Apabila peritnah pada baris 4 tidak terpenuhi, maka pointer mouse dikembalikan pada posisi awal dan membatalkan perintah pembatalan kursor.

5.      Sebelum kita mencoba program, ubahlah propertis ScaleMode menjadi 3 Pixel. Setelah itu tekan tombol F5 pada keboard anda untuk melihat hasilnya, kemudian beri tanda cek pada opsi batasi ruang gerak mouse.