可拖动标签控件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

我知道这段代码不能完全回答你的问题，但它是一个帮助。