Question

我正在使用VB.NET（VS2015）开展项目。我将制作大量可移动的图标，因此，我需要让它们更快地制作过程！

我想创建一个类，我可以用它来制作可以用鼠标移动的图片框。

实施例。 Make_Movable(picturebox1, label1)

＆＃34; label1＆＃34;是它下面的标签。我已经有了一个代码。我只是在看不见的地方，让它再次可见。（经过测试和工作）。

注意：我只需要移动图片框！我已经有了标签的代码，但为此我需要能够移动图片框。

这可能吗？

我唯一能想到的就是：

Dim capt = 0
Dim a
Dim b

Public Sub IMMove(lbl, pb)
    If capt = 1 Then
        lbl.Visible = False
        pb.Location = New Point(pb.Location.X + (Cursor.Position.X - a), pb.Location.Y + (Cursor.Position.Y - b))
    End If
End Sub

Public Sub IMDown(lbl, pb)
    a = Cursor.Position.X
    b = Cursor.Position.Y
    capt = 1
End Sub

Public Sub IMUp(lbl, pb)
    pb.Location = New Point(pb.Location.X + (Cursor.Position.X - a), pb.Location.Y + (Cursor.Position.Y - b))
    capt = 0

    lbl.Visible = True
    lbl.Location = New Point(lbl.Location.X, lbl.Location.X - (lbl.Width + lbl.Width / 2) + lbl.Width + lbl.Width / 3)
    lbl.Location = New Point(lbl.Location.Y, pb.Location.Y + pb.Height)
End Sub

但是那不起作用，图片框只是消失了，我必须为每个事件做点什么。防爆。在picturebox1.MouseDown中：IMDown(Me, picturebox1, label1)

请帮助：）

VB.NET创建一个类，使用鼠标移动选择的图片框

0 个答案: