نقل Button من الفورم الى Panel - نسخة قابلة للطباعة

كود :

Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown

        If e.Button = MouseButtons.Left Then

            Button1.DoDragDrop(Button1.ToString, DragDropEffects.Move)

            Panel1.Controls.Add(Bp11)

            Button1.Visible = True

        End If

    End Sub

PHP كود :

Public Class Form1
    Dim Off As Point
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WireButton(Me)
        WireLabels(Me)
    End Sub

    Private Sub WireLabels(ByVal cont As Control)
        For Each ctl As Control In cont.Controls
            If TypeOf ctl Is Label Then
                AddHandler ctl.MouseDown, AddressOf obj1_MouseDown
                AddHandler ctl.MouseMove, AddressOf obj1_MouseMove
            ElseIf ctl.HasChildren Then
                WireLabels(ctl)
            End If
        Next
    End Sub

    Private Sub WireButton(ByVal cont As Control)
        For Each ctl As Control In cont.Controls
            If TypeOf ctl Is Button Then
                AddHandler ctl.MouseDown, AddressOf obj1_MouseDown
                AddHandler ctl.MouseMove, AddressOf obj1_MouseMove
            ElseIf ctl.HasChildren Then
                WireButton(ctl)
            End If
        Next
    End Sub
    Private Sub obj1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Off.X = MousePosition.X - sender.Left
        Off.Y = MousePosition.Y - sender.Top
    End Sub

    Private Sub obj1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            sender.Left = MousePosition.X - Off.X
            sender.Top = MousePosition.Y - Off.Y
        End If
    End Sub

      

End Class

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Button1.Location = New Point(20, 20)

        Panel1.Controls.Add(Button1)

    End Sub