level 6
怎么没人回答啊?
2010年04月10日 12点04分
level 6
https://imgsa.baidu.com/%C8%B8%B3%B2vb%B6%B9%BD%AC/pic/item/6bee44f97816c929a9d311d0.jpg
鼠标指针的文件名为： HAND.CUR
自己修改。。。
2010年04月10日 12点04分
4
鼠标指针的文件名为： HAND.CUR
自己修改。。。
level 1
'上述方法不是系统默认手型指针
Option Explicit
Private Const IDC_HAND As Long = 32649&
Private Declare Function LoadCursorA Lib "user32" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private hHandCur As Long
Private Sub Form_Load()
hHandCur = LoadCursorA(0&, IDC_HAND)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursor hHandCur
End Sub
2010年04月10日 13点04分
5
Option Explicit
Private Const IDC_HAND As Long = 32649&
Private Declare Function LoadCursorA Lib "user32" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private hHandCur As Long
Private Sub Form_Load()
hHandCur = LoadCursorA(0&, IDC_HAND)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursor hHandCur
End Sub
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
level 13
level 0
level 0
可以使用控制面板里的 进入控制面板 选择鼠标＼指针＼自定义指针还是浏览我记不清了 弹出通用对话框地址栏的列表 记住所在的地址 再在VB的自定义指针里进入这个路径找
2010年04月11日 02点04分
10
