Membuat Mouse Over Simbol Tangan (Hand) di VB6 - Ikon standar dari mouse visual Basic adalah simbol Arrow (anak panah). Ketika kita membuat program Visual Basic kemudian hasilnya kita jalankan maka icon mouse berbentuk anak panah standar, begitupun ketika mouse melintas diatas objek atau link tertentu simbol mouse tetap tidak berubah.
Pernahkan Anda berkunjung di sebuah website?,dimana ketika kita mengarahkan Mouse kita ke link Website tersebut maka akan ada efek tertentu ketika Mouse di arahkan ke atas link. Efek yang di timbulkan bermacam-macam tergantung si pembuat websitenya,Tapi umumnya efek Mouse pada link adalah berbentuk tangan (hand) ketika di sorot Mouse.
Pada pertemuan kali ini saya ingin berikan tips bagaimana merubah ikon mouse ketika melintas diatas objek atau link menjadi berubah dengan icon tangan (Hand). Misalnya mouse melintas diatas objek Commandbutton atau link maka automatis simbol mouse berubah selama barada di atas objek tersebut.
Bagi Anda yang penasaran bagaimana cara membuatnya mari simak langkah-langkah berikut dibawah ini dalam pembuatannya:
Membuat Mouse Over Simbol Tangan (Hand) di VB6
1. Buka Form Standar VB Anda
2. Tanamkan 1 CommandButton di Form
3. Lalu copy-paste kode dibawah ini :
'set CursorTangan
Option Explicit
Private Declare Function LoadCursor Lib "User32.dll" Alias "LoadCursorA" (ByVal hinstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "User32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_Hand As Long = 32649
Private Type CursorTangan
cursor As Long
End Type
Dim Hand As CursorTangan
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursor Hand.cursor
End Sub
Private Sub Form_Load()
Hand.cursor = LoadCursor(0, IDC_Hand)
End Sub
4. Simpan hasil pekerjaan Anda dan jalankan program.
5. Bila program Anda berhasil di jalankan kemudian arahkan mouse Anda ke objek CommanButton, perhatikan icon mouse berubah menjadi icon tangan.
Demikian tip cara Membuat Mouse Over Simbol Tangan (Hand) di VB6. Semoga bermanfaat, selamat mencoba semoga berhasil.
No comments:
Post a Comment