list2显示list1的内容???? 急求～～，谢谢！！～～

Question

list2中显示list1中的内容????  急求～～，谢谢！！～～请多提供点代码，让我可以选择！！谢谢了！！

Answer 1

添加list1 list2 command1Private Sub Command1_Click()
List2.AddItem List1.Text
b = List1.Text
Dim a(0 To 20) As String
Dim i As Integer
i = 0
While List1.List(i) <> ""
a(i) = List1.List(i)
List1.List(i) = ""
i = i + 1
Wend
List1.Cleari = 0
While a(i) <> ""
If a(i) = b Then
Else
List1.AddItem a(i)
End If
i = i + 1
Wend
End Sub

Answer 2

Private Sub Command1_Click()
For I = 0 To List1.ListCount - 1
List2.AddItem List1.List(I)
Next
End SubPrivate Sub Form_Load()
For I = 0 To 20
List1.AddItem I
Next
End Sub

Answer 3

加一句
Private Sub Command1_Click()
List2.Clear
For I = 0 To List1.ListCount - 1
List2.AddItem List1.List(I)
Next
End SubPrivate Sub Form_Load()
For I = 0 To 20
List1.AddItem I
Next
End Sub

Answer 4

只是list1中有0到20有用，乱得不行哟～！

Answer 5

Private Sub Form_Load()
  For i = 0 To 20
      List1.AddItem i
  Next
End SubPrivate Sub Command1_Click()
For i = 0 To List1.ListCount - 1
   List1.Selected(i) = True
   List2.AddItem List1.Text
Next
End Sub

Answer 6

Private Sub Command1_Click()
List2.Clear
For I = 0 To List1.ListCount - 1
List2.AddItem List1.List(I)
Next
End SubPrivate Sub Form_Load()
List1.AddItem "！经测试～！"
List1.AddItem "经测试～！"
List1.AddItem "以上全部错误！"
List1.AddItem "只是list1中有0到20有用"
List1.AddItem "乱得不行哟～！"
List1.AddItem "SB一个!"
End Sub

Answer 7

Private Sub Form_Load()
  For i = 0 To 20
      List1.AddItem i
  Next
End SubPrivate Sub Command1_Click()
For i = 0 To List1.ListCount - 1
   List1.Selected(i) = True
   List2.AddItem List1.Text
Next
End Sub

Answer 8

Private Sub Command1_Click()List2.AddItem List1.List(List1.ListIndex)End SubPrivate Sub Form_Load()
List1.AddItem "！经测试～！"
List1.AddItem "经测试～！"
List1.AddItem "以上全部错误！"
List1.AddItem "只是list1中有0到20有用"
List1.AddItem "乱得不行哟～！"
List1.AddItem "SB一个!"
End Sub