Tutorial kali ini kita
akan mencoba untuk mamasukkan ikon pointer mouse dari file animasi (.ani).
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Masukkan du komponen CommandButton ke dalam area form,
sehingga tampak seperti gambar dibawah ini :
3.
Selanjutnya tambahkan sebuah modul ke
dalam project dan ketiklah perintah API dibawah ini ke dalam modul yang baru
kita tambahkan tadi.
1
2
3
|
Public
Const GCL_HCURSOR = -12
Declare
Function LoadCursorFromFile Lib "user32" Alias
"LoadCursorFromFileA" (ByVal lpfilename As String) As Long
Declare
Function SetClassLong Lib "user32" Alias "SetClassLongA"
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
|
4.
Kembali ke tampilan desain form,
kemudian klik ganda di dalam area form dan ubahlah event Form_Load menjadi Unload.
1
2
|
Dim
lResult As Long
Dim
mhAniCursor As Long
|
3
4
5
|
Private
Sub Form_Unload(Cancel As Integer)
lResult
= SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
End
Sub
|
Keterangan
Kode
1-2
4
|
Mendeklarasikan
beberapa variabel pada bagian general, supaya dapat dibaca pada setiap
prosedur.
Mengisi
variabel lResult dengan nilai
untuk menjadikan ikon pointer mouse seperti semula.
|
5.
Aktifkan kembali tampilan desain form
dan klik ganda tombol Animasi atau Command1, setelah itu ketiklah perintah
di bawah ini.
1
2
3
|
Private
Sub Command1_Click()
mhAniCursor
= LoadCursorFromFile(App.Path & "\sword.ani")
lResult
= SetClassLong((hwnd), GCL_HCURSOR, mhanicrusor)
End
Sub
|
Keterangan
Kode
2
3
|
Mengisi
variabel mhAniCursor denan file
animasi sward.ani.
Mangisi
variabel lResult dengan nilai
untuk menjadikan pointer mouse menjadi ikon animasi sword.ani yang terdapat pada variabel mhAniCrusor.
|
6.
Kembali ketampilan desain form dan klik
ganda tombol Normal atau Commad2. Ketiklah perintah dibawah ini
untuk menjadikan ikon pointer mouse seperti semula.
1
2
3
|
Private
Sub Command2_Click()
lResult
= SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
End
Sub
|
7.
Untuk melihat hasilnya, tekan tombol F5 pada keyboard anda.
EmoticonEmoticon