Перемещение элемента управления с помощью мыши в VB

Question

В окончательном ответе в этой записи Павел Войда публикует общий способ перемещения элементов управления с помощью мыши. Тем не менее, я работаю в VB и не смог перевести его подход, потому что нет эквивалентов для control.location и control.update. Как можно перенести эту же функциональность на VB.

Answer 1

Вопрос, который вы связали, использует проект Windows Forms, однако, исходя из ваших наиболее часто используемых тегов, я полагаю, вы используете WPF.

Эквивалент Control.Location свойства WinForms * Control.Margin в WPF (в частности, вверху и слева).

В некоторой степени эквивалентно Control.Update равно Control.InvalidateVisual. Хотя в этом случае звонить тоже не нужно, поэтому вы можете просто проигнорировать его.

Answer 2

dim down as new boolean При событии при нажатии мыши:

Down = true

При событии при нажатии мыши:

Down =false

При событии перемещения мыши:

If down = true Then
      Me.location = cursor.position
 End if