超级列表框的选择框怎么禁止勾选

水土不服舅服你

程序点击启动后，就需要禁止改动超级列表框内表项是否勾选状态，在启动在不允许勾选或取消表项勾选的状态。 但超级列表框其他功能不禁止，比如右键超级列表框

鹏书

超级列表框操作.e (5.51 KB, 下载次数: 71)

2022-5-25 11:25 上传

点击文件名下载附件

水土不服舅服你

nikezhi 发表于 2022-5-25 11:26

非常感谢 ，我也是这样弄的，好像没有其他办法。 谢了


.版本 2
.支持库 iext
.支持库 spec

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

.计次循环首 (超级列表框1.取表项数 (), i)
    .如果真 (到整数 (超级列表框1.取标题 (i － 1, 2)) ＞ 到整数 (编辑框1.内容))
        .如果真 (超级列表框1.取标题 (i － 1, 3) ＝ 组合框1.内容)
            ret ＝ ret ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “----” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ #换行符
        .如果真结束

    .如果真结束

.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\data.txt”, 到字节集 (ret))
调试输出 (ret)

.子程序 _超级列表框1_检查框状态被改变
.参数 表项索引, 整数型
.参数 检查框状态, 整数型

.如果真 (选择框_锁定选择框.选中)
    超级列表框1.置状态图片 (表项索引, 选择 (检查框状态 ＝ 0, 1, 0))
.如果真结束