谁能给我一个从PicBox里把图标拖曳到ListView里（或treeview)替換一個其原有Image的例子？

[MonkeyLin]

[uguess]

哇,上次不是已经解决了么?又出什么问题啦?

[foolishtiger]

http://www.csdn.net/expert/topic/382/382932.shtm

看看这贴吧.

[foolishtiger]

怎么还是小猴啊??

[MonkeyLin]

注意这个："替換一個其原有Image",^-^

[foolishtiger]

道理一样的,就是在DragDrop事件中再相应做些处理啦.

[MonkeyLin]

怎么处理呢？
我认为应该在DragOver时触发Item Select
然后在DragDrop事件中再相应做些处理
但如何在DragOver时触发Item Select?

[progame]

Private Sub tvfile_DragOver(Source As Control, x As Single, y As Single, State As Integer)
If mbindrag = True Then
Set tvFile.DropHighlight = tvFile.HitTest(x, y)
End If
End Sub

[progame]

Private Sub tvfile_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set tvFile.DropHighlight = tvFile.HitTest(x, y)
If Not tvFile.DropHighlight Is Nothing Then
tvFile.SelectedItem = tvFile.HitTest(x, y)
Set modragNode = tvFile.SelectedItem ' Set the item being dragged.
End If
Set tvFile.DropHighlight = Nothing
End Sub

Private Sub tvfile_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
mbindrag = True
tvFile.DragIcon = tvFile.SelectedItem.CreateDragImage
tvFile.Drag vbBeginDrag ' Drag operation.
End If
End Sub