急求送分，有两个listbox控件，怎么把listbox1里面的所有内容，放进listbox2.

Question

急求送分，有两个listbox控件，怎么把listbox1里面的所有内容，放进listbox2.
用一个，Private Sub Command1_Click()事件
。Private Sub Command1_Click()
If List1.ListIndex <> -1 Then
List2.AddItem List1.list(list1.listindex)
End If
End Sub只能把一个选择的内容进入listbox2.
请问，应怎么做才能把listbox1的所有内容放进listbox2里面

Answer 1

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

Answer 2

Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        List2.AddItem List1.List(i)
    Next i
End SubPrivate Sub Form_Load()
    List1.AddItem "item 1"
    List1.AddItem "item 2"
    List1.AddItem "item 3"
    List1.AddItem "item 4"End Sub

Answer 3

list中内容的添加
Private Sub Command1_Click()
   List2.Clear
   Dim i As Integer
   For i = 0 To List1.ListCount - 1
      List2.AddItem List1.List(i), i
   Next i
End Sub'combo与list差不多
Private Sub Combo1_DropDown() 'combo下拉事件
   Combo2.Clear
   Dim i As Integer
   For i = 0 To Combo1.ListCount - 1
      Combo2.AddItem Combo1.List(i), i
   Next i
End Sub