在这个控件的mousemove事件中加入代码,改变鼠标的图标 例子为一个label控件Private Sub Label8_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label8(Index).ForeColor = vbRed Label8(Index).FontUnderline = True Label8(Index).MousePointer = 99 End Sub
例子为一个label控件Private Sub Label8_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Label8(Index).ForeColor = vbRed
Label8(Index).FontUnderline = True
Label8(Index).MousePointer = 99
End Sub
首先要一个手指形状的鼠标文件,然后先设其MousePointer属性设成99-Custom,再在MouseIcon中装入你那鼠标文件就可以了!