如何将list1的全部内容copy到list2(不用循环）?

[IceMe]

如题

[BlueBeer]

呵呵，不用循环用递归，效率岂不更低？
楼主为什么不用循环？讲讲理由先~

[ColdMooon]

可以不用循环，不过要用递归。


Option Explicit
Dim n As Long

Private Sub Form_Click()
List2.Clear
n = 0
CopyItem
End Sub

Private Sub Form_Load()
With List1
.AddItem "111111111"
.AddItem "222222222"
.AddItem "333333333"
.AddItem "444444444"
.AddItem "555555555"
.AddItem "666666666"
End With
End Sub

Sub CopyItem()
If n < List1.ListCount Then
List2.AddItem List1.List(n)
n = n + 1
CopyItem
Else
Exit Sub
End If
End Sub

[IceMe]

有没有一次性copy过去的方法？就像复制粘贴？

[easydone]

呵呵，有趣！

[w18ily]

晕倒~~

[w18ily]

//循环怎么了？
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 30
List1.AddItem "Item" & i
Next i
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i

End Sub

[w18ily]

'呵呵，要先List2.Clear
'
'~~试试别的方法

[IceMe]

就是问问有没有不用循环的方法，我试了，循环10000项也就1秒多