Membuat Kursor Tangan Pada VB

view plainprint?

1. '------------------------------------------  
2. 'Start hand cursor variable declaration  
3. Public Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long  
4. Public Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long  
5. Public Const IDC_HandCur As Long = 32649  
6. Public Type CursorTangan  
7. Cursor As Long  
8. End Type  
9. Public HandCur As CursorTangan  
10. 'End hand cursor variable declaration  
11. '------------------------------------------  
12.   
13. Private Sub cmdBrowse_Click()  
14.     periode_supervisi = "untuk_laporan"  
15.     laporan_per_periode.Enabled = False  
16.     Load browse_periode  
17.     browse_periode.Show  
18. End Sub  
19.   
20. Private Sub cmdBrowse_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)  
21.     SetCursor HandCur.Cursor  
22. End Sub  
23. Private Sub cmdBrowse_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)  
24.     SetCursor HandCur.Cursor  
25. End Sub  

Free Template Blogger collection template Hot Deals SEO