2011-12-19 3 views
1

Доза любой знает, как я могу сделать TextBox следовать указателю мыши на простой форме?VB.NET TextBox следовать курсору мыши

+1

Это звучит, как это будет невероятно неприятный интерфейс ... Какую проблему вы пытаетесь решить? –

ответ

0

В MouseMove обработчик событий вашей формы

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

e является MouseEventArgs

+0

(оба ответа были правильными, можно отметить только один) спасибо –

0

Я сделал этот код для вас, проверить этот ответ:

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 
+0

Этот вид работает, как будто я хочу, чтобы текстовое поле было на небольшом расстоянии, так как я все еще могу щелкнуть другие вещи в форме? –

+0

@ BartvanTuÿl: Да, просто добавьте несколько пикселей в свойства 'e.X' и' e.Y'. Это значения X и Y текущего местоположения указателя мыши. Если вы добавите смещение 20 или 25 пикселей к каждому, то новое положение элемента управления будет смещено на 20 или 25 пикселей от текущего местоположения указателя мыши. –

+0

Все, что вам действительно нужно, это последняя строка; измените его на это: «Me.TextBox1.Location = New System.Drawing.Point (e.X + 25, e.Y + 25)' –

Смежные вопросы