如何将列表框中的项目一下子全移到另一个列表框中 我只会一个个移!

这是我弄的

Private Sub Command1_Click()
Dim i As Integer
i = List1.ListIndex
Do While i <= List1.ListCount - 1
 If List1.Selected(i) = True Then
 List2.AddItem List1.List(i)
 List1.RemoveItem i
 Else
 i = i + 1
 End If
Loop
 

End Sub

Private Sub Command2_Click()
List2.Clear
End Sub

Private Sub Command3_Click()
List1.Clear
List1.AddItem "上海"
List1.AddItem "北京"
List1.AddItem "天津"
List1.AddItem "云南"
List1.AddItem "甘肃"
List1.AddItem "香港"
List1.AddItem "台湾"
List1.AddItem "其他"
End Sub

Private Sub Form_Load()
List1.AddItem "上海"
List1.AddItem "北京"
List1.AddItem "天津"
List1.AddItem "云南"
List1.AddItem "甘肃"
List1.AddItem "香港"
List1.AddItem "台湾"
List1.AddItem "其他"
End Sub --------------------编程问答-------------------- 这样做没什么不对啊!!

循环的方法就不错了呀!

想一下全转过去也行! 需要一个中转站! 我指的是一个数组,先把list1的值循环写到数组中,然后一次性把list1全部干掉,在一个循环把数组中的数据循环写到list2

不知道哪样快些...

--------------------编程问答-------------------- 你怎么写到LIST1里的?难道不是循环做的?
若LIST1是循环的话,那么同样的LIST控件你怎么能够一下写进去? --------------------编程问答-------------------- Dim i As integer
For i = 0 To List1.ListCount - 1  '将所有数据移空
    List2.AddItem (List1.List(0))
    List1.RemoveItem (0) '从list1中删除
Next --------------------编程问答-------------------- 做个for循环就解决了啊 具体参见楼上 --------------------编程问答-------------------- 利用OLE技术，全部选择后，一起拖过去。 --------------------编程问答-------------------- List2.Clear 
Dim i As integer 
For i=0 To List1.ListCount-1 
     List2.AddItem List1.List(i) 
Next
List1.Clear     

补充：VB ,  基础类