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.

  • 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.

Image

  • 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

 

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

 

Pos ini dipublikasikan di Uncategorized. Tandai permalink.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s