Code VB : วิธีการ เคลื่อนย้าย Form ที่ FormBorderStyle = None นะครับ

สังเกตุได้ว่า เมื่อ เราปรับ FormBorderStyle เป็น None แล้วรันโปรแกรมเรียบร้อยแล้ว Form ของเราจะ ไม่สามารถ เคลื่อนย้ายได้ ผมมี Code แก้ ทำให้ Form BorderStyle None สามารถ เคลื่อนย้ายได้ มาฝาก

Code ที่ผมใช้นะครับ

Unhidden Content - Enjoy The View!

ให้ใส่ใว้ใน Public Class Form นะครับ

Code:

---

  Private IsFormBeingDragged As Boolean = False
    Private MouseDownX As Integer
    Private MouseDownY As Integer

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

        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = True
            MouseDownX = e.X
            MouseDownY = e.Y
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp

        If e.Button = MouseButtons.Left Then
            IsFormBeingDragged = False
        End If
    End Sub

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

        If IsFormBeingDragged Then
            Dim temp As Point = New Point()

            temp.X = Me.Location.X + (e.X - MouseDownX)
            temp.Y = Me.Location.Y + (e.Y - MouseDownY)
            Me.Location = temp
            temp = Nothing
        End If
    End Sub
'By SmileSiam

---

ลองใช้กันดูนะครับ ;)