VB.NET TextBox 跟随鼠标光标答案

【问题标题】：VB.NET TextBox to follow mouse cursorVB.NET TextBox 跟随鼠标光标
【发布时间】：2021-12-31 01:11:33
【问题描述】：

有谁知道如何在一个简单的表单上使文本框跟随鼠标光标？

【问题讨论】：

这听起来会是一个令人难以置信的令人讨厌的用户界面...您要解决什么问题？

【解决方案1】：

在您的表单的MouseMove 事件处理程序中

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

e 是MouseEventArgs

【讨论】：

【解决方案2】：

我已经为你完成了这段代码，检查这个答案：

   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

【讨论】：

这有点像我想要的，是否可以将文本框放在稍远的地方，因为我仍然可以点击表单上的其他内容？
@BartvanTuÿl：是的，只需向e.X 和e.Y 属性添加几个像素。这些是当前鼠标指针位置的 X 和 Y 值。如果为每个添加 20 或 25 像素的偏移量，则控件的新位置将与鼠标指针的当前位置偏移 20 或 25 像素。
您真正需要的只是最后一行；将其更改为：Me.TextBox1.Location = New System.Drawing.Point(e.X + 25, e.Y + 25)