快帮帮我啊！
我想把list1中的所有项添加到list2中，代码怎么写啊？ 问题点数：0、回复次数：3Top
1 楼bluesky23（乐天_正在开发右半脑。。。^_^）回复于 2004-08-02 12:50:59 得分 0
sub Lst1loadToLst2(lst1 as listbox,lst2 as listbox)
dim i as integer
for i=0 to list1.listCount-1
Lst2.AddItem Lst1.List(i)
next i
end sub
Top
2 楼ryuginka（一米八五的猪）回复于 2004-08-02 13:38:18 得分 0
sub Lst1loadToLst2(lst1 as listbox,lst2 as listbox)
dim i as integer
for i=0 to list1.listCount-1
Lst2.AddItem Lst1.List(i)
next i
end sub
调用
call Lst1loadToLst2(list1,list2)Top
3 楼starsoulxp（星魂）回复于 2004-08-02 13:43:41 得分 0
dim i as integer
for i=0 to list1.listCount-1
list2.AddItem list1.list(i)
next i
end sub
Top
