Ole拖放？？??

Question

Listbox1  <----> Listbox2
各位明白吧！？从一个里面拖数据到另一个里，并自动删除，我怎么做不出这样的效果；？？？？
而且文本不换行？？？希望给我一段示例的代码？？？100分，我完成即给

Answer 1

给你一个例子
新建一个工程在窗体上放两个listbox,一个textbox
名称分别为 lstDraggedItems，lstDroppedItems，txtItem
把下面代码复制到project code window中Private MyIdx As LongPrivate Sub Form_Load()
' Set the visible property of txtItem to false
txtItem.Visible = False
'Add items to list1 (lstDraggedItems)
lstDraggedItems.AddItem "Apple"
lstDraggedItems.AddItem "Orange"
lstDraggedItems.AddItem "Grape"
lstDraggedItems.AddItem "Banana"
lstDraggedItems.AddItem "Lemon"
End SubPrivate Sub lstDraggedItems_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtItem.Text = lstDraggedItems.Text
If txtItem.Text = "" Then Exit Sub ' Don't perform a drag for nothing
txtItem.Top = Y + lstDraggedItems.Top
txtItem.Left = X + lstDraggedItems.Left
txtItem.Drag
MyIdx = lstDraggedItems.ListIndex
End SubPrivate Sub lstDroppedItems_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtItem.Text = lstDroppedItems.Text
If txtItem.Text = "" Then Exit Sub ' Don't perform a drag for nothing
txtItem.Top = Y + lstDroppedItems.Top
txtItem.Left = X + lstDroppedItems.Left
txtItem.Drag
MyIdx = lstDroppedItems.ListIndex
End SubPrivate Sub lstDraggedItems_DragDrop(Source As Control, X As Single, Y As Single)
On Error GoTo EndHere
If lstDroppedItems.ItemData(lstDroppedItems.ListIndex) = 9 Then
   Exit Sub
End If
' To make sure that this item will not be selected again
lstDroppedItems.ItemData(lstDroppedItems.ListIndex) = 9
lstDraggedItems.AddItem txtItem.Text
lstDroppedItems.RemoveItem MyIdx
EndHere:
End SubPrivate Sub lstDroppedItems_DragDrop(Source As Control, X As Single, Y As Single)
On Error GoTo EndHere
If lstDraggedItems.ItemData(lstDraggedItems.ListIndex) = 9 Then
   Exit Sub
End If
' To make sure that this item will not be selected again
lstDraggedItems.ItemData(lstDraggedItems.ListIndex) = 9
lstDroppedItems.AddItem txtItem.Text
lstDraggedItems.RemoveItem MyIdx
EndHere:
End SubSHANNON
   ----------------
    [email protected]