请教怎样把一个listbox的项通过鼠标拖动到另一个listbox里？

[x1h2w3]

请教怎样把一个listbox的项通过鼠标拖动到另一个listbox里？

[tanyx]

drag drop oledrag oledrop
也许还要搭上些技巧，比如mousedown mouseup
相关的还有mouseicon dragicon等等吧，写起来比较多呢。

[x1h2w3]

呵呵，不急。先谢谢了。

[lgxysl]

不是拖的，原来是装假狗呀。

[firechun]

在窗体上放一个Label和两个ListBox，Label背景设置为透明，Caption=""，DragIcon设置一个合适的图标。
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If List1.ListIndex < 0 Then Exit Sub
If Button = vbLeftButton Then
Label1.Move X, Y
Label1.Drag
End If
End Sub

Private Sub List2_DragDrop(Source As Control, X As Single, Y As Single)
List2.AddItem List1.List(List1.ListIndex)
End Sub

[x1h2w3]

这似乎是个办法，但总觉得不是真正意义上的拖动，UP。

[固执的大叔]

up firechun(天火)

我觉得这种方法还是不错的！

[lxcc]

http://www.21code.com/codebase/?pos=down&id=121

[yijiansong]

方法还是可行的！

[vv1vv]

up