Question

我基本上是允许用户将控件拖放到组框中，这将动态创建这些控件。我希望在释放光标的任何地方都可以创建控件。我假设我需要获取坐标或鼠标释放的东西，然后以某种方式将其传递给groupbox.DragDrop并在这些坐标处动态创建控件。我将如何去做呢？我已经有拖放的代码了，我的控件是动态添加到组框的，但是，它总是添加到组框的左上角

Private Sub GroupBox1_Enter(sender As Object, e As DragEventArgs) Handles DragAndDropGroupBox.DragEnter
    e.Effect = DragDropEffects.Copy
    Debug.Print("enter")
End Sub

Private Sub GroupBox_DragDrop(sender As Object, e As DragEventArgs) Handles DragAndDropGroupBox.DragDrop
    Dim obj As dragObject = e.Data.GetData(GetType(dragObject))

    If obj.type.Equals("textbox") Then
        Debug.Print("label")
        Dim textBox As New TextBox
        textBox.Name = "TextBox" + Convert.ToString(rnd.Next)
        DragAndDropGroupBox.Controls.Add(textBox)

    ElseIf obj.type.Equals("logo") Then
    ElseIf obj.type.Equals("qrcode") Then
        Dim qrcode As New PictureBox
        qrcode.Name = "PictureBox" + Convert.ToString(rnd.Next)
        qrcode.Image = My.Resources.qr_code
        DragAndDropGroupBox.Controls.Add(qrcode)
    End If

End Sub


Private Sub idTextBoxDragHandler(sender As Object, e As MouseEventArgs) Handles idTextBox.MouseDown
    Dim width As Integer
    Dim height As Integer
    Dim fontSize As Integer
    Dim truncation As Integer

    Int32.TryParse(idWidth.Text, width)
    Int32.TryParse(idHeight.Text, height)
    Int32.TryParse(idFontSize.Text, fontSize)
    Int32.TryParse(idTruncation.Text, truncation)

    Dim obj As New dragObject With
    {.width = width,
     .height = height,
     .fontSize = fontSize,
     .truncation = truncation,
     .type = "textbox"}

    idTextBox.DoDragDrop(obj, DragDropEffects.Copy)

End Sub

Private Sub nameTextBoxDragHandler(sender As Object, e As MouseEventArgs) Handles nameTextBox.MouseDown
    Dim width As Integer
    Dim height As Integer
    Dim fontSize As Integer
    Dim truncation As Integer

    Int32.TryParse(nameWidth.Text, width)
    Int32.TryParse(nameHeight.Text, height)
    Int32.TryParse(nameFontSize.Text, fontSize)
    Int32.TryParse(nameTruncation.Text, truncation)

    Dim obj As New dragObject With
    {.width = width,
     .height = height,
     .fontSize = fontSize,
     .truncation = truncation,
     .type = "textbox"}

    idTextBox.DoDragDrop(obj, DragDropEffects.Copy)

End Sub

Private Sub descriptionTextBoxDragHandler(sender As Object, e As MouseEventArgs) Handles descriptionTextBox.MouseDown
    Dim width As Integer
    Dim height As Integer
    Dim fontSize As Integer
    Dim truncation As Integer

    Int32.TryParse(descriptionWidth.Text, width)
    Int32.TryParse(descriptionHeight.Text, height)
    Int32.TryParse(descriptionFontSize.Text, fontSize)
    Int32.TryParse(descriptionTruncation.Text, truncation)

    Dim obj As New dragObject With
    {.width = width,
     .height = height,
     .fontSize = fontSize,
     .truncation = truncation,
     .type = "textbox"}

    idTextBox.DoDragDrop(obj, DragDropEffects.Copy)

End Sub

Private Sub pathTextBoxDragHandler(sender As Object, e As MouseEventArgs) Handles pathTextBox.MouseDown
    Dim width As Integer
    Dim height As Integer
    Dim fontSize As Integer
    Dim truncation As Integer

    Int32.TryParse(pathWidth.Text, width)
    Int32.TryParse(pathHeight.Text, height)
    Int32.TryParse(pathFontSize.Text, fontSize)
    Int32.TryParse(pathTruncation.Text, truncation)

    Dim obj As New dragObject With
    {.width = width,
     .height = height,
     .fontSize = fontSize,
     .truncation = truncation,
     .type = "textbox"}

    idTextBox.DoDragDrop(obj, DragDropEffects.Copy)

End Sub

Private Sub logoDragHandler(sender As Object, e As MouseEventArgs) Handles logoDrag.MouseDown
    Dim width As Integer
    Dim height As Integer

    Int32.TryParse(logoWidth.Text, width)
    Int32.TryParse(logoHeight.Text, height)

    Dim obj As New dragObject With
    {.width = width,
     .height = height,
     .type = "logo"}

    idTextBox.DoDragDrop(obj, DragDropEffects.Copy)

End Sub


Private Sub QRCodeDragHandler(sender As Object, e As MouseEventArgs) Handles QRCodeDrag.MouseDown
    Dim width As Integer
    Dim height As Integer

    Int32.TryParse(qrCodeWidth.Text, width)
    Int32.TryParse(qrCodeHeight.Text, height)

    Dim obj As New dragObject With
    {.width = width,
     .height = height,
     .type = "qrcode"}

    QRCodeDrag.DoDragDrop(obj, DragDropEffects.Copy)
End Sub

Answer 1

放下对象并创建控件时，需要设置其相对于GroupBox内部坐标的位置：

Dim textBox As New TextBox
textBox.Name = "TextBox" + Convert.ToString(rnd.Next)
textBox.Location = DragAndDropGroupBox.PointToClient(New Point(e.X, e.Y))
DragAndDropGroupBox.Controls.Add(textBox)

在GroupBox中的任何位置进行拖放控制

1 个答案: