易语言教学答案-超级列表框常用一些代码

超级列表框_刷新序号

.版本 2
.支持库 iext
.子程序 超级列表框_刷新序号, 整数型, 公开, 返回结果等于超级列表框.取表项数()【把a返回了。】
.参数 超级列表框名称, 超级列表框
.局部变量 a, 整数型
.局部变量 i, 整数型
a = 超级列表框名称.取表项数 ()
.计次循环首 (a, i)
    超级列表框名称.置标题 (i - 1, 0, 到文本 (i))
.计次循环尾 ()
返回 (a)
.版本 2
.支持库 iext

———————————————-

超级列表框_全部选择

.子程序 超级列表框_全部选择, , 公开, 非勾选
.参数 超级列表框名称, 超级列表框
.局部变量 a, 整数型
.局部变量 i, 整数型
a = 超级列表框名称.取表项数 ()
.计次循环首 (a, i)
    超级列表框名称.选择表项 (i - 1)
.计次循环尾 ()

————————————————-

超级列表框_全部勾选

.版本 2
.支持库 iext
.子程序 超级列表框_全部勾选, , 公开
.参数 超级列表框名称, 超级列表框
.局部变量 a, 整数型
.局部变量 i, 整数型
a = 超级列表框名称.取表项数 ()
.计次循环首 (a, i)
    超级列表框名称.置状态图片 (i - 1, 1)
.计次循环尾 ()

————————————————-

超级列表框_按条件删除表象

‘实例:超级列表框_按条件删除表项 (超级列表框_网址, “no”, 1, 3, )

‘ 1:等于则删除  2:不等于则删除 3:包含则删除 4:不包含则删除。

.版本 2
.支持库 iext
.子程序 超级列表框_按条件删除表象, , 公开
.参数 超级列表框, 超级列表框
.参数 关键字, 文本型
.参数 列索引, 整数型
.参数 条件类型, 整数型, , 1:等于则删除  2:不等于则删除 3:包含则删除 4:不包含则删除
.参数 是否刷新序号, 逻辑型, 可空, 默认真
.局部变量 a, 整数型
.局部变量 i, 整数型
.局部变量 操作表象, 整数型
a = 超级列表框.取表项数 ()
.判断开始 (条件类型 = 1)
    .计次循环首 (a, i)
        .如果真 (超级列表框.取标题 (a - i, 列索引) = 关键字)
            超级列表框.删除表项 (a - i)
        .如果真结束
    .计次循环尾 ()
.判断 (条件类型 = 2)
    .计次循环首 (a, i)
        .如果真 (超级列表框.取标题 (a - i, 列索引) ≠ 关键字)
            超级列表框.删除表项 (a - i)
        .如果真结束
    .计次循环尾 ()
.判断 (条件类型 = 3)
    .计次循环首 (a, i)
        .如果真 (寻找文本 (超级列表框.取标题 (a - i, 列索引), 关键字, , 假) ≠ -1)
            超级列表框.删除表项 (a - i)
        .如果真结束
    .计次循环尾 ()
.判断 (条件类型 = 4)
    .计次循环首 (a, i)
        .如果真 (寻找文本 (超级列表框.取标题 (a - i, 列索引), 关键字, , 假) = -1)
            超级列表框.删除表项 (a - i)
        .如果真结束
    .计次循环尾 ()
.默认
.判断结束
.如果真 (是否为空 (是否刷新序号))
    是否刷新序号 = 真
.如果真结束
.如果真 (是否刷新序号 = 真)
    超级列表框_刷新序号 (超级列表框)
.如果真结束

————————————————-

超级列表框_去重复

‘实例:超级列表框_去重复 (超级列表框_网址,1 )

 

 

.版本 2
.支持库 iext
.支持库 spec
.子程序 超级列表框_去重复
.参数 超级列表框名称, 超级列表框
.参数 检测项, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 b, 整数型
.局部变量 数量, 整数型
数量 = 1
数组清零 (a)
.计次循环首 (超级列表框名称.取表项数 (), i)
    加入成员 (a, 超级列表框名称.取标题 (i - 1, 检测项))  ' 要检测的项
    调试输出 (a)
.计次循环尾 ()
.计次循环首 (超级列表框名称.取表项数 (), b)
    .如果 (数组_取次数 (a, 超级列表框名称.取标题 (b - 1, 2)) > 1)  ' 对比删除
        超级列表框名称.删除表项 (b - 1)
        数量 = 数量 + 1
    .否则
    .如果结束
.计次循环尾 ()
.计次循环首 (超级列表框名称.取表项数 (), i)  ' 这是重新排列
    超级列表框名称.置标题 (i - 1, 0, 到文本 (i))
.计次循环尾 ()

 

赞 (0)