您的位置：程序门 -> vb -> 资源

vb 关于列表框的项目双击添加删除的问题

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

vb 关于列表框的项目双击添加删除的问题[已结贴,结贴人:]

发表于：2007-08-07 14:23:02 楼主

有两个列表框双击每个中的项目就会添加到另一个中去
代码如下
private sub command1_click（)
unload me
end sub

private sub form_load（)
list1.additem "a "
list1.additem "b "
list1.additem "c "
list1.additem "d "
list1.additem "e "
list1.additem "f "
list1.additem "g "
list1.additem "h "
list2.additem "a "
list2.additem "b "
list2.additem "c "
list2.additem "d "
list2.additem "e "
list2.additem "f "
list2.additem "g "
list2.additem "h "
command1.caption = "exit "
end sub

private sub list1_dblclick（)
list2.additem list1.text
list1.removeitem listindex
label1.caption = list2.listindex
end sub

private sub list2_dblclick（)
list1.additem list2.text
list2.removeitem listindex
label1.caption = list2.listcount
end sub
但是总是不行，任意一个列表框中的项目无论县双击哪个他都是从第一个项目就是那个index 0开始消失...
高手帮帮忙啊
小弟在此谢过了

发表于：2007-08-07 14:29:571楼得分:0

private sub list1_dblclick（)
on error goto clearerror '
list2.additem list1.text
list1.removeitem list1.listindex 'list1
label1.caption = list2.listindex
clearerror:
exit sub
end sub

private sub list2_dblclick（)
list1.additem list2.text
list2.removeitem list2.listindex 'list2
label1.caption = list2.listcount
end sub

其他资讯