列表框操作例子

tsg2005

在写一个小项目的时候要用到列表框，由于是菜鸟，再加上水平有限，在网上也没有找到合乎心意的例程，于是自己琢磨了一下，终于是实现要求了。
功能：左右两个列表框中的项目能互转，也就是左右移动；右侧列表框内的项目可以上下移动（左边的没有做）；另外支持多选左右移动，但目前无法实现多选上下移动。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
导出字段数组	文本型	0

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
计次变量	整数型

导出字段数组 ＝ { “1”, “学生姓名”, “2”, “学籍号”, “3”, “***件号”, “4”, “性别”, “5”, “籍贯”, “6”, “民族”, “7”, “家庭地址”, “8”, “联系电话”, “9”, “学校名称”, “10”, “学校标识码”, “11”, “出生日期”, “12”, “出生地”, “13”, “国籍地区”, “14”, “***件类型”, “15”, “年级”, “16”, “班级”, “17”, “港澳台侨外”, “18”, “政治面貌”, “19”, “健康状况”, “20”, “户口所在地”, “21”, “户口性质”, “22”, “入学年月”, “23”, “入学方式”, “24”, “就读方式”, “25”, “现住址”, “26”, “通讯地址”, “27”, “家庭住址”, “28”, “邮政编码”, “29”, “是否进城务工人员子女”, “30”, “是否独生子女”, “31”, “是否受过学前教育”, “32”, “是否留守儿童”, “33”, “是否孤儿”, “34”, “是否烈士优抚子女”, “35”, “是否需要申请资助”, “36”, “是否享受一补”, “37”, “学籍辅号”, “38”, “班内学号”, “39”, “学生来源”, “40”, “随班就读”, “41”, “残疾类型”, “42”, “家庭成员姓名”, “43”, “家庭成员关系”, “44”, “家庭成员工作单位”, “45”, “家庭成员现住址”, “46”, “家庭成员户口所在地”, “47”, “家庭成员联系电话” }
重定义数组 (导出字段数组, 真, 取数组成员数 (导出字段数组) ÷ 2, 2)
列表框_待选字段.清空 ()
计次循环首 (取数组成员数 (导出字段数组) ÷ 2 － 10, 计次变量)
列表框_待选字段.加入项目 (导出字段数组 [计次变量 ＋ 10] [2], 到数值 (导出字段数组 [计次变量 ＋ 10] [1]))
计次循环尾 ()
计次循环首 (10, 计次变量)
列表框_已选字段.加入项目 (导出字段数组 [计次变量] [2], 到数值 (导出字段数组 [计次变量] [1]))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_选择字段_被单击

变量名	类 型	静态	数组	备 注
i	整数型
xzxms	整数型
xzxm	整数型		0

xzxms ＝ _启动窗口.列表框_待选字段.取已选择项目数 ()
xzxm ＝ _启动窗口.列表框_待选字段.取所有被选择项目 ()
如果真 (xzxms ≥ 1)
计次循环首 (xzxms, i)
_启动窗口.列表框_已选字段.加入项目 (列表框_待选字段.取项目文本 (xzxm [i]), 列表框_待选字段.取项目数值 (xzxm [i]))
计次循环尾 ()
_启动窗口.列表框_已选字段.重画 ()
计次循环首 (xzxms, i)
_启动窗口.列表框_待选字段.删除项目 (xzxm [i] － i ＋ 1)
_启动窗口.列表框_待选字段.重画 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_取消字段_被单击

变量名	类 型	静态	数组	备 注
qxzxms	整数型
qxzxm	整数型		0
i	整数型

qxzxms ＝ _启动窗口.列表框_已选字段.取已选择项目数 ()
qxzxm ＝ _启动窗口.列表框_已选字段.取所有被选择项目 ()
如果真 (qxzxms ≥ 1)
计次循环首 (qxzxms, i)
_启动窗口.列表框_待选字段.加入项目 (列表框_已选字段.取项目文本 (qxzxm [i]), 列表框_已选字段.取项目数值 (qxzxm [i]))
计次循环尾 ()
_启动窗口.列表框_待选字段.重画 ()
计次循环首 (qxzxms, i)
_启动窗口.列表框_已选字段.删除项目 (qxzxm [i] － i ＋ 1)
_启动窗口.列表框_已选字段.重画 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_向上_被单击

变量名	类 型	静态	数组	备 注
xzxms	整数型
xzxm	整数型		0
i	整数型
xmwb	文本型
xmsz	整数型

