VB里怎样改变鼠标的类型为"连接选择"(超连接时的手型),不要用自定义鼠标图方法

Question

我是网页中最常用到的在VB中怎么实现,在系统的鼠标设置里改变"连接选择"的指针,在我软件里要同步
在控件的MousePointer属性又没有手型这项,如用自定义又不会随系统鼠标设置改变而改变,SendMessage能做到吗?
只好请教高手

Answer 1

用MouseIcon属性设置你想要的图标，然后MousePointer属性设置成99就可以了。

Answer 2

严重同意这个意见，这个MouseIcon用的图形是很小的ICO，可以一图多用

Answer 3

来人啦
把鼠标TreeView控件的节点上时这手型鼠标(这是系统默认的鼠标指针,不是控件自身带的)就出来的,怎么我就不行了

Answer 4

写出来了,原来这么简单Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function LoadCursorBynum& Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long)
Private Const IDC_HAND = 32649&Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Const IDC_HAND = 32649&
    Static hCursor As Long
    If hCursor = 0 Then hCursor = LoadCursorBynum&(0&, IDC_HAND)
    SetCursor hCursor
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Const IDC_HAND = 32649&
    Static hCursor As Long
    If hCursor = 0 Then hCursor = LoadCursorBynum&(0&, IDC_HAND)
    SetCursor hCursor
    Label1.Caption = "哈哈,系统手形光标..."
End Sub