Mengunci Gerakan Mouse

Tips Dan Trik Visual Basic - Mengunci Gerakan Mouse

Mouse adalah bagian yang cukup penting dari sebuah komputer karena sebagian besar program memerlukan mouse dalam menjalankannya, meskipun sebuah program mempunyai shortcut keyboard untuk menjalankan perintahnya, akan tetapi masih banyak dan sebagian besar pengguna computer mengunakan mouse untuk menjalankan program terutama bagi yang tidak tahu dan tidak hapal shortcut keyboard suatu program tertentu. Sekarang kita mencoba membuat program untuk mengunci gerakan mouse sehingga pointer mouse selalu berada di tengah-tengah layar monitor dan tidak dapat digerakkan.

Marilah kita mulai bagaimana cara membuatnya.

1. Buatlah project baru pada Visual Basic 6.0, pilih Standard.exe kemudian masukkan masing –masing sebuah CommandButton, Label dan Timer ke form dan jangan lupa member nilai Interval pada Timer dengan nilai 1, caption dari CommandButton dengan “Kunci Mouse” serta caption dari Label dengan “Untuk mengembalikan ke normal tutup program dengan menekan Alt+F4” kemudian susunlah tampilan form seperti gambar berikut.
   
   
2. Copy paste source code berikut ke Kode Editor pada Visual Basic 6.0



/* Berikut Codinganya
----------------------------------------------- */
Private Type POINTAPI x As Long y As Long End Type Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Dim P As POINTAPI Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) Timer1.Enabled = False End Sub Private Sub Timer1_Timer() P.x = GetDeviceCaps(Form1.hdc, 8) / 2 P.y = GetDeviceCaps(Form1.hdc, 10) / 2 ret& = SetCursorPos(P.x, P.y) End Sub



3. Jalankan program, tekan tombol “Kunci Mouse” untuk mengunci gerakan mouse dan tutup program dengan menekan kombinasi tombol Alt + F4 untuk mengembalikan ke normal