Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.MousePointer = 99 Label1.MouseIcon = LoadPicture("picture\H_POINT.CUR") End Sub
粘贴下列代码到 form 中 (画个 label1) hand.cur为一个光标文件(若需要给个email,mailto:[email protected])Option Explicit Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.MousePointer = 99 Label1.MouseIcon = LoadPicture("E:\ICON\Hand.CUR")End Sub
这样,你先把这个label.pointer=99label1.mouseicon=手型图标文件名
去网上down一个
Label1.MouseIcon = "d:\hand.ico"
Label1.MousePointer = 99
Label1.MouseIcon = LoadPicture("picture\H_POINT.CUR")
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.MousePointer = 99
Label1.MouseIcon = LoadPicture("E:\ICON\Hand.CUR")End Sub