VB.NET文本框跟随鼠标光标

剂量任何人都知道如何让一个文本框跟随鼠标光标在一个简单的形式？VB.NET文本框跟随鼠标光标

2011-12-19 ABANDOND ACOUNT

这听起来像它会是一个令人难以置信的令人讨厌的用户界面...你想解决什么问题？ – 2011-12-19 14:20:58

在窗体的MouseMove事件处理

textBox.Location = new Point(e.X, e.Y); Invalidate();

e是MouseEventArgs

来源

2011-12-19 13:58:44 dextrey

（这两个答案都是正确的，只能勾选一个），谢谢 – 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:02:39

有点像我想要的工作是有可能有一个微小的距离文本框，因为我仍然可以点击窗体上的其他东西？ – 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

VB.NET文本框跟随鼠标光标

回答

相关问题