เลื่อน Form ที่ไม่มี Titlebar (Move Form without Titlebar)

เลื่อน Form ที่ไม่มี Titlebar (Move Form without Titlebar)

บางครั้งเราก็ต้องการสร้างฟอร์มที่ไม่มี Titlebar แต่ก็อยากให้มันสามารถ แดรกเมาส์เลื่อนไปเลื่อนมาได้ ตัวอย่างโค้ด

'Declare the variables
Dim drag As Boolean
Dim mousex As Integer
Dim mousey As Integer

Private Sub Form1_MouseDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles Me.MouseDown
        drag = True 'Sets the variable drag to true.
        mousex = Windows.Forms.Cursor.Position.X - Me.Left 'Sets variable mousex
        mousey = Windows.Forms.Cursor.Position.Y - Me.Top 'Sets variable mousey
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles Me.MouseMove
        'If drag is set to true then move the form accordingly.
       If drag Then
           Me.Top = Windows.Forms.Cursor.Position.Y - mousey
           Me.Left = Windows.Forms.Cursor.Position.X - mousex
       End If
End Sub

Private Sub Form1_MouseUp(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) _
    Handles Me.MouseUp
        drag = False 'Sets drag to false, so the form does not move according to the code in MouseMove
End Sub