Vb.net 对象滞后于鼠标
下面的标签1左右移动。我如何让它滞后并“赶上”鼠标指针Vb.net 对象滞后于鼠标,vb.net,Vb.net,下面的标签1左右移动。我如何让它滞后并“赶上”鼠标指针 Private xpos as integer = 10 Private Sub me_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim lbl As New label lbl.Size = New System.Drawin
Private xpos as integer = 10
Private Sub me_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim lbl As New label
lbl.Size = New System.Drawing.Size(xpos, 100)
end sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
lbl1.Location = New Point(MyPictureBox.PointToClient(New Point(MousePosition.X, 0)).X, 100)
看起来标签的移动与计时器而不是鼠标有关。计时器的间隔是多少?计时器的间隔是60。这与计时器可以运行的速度差不多(可靠),如果希望标签跟踪鼠标,最好使用鼠标移动事件