테두리가 없는 폼이동

테두리가 없는 폼이동

Dim First As Point

 

Private Sub Form1_MouseDown(ByVal sender As Object, _

ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

First = New Point( _

PointToScreen(e.Location).X - Me.Location.X, _

PointToScreen(e.Location).Y - Me.Location.Y _

) '폼의 위치와 현재 마우스 위치의 화면좌표 차를 First에 대입

    End Sub

 

Private Sub Form1_MouseMove(ByVal sender As Object, _

ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If e.Button = Windows.Forms.MouseButtons.Left Then '마우스 왼쪽 버튼을 누르고 있으면

Me.Location = New Point( _

PointToScreen(e.Location).X - First.X, _

PointToScreen(e.Location).Y - First.Y _

) '마우스 위치의 화면좌표에서 First를 뺀 값을 폼의 위치로 지정

End If

End Sub

출처: http://byhwan.tistory.com/entry/테두리가-없는-폼-이동?category=535198 [By Hwan]