复制组件用法【隐藏选择表项前可视的编辑框】

选中 ＝ 列表框1.现行选中项
列表框1.删除项目 (选中)
编辑框 [选中 ＋ 1].销毁 ()
删除成员 (编辑框, 选中 ＋ 1, )
列表框1.现行选中项 ＝ 选中
' 下面这些是比较难弄的
过去选中 ＝ 0 ' 反正控件都被销毁了，就弄成0呗
.如果 (列表框1.现行选中项 ＝ -1) ' 判断是否还有表项，防止数组越界
编辑框1.可视 ＝ 真
.否则
_列表框1_列表项被选择 ()