vb中如何才能有手型的光标?
发布时间:2020-12-17 08:17:35 所属栏目:百科 来源:网络整理
导读:各位搞过VB编程的同学肯定知道,vb默认是调不出手型光标(如网页上的链接光标)的,下面这个方法可以帮你做到。 Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long Private Sub Command1_MouseDown(Button As Integer,Shift
各位搞过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,Y As Single) If Button = 0 Then SetCursor 65581 End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |