在vb中有两个列表,我们如何交换两个列表的值?

日期:2019/11/06 09:41
展开全部
假设“交换”按钮的名称是“交换”。左侧列表框的名称是“list1”。右侧列表框的名称是“list2”。尝试以下子程序代码操作:
ListCount)Forl = 1 ToList1。
ListCount L1(l)= List1。
列表(l-1)NextlReDimL2(1ToList2)。
ListCount)Forl = 1 ToList2。
ListCount L2(l)= List2。
列表(l?1)列表1如下。
ClearForl = 1ToUBound(L2)List1。
LOCATIONL2(l)NextlList2。
ClearForl = 1Toubound(L1)List2。
Chiefll(l)NextlEndSub


下一篇:没有了