Monday, October 31, 2011

program sederhana untuk menyembunyikan kursor mouse dan mengembalikan kembali kursor mouse yang hilang

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 kursor
End Sub
Private 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!!!!

No comments:

Post a Comment