|
楼主 |
发表于 2011-9-30 07:48:33
|
显示全部楼层
广西壮族自治区梧州市
[e].版本 2
.支持库 iext
.子程序 取超级列表框的检查框被选中项目, 整数型, , 检查超级列表框的检查框是否选中,返回被选中数量,0表示未选中任何项目
.参数 超级列表框, 超级列表框
.参数 被选点卡文本数组, 文本型, 参考 数组, 取出前面检查框中选中项目的点卡文本,提供文本型数组
.参数 被选点卡索引数组, 整数型, 参考 可空 数组, 取出被选中的表项索引,提供整数型数组
.局部变量 计次变量, 整数型
.计次循环首 (超级列表框.取表项数 (), 计次变量) ' 遍历超级列表框中所有项目
.如果真 (超级列表框.取当前状态图片 (计次变量 - 1) = 1) ' 查看检查框是否选中,1=选中,0=未选中
加入成员 (被选点卡文本数组, 超级列表框.取标题 (计次变量 - 1, 2)) ' 选中则将被选点卡加入变量
.如果真 (取反 (是否为空 (被选点卡索引数组))) ' 没有参数就不执行
加入成员 (被选点卡索引数组, 计次变量 - 1) ' 选中则将被选表项索引加入变量
.如果真结束
.如果真结束
.计次循环尾 ()
返回 (取数组成员数 (被选点卡文本数组))
[/e]
|
|