Tutorial Untuk Menyembunyikan Pointer Mouse di Visual Basic 6.0

Apabila program yang anda buat menggunakan sistem full shortcut pada keyboard untuk lebih mempercepat proses, trik berikut dapat anda gunakan untuk menyembunyikan pointer mouse.

1.      Bukalah program visual basic dan mulailah dengan form baru.

2.      Masukkan dua komponen CommandButton ke dalam area form.

3.      Klik ganda di dalam area form, kemudian ubahlah prosedur Form_Load menjadi Unload dan ketiklah perintah di bawah ini:

1 2 3	Option Explicit Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
4 5 6	Private Sub Form_Unload(Cancel As Integer) ShowCursor True End Sub

Keterangan Kode

1-2 4

Perintah yang akan mewajibkan anda mendeklarasikan semua variabel yangdigunakan dan mendeklarasikan fungsi API. Memanggil perintah untuk menampilkan kembali ikon pointer mouse pada saat form ditutup.

4.      Kembali ke tampilan desain form, kemudian klik ganda salah satu tombol dan selanjutnya ketiklah perintah di bawah ini pada evant Click pada masing – masing komponen.

1 2 3	Private Sub Command1_Click() ShowCursor True End Sub
4 5 6	Private Sub Command2_Click() ShowCursor False End Sub

Keterangan Kode

2 5	Memanggil perintah untuk menampilkan kembali ikon pointer mouse pada saat tombol di klik. Memanggil perintah untuk menyembunyikan ikon pointer mouse pada saat tombol di klik.

Untuk mencoba hasilnya tekan tombol F5 pada keyboard.