鼠标移动的问题

Question

请问如果当鼠标移动到窗体上某个控件例如PICTURE上，改变鼠标指针的形状，该怎么实现。现在的问题是我用的PICTURE 的MOUSEMOVE事件，但是只要鼠标一在窗体上移动，就会改变鼠标的形状，我只想当鼠标移动到PICTURE上，在改变鼠标的形状。Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePointer = 2
End Sub

Answer 1

续上贴，还要实现，当鼠标移动出PICTURE时，鼠标指针回复原样

Answer 2

加上這段
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  MousePointer = 1
End Sub

Answer 3

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MousePointer = 0
End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MousePointer = 2
End Sub
上面的代码很简单但是能够解决lz的问题呵呵
如果form上还有别的控件,,lz只需要检查鼠标的坐标在picture的范围内时变化超出范围再变回来就ok了

Answer 4

不好意思，我是VB的初学者，请问“lz只需要检查鼠标的坐标在picture的范围内时变化超出范围再变回来就ok了”这个该怎么实现呢？

Answer 5

不好意思，我是VB的初学者，请问“lz只需要检查鼠标的坐标在picture的范围内时变化超出范围再变回来就ok了”这个该怎么实现呢？===============其他的地方没有自定义到鼠标，移出后自然就变回了喽