Kali ini, saya akan berbagi tentang cara membuat program sederhana untuk menyembunyikan kursor mouse dan
mengembalikan kembali kursor mouse yang hilang.
Buatlah sebuah form baru di visual basic 6.0, kemudian tambahkan 2 buah command button, dengan nama COmmand1 dan Command2.
Kemudian tambahkan modul pada project, dengan mengklik Project, Add Module.
Di dalam module tambahkan kode pemrograman berikut :
Public Declare Function ShowCursor Lib “user32″ (byVal bShow As Long) As Long
Kemudian buka jendela kode pada form yang telah kita buat, kemudian tuliskan pada kode pemrograman sebagai berikut :
Private Sub Command1_Click()Sembunyi=ShowCursor(False) ‘Menyembunyikan kursorEnd SubPrivate Sub Command2_Click()
Sembunyi=ShowCursor(True) ‘Menampakkan kursor yang hilang
End Sub
Jika program tersebut dijalankan dan kita
menekan Command1, maka kursor akan hilang, dan jika kita kemudian
menekan Command2, maka kursor akan kembali nampak lagi.
Demikian,Semoga bermanfaat!!!!
Demikian,Semoga bermanfaat!!!!