MouseMove问题

Question

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label1.Caption = "x:" & x & "y:" & y
Label1.Move x, y
End Sub
当鼠标往回移动时，感觉鼠标卡了一样 一绊一绊的确切的说鼠标往左往上移动很顺畅 但是往右或往下就一卡一卡的不顺畅  
望各位高手帮助

Answer 1

问题出在光标进入了label1,当光标在label1里时,form的mousemove事件无效;当你在向上或向左时光标在label1外面,所以没事;当你在向下或向右时光标会时常在label1里,当光标离开label1到达form时,form的mousemove才会有效,所以你看到一跳一跳的.如下试试:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = "x:" & X & "y:" & Y
    Label1.Move X - Label1.Width - 8, Y - Label1.Height - 8
End Sub

Answer 2

很容易理解啊，label控件的的矩形左上角就是鼠标位置，鼠标往下（右）移动的时候，会移动到label里去，这样就不会触发Form_MouseMove事件，等移动到一定距离（移出label），才会重新有Form_MouseMove事件。鼠标在label矩形的这一段就是楼主所谓的“卡”。

Answer 3

没听白啥意思  呵呵 我想鼠标照样能托lable 但是向上，下，左，右都很顺畅该怎么办啊 哈哈

Answer 4

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "x:" & X & "y:" & Y
Label1.Move X, Y
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Form_MouseMove Button, Shift, X + Label1.Left, Y + Label1.Top
End Sub