MyException - 我的异常网
当前位置:我的异常网» VB » vb中怎么才能有手型的光标

vb中怎么才能有手型的光标

www.myexceptions.net  网友分享于:2013-04-10  浏览:10次
vb中如何才能有手型的光标?

各位搞过VB编程的同学肯定知道,vb默认是调不出手型光标(如网页上的链接光标)的,下面这个方法可以帮你做到。

 

Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then SetCursor 65581
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 0 Then SetCursor 65581
End Sub

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有