Переместить форму только горизонтально

Question

Как перемещать окна только горизонтально? Я сделал положение сверху слева Dim scr = Screen.FromPoint(Me.Location) Me.Location = New Point(0, scr.WorkingArea.Top) MyBase.OnLoad(e), но я бы переделал его, чтобы иметь возможность перемещать форму только hozitontal.

Answer 1

Для перемещения формы по горизонтали:

Me.Left += 50 

Или с тем же образом, что вы показываете:

Me.Location = New Point(Me.Location.X + 50, Me.Location.Y) 

Чтобы предотвратить, чтобы сформировать для перемещения по вертикали/горизонтали пользователем (в случае, если это то, что вы просите, непонятно мне), вы можете посмотреть на это: Move form only vertically