在写一个小项目的时候要用到列表框,由于是菜鸟,再加上水平有限,在网上也没有找到合乎心意的例程,于是自己琢磨了一下,终于是实现要求了。
功能:左右两个列表框中的项目能互转,也就是左右移动;右侧列表框内的项目可以上下移动(左边的没有做);另外支持多选左右移动,但目前无法实现多选上下移动。
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 导出字段数组 | 文本型 | 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, 真)计次循环尾 ()
列表框.e
(17.02 KB, 下载次数: 31)
|