VB.net—UI设计—任意移动窗口
设计窗口应用的时候,希望窗体能简洁异型,不要标题栏,能够按住窗体任意位置拖动窗口。以下代码可以实现:(原谅我把VB.net写出了Python风格…)
Winform
Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
If e.Button <> MouseButtons.Left Then:mouseX = e.Location.X:mouseY = e.Location.Y:Exit Sub:Else:Me.Top = Me.Top + e.Location.Y - mouseY:Me.Left