怎样拖动Listview的一行内容.就像资源管理器中的把一个文件拖动到另一个文件夹里去一样。

[xianghai]

请高手指教一下，谢谢。

[xianghai]

请问一下，那在拖动时怎样把要拖动的内容显示出来.

[yijiansong]

UP

[射天狼]

Dim lv_ItemDrag As ListItem, ls_DragFlag As String

'放下
Private Sub lvAll_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If ls_DragFlag = "Exist" Then
lvAll.ListItems.Add , lv_ItemDrag.Key, lv_ItemDrag.Text, lv_ItemDrag.Icon, lv_ItemDrag.Icon
lvExist.ListItems.Remove lv_ItemDrag.Index
End If
End Sub

'开始拖动
Private Sub lvAll_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
On Error Resume Next
Set lv_ItemDrag = lvAll.SelectedItem
ls_DragFlag = "All"
End Sub

'放下
Private Sub lvExist_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If ls_DragFlag = "All" Then
lvExist.ListItems.Add , lv_ItemDrag.Key, lv_ItemDrag.Text, lv_ItemDrag.Icon, lv_ItemDrag.Icon
lvAll.ListItems.Remove lv_ItemDrag.Index
End If
End Sub

'开始拖动
Private Sub lvExist_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
On Error Resume Next
Set lv_ItemDrag = lvExist.SelectedItem
ls_DragFlag = "Exist"
End Sub