Question

VB怎么样才能实现LABEL的自由移动？

FORM1有好几个LABEL，为了适应各种打印机需要调动LABE的位置，按下鼠标移动LABEL到适合的位置放下，然后移动第二个LABEL的操作怎么弄？

Answer 1

假定有两个Label需要移动位置，即Label1和Label2，则：

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
End Sub

Private Sub Form_Load()
Label1.DragMode = 1
Label2.DragMode = 1
'如果有其他控件需要移动位置，请依照上面两行在此添加代码！
End Sub

追问

谢谢，很有用，还一个问题，就是把LABEL们移动到适应的位置后打印完毕，程序退出后又回到原来的位置，怎样才能移动到的位置第二次不变呢？

追答

每次移动后把Label的Left和Top属性值储存到一个文本文件（或者是INI文件、注册表等等），下次启动软件的时候再读取文件然后给相应的Label的Left和Top属性赋值即可。