可拖动标签控件vb.net

Question

我正在尝试编写一个学习英语的简单程序。尽管已经可以使用这种软件，但是我需要创建一个新软件，以便添加自己的材料来进行更多练习。

我正在使用VB.NET（VS2012），直到现在我都尝试使用标签控件。 我数据库中的数据是这样的：

---

上下文样本文本{B1}和{B2}，依此类推。

在我的数据中，{B1}和{B2}表示空白区域。

如何通过检索用户将哪个选项拖到哪个位置的功能来实现呢？

我添加了我所关注的GIF。

先谢谢了。 Like this, please click to see

Answer 1

移动所有控件类型的代码在这里：

If e.Button = Windows.Forms.MouseButtons.Left Then
    newpoint = Control.MousePosition
    newpoint.X -= x
    newpoint.Y -= y
    LABEL.Location = newpoint
    Application.DoEvents()
End If

其中x是一个整数，y是一个整数，newpoint是一个新点。

此代码进入LABEL.MouseMove事件。

但是您必须为x和y分配一个值，这是代码：

Private Sub PANEL_MouseDown(sender As Object, e As MouseEventArgs) Handles PANEL.MouseDown
    x = Control.MousePosition.X - Me.Location.X
    y = Control.MousePosition.Y - Me.Location.Y
End Sub

我知道这段代码无法完全回答您的问题，但这对您有所帮助。