Question

vb当鼠标移到图片上怎么改变鼠标图片

vb当鼠标移到图片上怎么改变鼠标图片

Answer 1

不知道到底是要改变鼠标形状还是改变图片？
如果是改鼠标形状的话，只要设置目标对象（鼠标移动到的那个对象）的鼠标信息就可以了，一般的对象都有一个属性可以修改鼠标形状的，具体是是什么属性，久了确实不记得了，自己看看吧。
如果是要改变图片的话，那就在目标对象的mousemove 事件里修改就可以了。如果嫌判断麻烦，那就用API吧，仿一个对象的鼠标移入事件就可以了

Answer 2

嗯~
楼上回答很好！

Answer 3

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Sub PictureI1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
IF X>=0 And X<=Picture1.Width And Y>=0 And Y<=Picture1.Height Then
Picture1.MousePointer=2
SetCapture Picture1.Hwnd
Else
Picture1.MousePointer=0
ReleaseCapture
End IF
End Sub