如何实现Treeview中的Node向Listview中拖动？

Question

'关键是以下几个事件'源 开始拖
Private Sub TreeView_OLEStartDrag(Index As Integer, Data As MSComctlLib.DataObject, AllowedEffects As Long)'目标，经过目标时
Private Sub Listview_OLEDragOver(Index As Integer, Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)'在目标上放下
Private Sub Listview_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
以及几个参数函数：Data.SetData、Data.GetData他们的DragMode=0具体使用看帮助

Answer 1

还要注意：
源，即Treeview的oledragmode 、oledropmode都为1
目标，即Listview 的oledragmode 、oledropmode分别为0、1

Answer 2

Treeview里的方法是可以实现的，试一下