Question

vb里面有两个list，怎么样可以使两个list里面的值进行交换

Answer 1

假设 “交换”按钮名称 是 “交换”；

左边列表框 名称 是 “list1”； 右边列表框名称 是 “list2”
试试 下边一段 子程序 代码 的运行情况：
Private Sub 交换_Click()
Dim L1(), L2()
ReDim L1(1 To List1.ListCount)
For l = 1 To List1.ListCount
L1(l) = List1.List(l - 1)
Next l
ReDim L2(1 To List2.ListCount)
For l = 1 To List2.ListCount
L2(l) = List2.List(l - 1)
Next l
List1.Clear
For l = 1 To UBound(L2)
List1.AddItem L2(l)
Next l
List2.Clear
For l = 1 To UBound(L1)
List2.AddItem L1(l)
Next l
End Sub