Question

vb 把list1中的内容放到list2中那个语句啊

vb 把list1中的内容放到list2中那个语句啊

List2.AddItem = List1.??????

Answer 1

Private Sub Command1_Click()
List2.Clear
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
List1.Clear
End Sub

Answer 2

for i=0 to list1.listcout-1
List2.AddItem = List1.list(list1.listindex)
next i

Answer 3

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
List2.AddItem List1.text
Next
List1.ListIndex = 0
End Sub

Private Sub Form_Load()
List1.AddItem "啊"
List1.AddItem "吧"
List1.AddItem "才"
List1.ListIndex = 0
End Sub

Answer 4

for n = 0 to list1.listindex
list1.listindex=n
list2.additem(list1.listindex)
next