如何把一个控件从一个对象拖动到另一个对象？？

Question

如何把一个控件从一个对象拖动到另一个对象？？

Answer 1

'目标控件。
Private Sub lstv_DragDrop(Source As Control, x As Single, y As Single)
    MsgBox Source.Name
End Sub源控件的 dragmode 属性设成 1 - automatic

Answer 2

把 控件的DragMode 设置为 VbAutomatic

Answer 3

Private Sub Form_Load()
    Command1.DragMode = 1
    Text1.DragMode = 1
End SubPrivate Sub Frame2_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    Set Source.Container = Frame2
End SubPrivate Sub Frame1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    Set Source.Container = Frame1
End Sub