ย้ายแบบฟอร์มคลิกผ่าน Label vb.net

มีคำตอบอยู่แล้วสำหรับสิ่งนี้ในไซต์นี้ แต่นั่นก็คือ ใน C# ดังนั้นฉันจึงทำซ้ำคำตอบนั้นที่นี่ แต่แปลใน VB.NET หากคุณคิดว่าสิ่งนี้มีประโยชน์อย่าเพิ่มคะแนนโหวตนั้นด้วย ....

สิ่งสำคัญที่ควรทราบที่นี่คือการจัดการการเลื่อนเมาส์สำหรับ Label1 และไม่เพียงแต่สำหรับแบบฟอร์มเท่านั้น

Public Class Form1

    <DllImportAttribute("user32.dll")> _
    Public Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As Integer
    End Function

    <DllImportAttribute("user32.dll")> Public Shared Function ReleaseCapture() As Boolean
    End Function

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown
        Const WM_NCLBUTTONDOWN As Integer = &HA1
        Const HT_CAPTION As Integer = &H2

        If e.Button = MouseButtons.Left Then
            ReleaseCapture()
            SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
        End If

    End Sub
End Class

สวัสดี ฉันมีแหล่งตัวอย่างเพื่อทำให้แบบฟอร์มสามารถเคลื่อนย้ายได้

Public Class Form1 
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 
mousex = Windows.Forms.Cursor.Position.X - Me.Left 
mousey = Windows.Forms.Cursor.Position.Y - Me.Top 
End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove 
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`enter code here`

ฉันหวังว่านี่จะช่วยคุณได้

ไชโย :)