可拖动的标签控件 vb.net

Question

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

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

---

上下文示例文本 {B1} 和 {B2} 等。

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

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

我在下面添加了我的意思的 GIF。

提前谢谢。喜欢这样，请点击查看

Answer 1

move 所有控件类型的代码如下：

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 是新点。

此代码位于标签中。鼠标移动事件。

但是你必须给 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

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