Cara Membuat Kursor Mouse Tetap Berada di Dalam Form

Cara Membuat Kursor Mouse Tetap di Dalam Form - Kali ini sebuah tip yang di bilang cukup unik yaitu Cara Membuat Kursor Mouse Tetap di Dalam Form.Kenapa dikatakan unik karena kursor yang kita tampilkan nanti tidak akan bisa keluar dari form sehingga Anda tidak bisa meng-close program ini seperti biasanya,untuk itu dalam pembuatan tip ini perlu di berikan tombol close atau tombol normal yang nantinya kursor akan berjalan normal seperti biasanya.

Bagi Anda yang sering pergi ke warnet, mungkin pernah melihat tampilan Windows yang tidak dapat dilewati oleh Qursor sebelum si pengguna mengisi user name dan mengklik tombol Conect untuk mengakses internet..

Hal tentu saja ini sangat menguntungkan bagi si pemilik Warnet karena bagi mereka yang ingin menggunakan komputer mau tak mau harus membayar tarif sesuai dengan tarif pengguna internet ,meskipun belum tentu pengguna tersebut menggunakan internet.


Bagi pemilik komputer umumnya tip ini juga sangat berguna karena tidak sembarangan orang dapat mengakses komputer kita, kecuali kita beritau caranya.

Tip ini mengajarkan kepada Anda bagaimana caranya membuat kursor mouse tetap berada didalam form .Berikut dibawah ini adalah langkah-langkah dalam pembuatannya:

Cara Membuat Kursor Mouse Tetap Berada di Dalam Form

1. Buka Form VB6 Standar EXE
2. Letakan 2 buah CommandButon pada Form

Kontrol Command Button pada Form

Pada desain form diatas ubahlah Commandbutton1  Caption Propertinya menjadi " Qursor tidak bisa keluar", jika tombol ini ditekan maka Qursor mouse tidak bisa keluar dari Form. Sedangkan pada Commandbutton2 ubahlah Caption Propertinya menjadi "Qursor bisa keluar"  tombol ini untuk membuat Qursor kembali Normal atau bisa keluar apabila ditekan.

2. Selanjutnya buka jendela kode lalu ketikan kode dibawah berikut ini:

Private Declare Sub ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINT)
Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal X As Long, ByVal Y As Long)
Private Declare Sub GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT)

Private Type RECT
Left As Integer
Top As Integer
Right As Integer
Bottom As Integer
End Type

Private Type POINT

X As Long
Y As Long
End Type


Private Sub Command1_Click()
Dim Client As RECT
Dim Up As POINT
ClientToScreen Me.hwnd, Up
GetClientRect Me.hwnd, Client
OffsetRect Client, Up.X, Up.Y
Up.X = Client.Left
Up.Y = Client.Top
ClipCursor Client
End Sub

Private Sub Command2_Click()
ClipCursor ByVal 0&
End Sub

3. Simpanlah hasil pekerjaan Anda, jalankan Program kemudian tekan tombol "Qursor tidak bisa keluar".Perhatikan apa yang terjadi...

Demikian tip Cara Membuat Kursor Mouse Tetap Berada di Dalam Form dengan VB6.Selamat mencoba semoga sukses....

Baca juga: Cara Menyembunyikan kursor Mouse

Related Post: Qursor