xzxms ＝ _启动窗口.列表框_已选字段.取已选择项目数 ()
xzxm ＝ _启动窗口.列表框_已选字段.取所有被选择项目 ()
如果真 (xzxms ＝ 1)
计次循环首 (xzxms, i)
xmwb ＝ _启动窗口.列表框_已选字段.取项目文本 (xzxm [i])
xmsz ＝ _启动窗口.列表框_已选字段.取项目数值 (xzxm [i])
如果真 (xzxm [i] ＞ 0)
_启动窗口.列表框_已选字段.删除项目 (xzxm [i])
_启动窗口.列表框_已选字段.插入项目 (xzxm [i] － 1, xmwb, xmsz)
_启动窗口.列表框_已选字段.重画 ()
_启动窗口.列表框_已选字段.选择项目 (xzxm [i] － 1, 真)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_确定选择字段_被单击

变量名	类 型	静态	数组	备 注
n	整数型
i	整数型
xzzd	文本型

n ＝ _启动窗口.列表框_已选字段.取项目数 ()
计次循环首 (n, i)
xzzd ＝ xzzd ＋ “,” ＋ _启动窗口.列表框_已选字段.取项目文本 (i － 1)
计次循环尾 ()
调试输出 (xzzd)

子程序名	返回值类型	公开	备 注
_按钮_向下_被单击

变量名	类 型	静态	数组	备 注
xzxms	整数型
xzxm	整数型		0
i	整数型
xmwb	文本型
xmsz	整数型

