一个非常简单的问题!

Question

在button的mouseover事件中加代码呀。

Answer 1

还需要修改mousepointer=99(custom)

Answer 2

在button的mouseover事件中加代码呀。
cursor属性改了

Answer 3

Option ExplicitDim Youricon As String
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command1.MousePointer = 99
    Command1.MouseIcon = LoadPicture(Youricon)
End Sub
Private Sub Form_Load()
    Youricon = "d:\ddd.ico"
End Sub

Answer 4

Private Sub cmdSysInfo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)cmdSysInfo.MousePointer = 99
cmdSysInfo.MouseIcon = LoadPicture(App.Path & "\OOFL.ICO")
End Sub