Question

vb 单击一个按钮 列表框中内容全部到另个列表框

Answer 1

上楼的list1还未清空呀
Private
Sub
Command1_Click()
For
i
=
0
To
List1.ListCount
-
1
List2.AddItem
List1.List(i)
Next
i
for
j=
0
to
List1.ListCount-1
list1.RemoveItem
List1.List(j)
Next
j
End
Sub
Private
Sub
Form_Load()
List1.AddItem
"北京"
List1.AddItem
"上海"
List1.AddItem
"天津"
List1.AddItem
"重庆"
List1.AddItem
"天津"
List1.AddItem
"重庆"
List1.AddItem
"天津"
List1.AddItem
"重庆"
End
Sub