Mnegunci gerakan mouse di vb 6.0

Unknown | 07:30 | vb6

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

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

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