您的位置：程序门 -> vb -> 基础类

如何把listbox1选中的数据转移到 listbox2

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何把listbox1选中的数据转移到 listbox2

发表于：2007-06-09 21:37:22 楼主

刚学vb 请大侠们指点一下！有现成的例子给个更好

发表于：2007-06-09 22:22:131楼得分:0

单选的话，用list2.additem list1，这样可以
如果多选，不知道怎么写。都忘了

发表于：2007-06-09 22:30:542楼得分:0

还分单选多选？

for i=0 to list1.listcount-1
list2.additem list1.list（i)
next i

发表于：2007-06-09 23:58:143楼得分:0

'两个列表的数据互相移动，可以设置全部移动
private sub movelistitem（lstsource as listbox, lstdest as listbox, byval ballitems as boolean)
dim intidx as integer

on error goto errmsg

if ballitems = true then 'all items
for intidx = 0 to lstsource.listcount - 1
call lstdest.additem（lstsource.list（intidx))
next intidx
call lstsource.clear
else 'selected items
do while intidx < lstsource.listcount
if lstsource.selected（intidx) = true then
call lstdest.additem（lstsource.list（intidx))
call lstsource.removeitem（intidx)
else
intidx = intidx + 1
end if
loop
end if

errexit:
on error goto 0
exit sub

errmsg:
msgbox err.number & ": " & err.description
resume errexit
end sub

发表于：2007-06-10 14:30:214楼得分:0

'首先手动设置 list1.style = 1
for i = 0 to 10
list1.additem i
if i mod 2 then list1.selected（i) = true
if list1.selected（i) then list2.additem list1.list（i)
next

下一篇：如何实现传sql语句给水晶报表显示
上一篇：提示缺少end sub

其他资讯