关于控件的移动？

[hzc1]

在运行中，如何做才能达到用鼠标拖动LABEL控件到新的位置呢？

[tinyboy]

BUTTON=4表示按下的是鼠标中键

[tinyboy]

我的程序中Form.ScaleMode=1,否则拖动不正常

[hzc1]

[e-mail] 谢谢了！
另你知道控件注册的事吗？我有一个控件，可以加载，但使用时却出现没有许可证的信息的提示。如何解决？

[hzc1]

用不了，LABEL不听指挥，鼠标没有控制权了，连窗口都关不了。BUTTON值在MOUSRMOVE中为4。

[zoukaix]

在属性中设置移动属性

[tinyboy]

Dim xs As Integer
Dim ys As Integer
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xs = X
ys = Y
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then Label1.Move Label1.Left + X - xs, Label1.Top + Y - ys
End Sub

[tinyboy]

我运行了一下，没有问题

[tinyboy]

to :hzc1(笨笨)
我这使用没有任何问题，你把Email告诉我，我发给你源程序！