VB.NET文本框跟随鼠标光标
在窗体的MouseMove
事件处理
textBox.Location = new Point(e.X, e.Y); Invalidate();
e
是MouseEventArgs
(这两个答案都是正确的,只能勾选一个),谢谢 – 2011-12-20 07:50:45
我做这个代码,请仔细检查这个答案:
Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Label1.Text = e.X.ToString
Label2.Text = e.Y.ToString
Me.TextBox1.Location = New System.Drawing.Point(e.X + 10, e.Y + 10)
End Sub
有点像我想要的工作是有可能有一个微小的距离文本框,因为我仍然可以点击窗体上的其他东西? – 2011-12-19 14:30:18
@BartvanTuÿl:是的,只需添加几个像素到'e.X'和'e.Y'属性。这些是当前鼠标指针位置的X和Y值。如果为每个偏移量添加20或25像素偏移量,则控件的新位置将与鼠标指针的当前位置偏移20或25像素。 – 2011-12-19 14:38:21
你真正需要的是最后一行;将其更改为:Me.TextBox1.Location = New System.Drawing.Point(e.X + 25,e.Y + 25)' – 2011-12-19 14:38:36
这听起来像它会是一个令人难以置信的令人讨厌的用户界面...你想解决什么问题? – 2011-12-19 14:20:58