비쥬얼베이직(비주얼베이직)visual basic,vb.net 강좌-창 드래그해서 움직이기,MousePosition,MouseButtons

폼만 하나 달랑 디자인 합니다

Public Class Form1

    Dim point As New System.Drawing.Point()

    Dim X, Y As Integer

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown

        X = Control.MousePosition.X - Me.Location.X

        Y = Control.MousePosition.Y - Me.Location.Y

    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove

        If e.Button = Windows.Forms.MouseButtons.Left Then

            point = Control.MousePosition

            point.X -= (X)

            point.Y -= (Y)

            Me.Location = point

        End If

    End Sub

End Class