VB6实现控件从一个容器拖拽到另一个容器中
1.在From1中添加2个Pictuer和一个Command控件,Command控件设置成控件数组。
2.Command1的DragMode设置成1-Automatic
用DragDrop可以拖动Pictuer1中Command1控件放到Pictuer2中
Option Explicit
Private Sub Form_Load()
Command1(0).Visible = False
Load Command1(1)
Command1(1).Container = Picture1
Command1(1).Visible = True
End Sub
Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
Unload Command1(1)
Load Command1(1)
Set Command1(1).Container = Picture2
Command1(1).Visible = True
Command1(1).Left = X
Command1(1).Top = Y
End Sub