请教高手，如何实现TreeView和ListView拖动时动态效果，象资源管理器一样

Question

http://www.csdn.net/expert/topic/536/536573.xml

Answer 1

Private Sub Form_Load()
TreeView1.OLEDropMode = ccOLEDropManual '接受控件间的拖/放
ListView1.OLEDragMode = ccOLEDragAutomatic
For i = 1 To 10
ListView1.ListItems.Add , , "List" & i
TreeView1.Nodes.Add , , , "Tree" & i
Next
Set ListView1.DragIcon = LoadPicture("C:\WINDOWS\Winupd.ico")
End SubPrivate Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button <> 1 Then Exit Sub
ListView1.OLEDrag
End SubPrivate Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
Data.SetData ListView1.SelectedItem.Text
End SubPrivate Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
TreeView1.Nodes.Add , , , Data.GetData(1)
End Sub