Selasa, 15 Februari 2011
0
Hidden Cursor dengan VB.6
'Deskripsi: Menyembunyikan kursor dari tampilan layar monitor.
'Pembuat : Efan Fadilah ( Hackerdjail2gmail.com
'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
' 2. Copy-kan coding berikut masing-masing ke Module dan Form Anda.
'-------------------------------------------------------------------------------
'--- Coding ini di Module Anda...
Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
'--- Batas coding di Module...
'--- Coding ini di Form Anda...
Private Sub Command1_Click() 'Ketika Anda mengklik tombol Command1, tampilan
ShowCursor& 0 'kursor mouse di layar Anda akan hilang...
End Sub
Private Sub Form_Unload(Cancel As Integer) 'Ketika Anda keluar dari program
ShowCursor& 1 'dengan menekan F4, kursor akan kelihatan kembali.
End Sub
'--- Batas coding di Form...
'Pembuat : Efan Fadilah ( Hackerdjail2gmail.com
'Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
' 2. Copy-kan coding berikut masing-masing ke Module dan Form Anda.
'-------------------------------------------------------------------------------
'--- Coding ini di Module Anda...
Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
'--- Batas coding di Module...
'--- Coding ini di Form Anda...
Private Sub Command1_Click() 'Ketika Anda mengklik tombol Command1, tampilan
ShowCursor& 0 'kursor mouse di layar Anda akan hilang...
End Sub
Private Sub Form_Unload(Cancel As Integer) 'Ketika Anda keluar dari program
ShowCursor& 1 'dengan menekan F4, kursor akan kelihatan kembali.
End Sub
'--- Batas coding di Form...
Langganan:
Posting Komentar (Atom)
0 Responses to “Hidden Cursor dengan VB.6”
Posting Komentar