允许在面板之间拖动自定义 UserControl 的问题

Question

在我的程序中，我有一组自定义用户控件，它们全部嵌套在一个可滚动面板中。目前，我有 this code 允许我在当前面板中拖动和移动控件。我想要的是能够将它们拖到另一个面板（在同一窗体中），以便用户可以创建控件的可视化组织。然后计划是存储他们的位置（相对于面板）并使用它来创建时间表。

我的问题是，每当我开始拖动控件时，它们所在的面板只会调整大小，而控件永远不会移动到另一个面板。

我已经尝试在目标面板中将 AllowDrop 设置为 True，并且我已经尝试重置您当前拖动到新面板的控件的父级。

感谢任何帮助！

Answer 1

对此做了更多的挖掘，你想要的是非常可行的，但你需要做一些繁重的工作。我在这里包括一个简短的示例，以帮助您入门。请记住，这在处理 drag/drop 控件时不考虑父容器，因此您需要添加它，以及在拖动时重新设置父级的边缘检测。

Form1.vb:

Imports System
Imports System.Windows.Forms

Public Class Form1
    Dim _dragging As Boolean
    Dim _startX As Integer
    Dim _startY As Integer

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        For Each ctl As Control In Controls
            AddHandler ctl.MouseDown, AddressOf StartDrag
            AddHandler ctl.MouseMove, AddressOf WhileDragging
            AddHandler ctl.MouseUp, AddressOf EndDrag
        Next
        For Each ctl As Control In Controls
            For Each item In My.Settings.controlLocations
                If Split(item, "!")(0) = ctl.Name Then
                    ctl.Location = New Point(Split(item, "!")(1), Split(item, "!")(2))
                End If
            Next
        Next
    End Sub

    Private Sub StartDrag(ByVal sender As Object, ByVal e As MouseEventArgs)
        _dragging = True
        _startX = e.X
        _startY = e.Y
    End Sub

    Private Sub WhileDragging(ByVal sender As Object, ByVal e As MouseEventArgs)
        If _dragging = True Then
            sender.Location = New Point(sender.Location.X + e.X - _startX, sender.Location.Y + e.Y - _startY)
            Refresh()
        End If
    End Sub

    Private Sub EndDrag(ByVal sender As Object, ByVal e As EventArgs)
        _dragging = False
        My.Settings.controlLocations.Clear()
        For Each ctl As Control In Controls
            My.Settings.controlLocations.Add(ctl.Name & "!" & ctl.Location.X & "!" & ctl.Location.Y)
        Next
        My.Settings.Save()

    End Sub
End Class

允许在面板之间拖动自定义 UserControl 的问题

Problems allowing custom UserControl to be dragged between panels

vb.net

user-controls

drag-and-drop

panel