我想实现鼠标指针移动到窗口某个区域或某个控件上面时，鼠标指针图像自动改变，应该怎么做？

Question

我想在在运行程序时，鼠标移动到imge1控件时，鼠标指针自动变成一个手指的图标
应该怎样实现，请指教

Answer 1

将MousePointer 设置为 99 '自定义
将MouseIcon设置为指定的手指图标就行了~~

Answer 2

将imge1控件的MousePointer 设置为 99 '自定义
将imge1控件的MouseIcon设置为指定的手指图标就行了~~

Answer 3

将imge1控件的MousePointer 设置为 99 '自定义
将imge1控件的MouseIcon设置为指定的手指图标就行了~~

Answer 4

1-在imgel控件的mousemove事件中改变MousePointer为99 '自定义
将MouseIcon设置为指定的手指图标
2-在imgel控件的容器控件的mousemove事件中把将MousePointer改回原值就可以

Answer 5

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 2End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MousePointer = 0
End Sub

Answer 6

将imge1控件的MousePointer 设置为 99 '自定义
将imge1控件的MouseIcon设置为指定的手指图标

Answer 7

1-在imgel控件的mousemove事件中改变MousePointer为99 '自定义
将MouseIcon设置为指定的手指图标
2-在imgel控件的容器控件的mousemove事件中把将MousePointer改回原值就可以
Me.MousePointer = 11
Me.MousePointer = 0

Answer 8

将图像控件的属性设为
MousePointer=99
MouseIcon=图标文件名
如要在程序改变
只要改变属性就ＯＫ了

Answer 9

将MousePointer 设置为 99    '自定义
将MouseIcon设置为指定的手指图标或其他图标就行了.

Answer 10

1、Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer=99
MouseIcon=图标文件名1End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer=99
MouseIcon=图标文件名2
End Sub

Answer 11

设那个控件的 mousepointer=XX
若那里没有你想要的光标还可这样设
mouseicon=你的光标
mousepointer=99

Answer 12

在那个控件的mousemove时间里执行修改鼠标图标的语句！！！

Answer 13

Image的MouseMove事件中执行楼上的就可以了，然后到Form_MouseMove事件中执行mousepointer=0就行了。