Sabtu, 29 Oktober 2011

Menyembunyikan Kursor Dari Tampilan Layar Monitor

Berikut ini trik yang dapat Anda gunakan untuk menyembunyikan kursor dari tampilan layar monitor.

Persiapan: 1 Form, 1 Module, dan 1 Commandbutton.

Code::

codingx/ isi pda module
--------------------------------

Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)

'-------------------------------


'--- Coding ini di Form Anda...
Private Sub Command1_Click() 'Ketika Anda mengklik tombol Command1, tampilan
ShowCursor& 0 'kursor mouse di layar Anda akan
End Sub

Private Sub Form_Unload(Cancel As Integer) 'Ketika Anda keluar dari program
ShowCursor& 1 'dengan menekan F4
End Sub


0 comments: