[已解决]在两个列表框之间移动选择的多列数据

問天

学习，帮顶

黑山上的鹰

hwc2ycy 发表于 2014-3-7 16:19
多选单选，CTRL,SHIFT跟这个添加代码没关，代码只是把你选的添加到LISTBOX2而已。
我这试了，多选，单选 ...

列表框问题.rar (244.24 KB, 下载次数: 6)

2014-3-7 16:29 上传

点击文件名下载附件 谢谢，我已经将multislect=2，不知何故？，换一台机子试一下，另外，全部移动到listbox2如何实现？

黑山上的鹰

hwc2ycy 发表于 2014-3-7 16:19
多选单选，CTRL,SHIFT跟这个添加代码没关，代码只是把你选的添加到LISTBOX2而已。
我这试了，多选，单选 ...

不好意思，我把有个地方改错了[attach]313604，但全选怎么弄，搞不懂哟？谢谢

hwc2ycy

黑山上的鹰 发表于 2014-3-7 18:46
不好意思，我把有个地方改错了[attach]313604，但全选怎么弄，搞不懂哟？谢谢

你说的全选是LISTBOX1中的列表全选上还是全部复制到LISTBOX2？

黑山上的鹰

hwc2ycy 发表于 2014-3-7 21:54
你说的全选是LISTBOX1中的列表全选上还是全部复制到LISTBOX2？

是，全部移动到listbox2

hwc2ycy

全选按钮，如果不需要清除LISTBOX1的，注释掉.clear方法。

1. Private Sub CommandButton2_Click()    '〉
   
2.     Dim j As Long
   
3.     Dim k As Long
   
4.     With ListBox1
   
5.         On Error Resume Next
   
6.         For i = 0 To .ListCount
   
7.             ListBox2.AddItem
   
8.             k = ListBox2.ListCount - 1
   
9.             ListBox2.List(k, 0) = .List(i, 0)
   
10.             ListBox2.List(k, 1) = .List(i, 1)
    
11.         Next    '
    
12.         .Clear
    
13.     End With
    
14. End Sub

复制代码

問天

学习，帮顶

黑山上的鹰

hwc2ycy 发表于 2014-3-7 22:56
全选按钮，如果不需要清除LISTBOX1的，注释掉.clear方法。

非常感谢，就是这样

問天

学习，帮顶

黑山上的鹰

hwc2ycy 发表于 2014-3-7 22:56
全选按钮，如果不需要清除LISTBOX1的，注释掉.clear方法。

列表框问题.rar (243.27 KB, 下载次数: 85)

2014-3-8 00:45 上传

点击文件名下载附件 非常感谢，完美解决，奉上附件，附件有单列、两列数据在列表框中互相移动的事例，希望后来人能喜欢