xzxms ＝ _启动窗口.列表框_已选字段.取已选择项目数 ()
xzxm ＝ _启动窗口.列表框_已选字段.取所有被选择项目 ()
如果真 (xzxms ＝ 1)
计次循环首 (xzxms, i)
xmwb ＝ _启动窗口.列表框_已选字段.取项目文本 (xzxm [i])
xmsz ＝ _启动窗口.列表框_已选字段.取项目数值 (xzxm [i])
调试输出 (xmwb, xmsz)
如果真 (xzxm [i] ＋ 1 ＜ _启动窗口.列表框_已选字段.取项目数 ())
_启动窗口.列表框_已选字段.删除项目 (xzxm [i])
_启动窗口.列表框_已选字段.插入项目 (xzxm [i] ＋ 1, xmwb, xmsz)
_启动窗口.列表框_已选字段.重画 ()
_启动窗口.列表框_已选字段.选择项目 (xzxm [i] ＋ 1, 真)

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 导出字段数组, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 计次变量, 整数型<br /> <br /> 导出字段数组 ＝ { “1”, “学生姓名”, “2”, “学籍号”, “3”, “***件号”, “4”, “性别”, “5”, “籍贯”, “6”, “民族”, “7”, “家庭地址”, “8”, “联系电话”, “9”, “学校名称”, “10”, “学校标识码”, “11”, “出生日期”, “12”, “出生地”, “13”, “国籍地区”, “14”, “***件类型”, “15”, “年级”, “16”, “班级”, “17”, “港澳台侨外”, “18”, “政治面貌”, “19”, “健康状况”, “20”, “户口所在地”, “21”, “户口性质”, “22”, “入学年月”, “23”, “入学方式”, “24”, “就读方式”, “25”, “现住址”, “26”, “通讯地址”, “27”, “家庭住址”, “28”, “邮政编码”, “29”, “是否进城务工人员子女”, “30”, “是否独生子女”, “31”, “是否受过学前教育”, “32”, “是否留守儿童”, “33”, “是否孤儿”, “34”, “是否烈士优抚子女”, “35”, “是否需要申请资助”, “36”, “是否享受一补”, “37”, “学籍辅号”, “38”, “班内学号”, “39”, “学生来源”, “40”, “随班就读”, “41”, “残疾类型”, “42”, “家庭成员姓名”, “43”, “家庭成员关系”, “44”, “家庭成员工作单位”, “45”, “家庭成员现住址”, “46”, “家庭成员户口所在地”, “47”, “家庭成员联系电话” }<br /> 重定义数组 (导出字段数组, 真, 取数组成员数 (导出字段数组) ÷ 2, 2)<br /> 列表框_待选字段.清空 ()<br /> .计次循环首 (取数组成员数 (导出字段数组) ÷ 2 － 10, 计次变量)<br />     列表框_待选字段.加入项目 (导出字段数组 [计次变量 ＋ 10] [2], 到数值 (导出字段数组 [计次变量 ＋ 10] [1]))<br /> .计次循环尾 ()<br /> .计次循环首 (10, 计次变量)<br />     列表框_已选字段.加入项目 (导出字段数组 [计次变量] [2], 到数值 (导出字段数组 [计次变量] [1]))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _按钮_选择字段_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 xzxms, 整数型<br /> .局部变量 xzxm, 整数型, , "0"<br /> <br /> xzxms ＝ _启动窗口.列表框_待选字段.取已选择项目数 ()<br /> xzxm ＝ _启动窗口.列表框_待选字段.取所有被选择项目 ()<br /> <br /> .如果真 (xzxms ≥ 1)<br />     .计次循环首 (xzxms, i)<br />         _启动窗口.列表框_已选字段.加入项目 (列表框_待选字段.取项目文本 (xzxm <i>), 列表框_待选字段.取项目数值 (xzxm <i>))<br />     .计次循环尾 ()<br />     _启动窗口.列表框_已选字段.重画 ()<br />     .计次循环首 (xzxms, i)<br />         _启动窗口.列表框_待选字段.删除项目 (xzxm <i> － i ＋ 1)<br />         _启动窗口.列表框_待选字段.重画 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮_取消字段_被单击<br /> .局部变量 qxzxms, 整数型<br /> .局部变量 qxzxm, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> qxzxms ＝ _启动窗口.列表框_已选字段.取已选择项目数 ()<br /> <br /> qxzxm ＝ _启动窗口.列表框_已选字段.取所有被选择项目 ()<br /> <br /> .如果真 (qxzxms ≥ 1)<br />     .计次循环首 (qxzxms, i)<br />         _启动窗口.列表框_待选字段.加入项目 (列表框_已选字段.取项目文本 (qxzxm <i>), 列表框_已选字段.取项目数值 (qxzxm <i>))<br />     .计次循环尾 ()<br />     _启动窗口.列表框_待选字段.重画 ()<br />     .计次循环首 (qxzxms, i)<br />         _启动窗口.列表框_已选字段.删除项目 (qxzxm <i> － i ＋ 1)<br />         _启动窗口.列表框_已选字段.重画 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮_向上_被单击<br /> .局部变量 xzxms, 整数型<br /> .局部变量 xzxm, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 xmwb, 文本型<br /> .局部变量 xmsz, 整数型<br /> <br /> xzxms ＝ _启动窗口.列表框_已选字段.取已选择项目数 ()<br /> xzxm ＝ _启动窗口.列表框_已选字段.取所有被选择项目 ()<br /> .如果真 (xzxms ＝ 1)<br />     .计次循环首 (xzxms, i)<br />         xmwb ＝ _启动窗口.列表框_已选字段.取项目文本 (xzxm <i>)<br />         xmsz ＝ _启动窗口.列表框_已选字段.取项目数值 (xzxm <i>)<br />         .如果真 (xzxm <i> ＞ 0)<br />             _启动窗口.列表框_已选字段.删除项目 (xzxm <i>)<br />             _启动窗口.列表框_已选字段.插入项目 (xzxm <i> － 1, xmwb, xmsz)<br />             _启动窗口.列表框_已选字段.重画 ()<br />             _启动窗口.列表框_已选字段.选择项目 (xzxm <i> － 1, 真)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_确定选择字段_被单击<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 xzzd, 文本型<br /> <br /> n ＝ _启动窗口.列表框_已选字段.取项目数 ()<br /> .计次循环首 (n, i)<br />     xzzd ＝ xzzd ＋ “,” ＋ _启动窗口.列表框_已选字段.取项目文本 (i － 1)<br /> <br /> .计次循环尾 ()<br /> 调试输出 (xzzd)<br /> <br /> .子程序 _按钮_向下_被单击<br /> .局部变量 xzxms, 整数型<br /> .局部变量 xzxm, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 xmwb, 文本型<br /> .局部变量 xmsz, 整数型<br /> <br /> xzxms ＝ _启动窗口.列表框_已选字段.取已选择项目数 ()<br /> xzxm ＝ _启动窗口.列表框_已选字段.取所有被选择项目 ()<br /> <br /> .如果真 (xzxms ＝ 1)<br />     .计次循环首 (xzxms, i)<br />         xmwb ＝ _启动窗口.列表框_已选字段.取项目文本 (xzxm <i>)<br />         xmsz ＝ _启动窗口.列表框_已选字段.取项目数值 (xzxm <i>)<br />         调试输出 (xmwb, xmsz)<br />         .如果真 (xzxm <i> ＋ 1 ＜ _启动窗口.列表框_已选字段.取项目数 ())<br />             _启动窗口.列表框_已选字段.删除项目 (xzxm <i>)<br />             _启动窗口.列表框_已选字段.插入项目 (xzxm <i> ＋ 1, xmwb, xmsz)<br /> <br /> <br />             _启动窗口.列表框_已选字段.重画 ()<br />             _启动窗口.列表框_已选字段.选择项目 (xzxm <i> ＋ 1, 真)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束

列表框.e (17.02 KB, 下载次数: 31)

2018-10-24 20:24 上传

点击文件名下载附件

kyo9766

感谢分享

sxlldaj

谢谢分享，支持

sampo

感谢楼主分享

商务

谢谢楼主分享

xshn

分享就是美德

已注销440449

谢谢楼主分享

sanfeng

厉害了  支持 谢谢

fyh505099

谢谢楼主分享

tsg2005

第一次分享源码，代码可能不是最精简的，还望大家不要笑话。

wangguan

感谢分享！