转摘易语言 超级列表框 设置选中状态-选择框的 方法

榆阅读量 27

属性

首先将属性-是否有检查框设置成真。（最好也将类型设置成报表列表框，不然无法显示报表列，同时选择框也不能按列放置）

代码

复制代码 
.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型

超级列表框1.插入列 (, , , , , )
.计次循环首 (10, i)
    超级列表框1.插入表项 (, 到文本 (i), , , , )
    超级列表框1.置状态图片 (i － 1, 选择 (超级列表框1.取当前状态图片 (i － 1) ＝ 0, 1, 0))
.计次循环尾 ()

如下图：

[![易语言 超级列表框 设置选中状态-选择框的 方法](https://img-blog.csdnimg.cn/img_convert/6a6bdd02dd20b45bf968e6752323be62.png)](https://www.tuziang.com/usr/uploads/2019/08/1670362635.png)

运行效果：

[![易语言 超级列表框 设置选中状态-选择框的 方法](https://img-blog.csdnimg.cn/img_convert/9617149d7c71cafd914d90a04879ff1b.png)](https://www.tuziang.com/usr/uploads/2019/08/1790754399.png)

解释

置状态图片：

设置指定表项的状态图片。如果"是否有检查框"属性为真，调用"置状态图片 (表项索引, 0)"或"置状态图片 (表项索引, 1)"可以设置表项检查框的选中状态（前者为不选中，后者为选中）。

取当前状态图片：

取回指定表项的当前状态图片索引，图片索引指向状态图片组属性中的某一图片，从 0 开始，-1 表示无图片。如果"是否有检查框"属性为真，返回值是当前检查框的选中状态，1表示被选中，0表示未选中。

更多

判断是否表项选中：

复制代码 
.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 i, 整数型

.计次循环首 (超级列表框1.取表项数 (), i)
    .如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
        编辑框1.内容 ＝ 编辑框1.内容 ＋ "表项" ＋ 到文本 (i) ＋ "被选中" ＋ "    "
    .如果真结束

.计次循环尾 ()

[![易语言 超级列表框 设置选中状态-选择框的 方法](https://img-blog.csdnimg.cn/img_convert/35efad1cb6adea974b245dd394d4b8f5.png)](https://www.tuziang.com/usr/uploads/2019/08/4198424519.png)

实际运行效果：
[![易语言 超级列表框 设置选中状态-选择框的 方法](https://img-blog.csdnimg.cn/img_convert/8a15e4bf39a47308f11178889ebf15c6.png)](https://www.tuziang.com/usr/uploads/2019/08/2481597235.png)

添加全选取消全选功能：

在启动窗口添加一个"选择框"，并将属性-选中设置为"真"

复制代码 
.版本 2
.支持库 iext

.子程序 _选择框1_被单击
.局部变量 i, 整数型

.如果 (选择框1.选中 ＝ 真)
    .计次循环首 (超级列表框1.取表项数 (), i)
        超级列表框1.置状态图片 (i － 1, 1)
    .计次循环尾 ()

.否则
    .计次循环首 (超级列表框1.取表项数 (), i)
        超级列表框1.置状态图片 (i － 1, 0)
    .计次循环尾 ()

.如果结束

[![易语言 超级列表框 设置选中状态-选择框的 方法](https://img-blog.csdnimg.cn/img_convert/b50d64c812d46b385d9f6774c43d6432.png)](https://www.tuziang.com/usr/uploads/2019/08/3154130341.png)

取消全选后的效果：

[![易语言 超级列表框 设置选中状态-选择框的 方法](https://img-blog.csdnimg.cn/img_convert/2868b3a9aa54ea20f7ce1d99aee85fea.png)](https://www.tuziang.com/usr/uploads/2019/08/644060677.png)

其他

视频教程： [超级列表框实例教程 - 01.新手上路请上车 易语言TV](https://www.eyuyan.tv/p1289 "超级列表框实例教程 - 01.新手上路请上车 易语言TV")

复制代码 
    ===========================
    【来源： CSDN】
    【作者： 滕青山YYDS】
    【原文链接】 https://tengqingshan.blog.csdn.net/article/details/113130929
    声明：转载此文是出于传递更多信息之目的。若有来源标注错误或侵犯了您的合法权益，请作者持权属证明与本网联系，我们将及时更正、删除，谢谢。
标签：
0/300
全部评论0
0/300