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

Question

http://www.csdn.net/expert/topic/382/382932.shtm看看这贴吧.

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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 SubPrivate 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