超级列表框问题

zqq68003002

勾上后 从勾的下一个表项开始开始循环 取第二列标题 是子 就打勾 是主 就跳出循环，这个逻辑并不复杂

GrayGuardian

8L的方法和我的差不多 不过我写的 你改目录名字应该可以直接调用 一个文本变量 自动分割数组

小鸿同学

冯古屋 发表于 2016-6-29 21:05
附件仅供参考

要的就是这个效果，但是你这个选上之后主目录取消选中子目录不会自动取消，这就尴尬了

zqq68003002

  

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
ls	整数型

置随机数种子 ()
计次循环首 (20, i)
ls ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (ls, 1, 选择 (取随机数 (1, 2) ＝ 1, “主目录”, “子目录”))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_检查框状态被改变
参数名	类 型	参考	可空	数组	备 注
表项索引	整数型
检查框状态	整数型

变量名	类 型	静态	数组	备 注
i	整数型

判断 (超级列表框1.取当前状态图片 (表项索引) ＝ 1)
计次循环首 (超级列表框1.取表项数 () － 表项索引 ＋ 1, i)
判断 (超级列表框1.取标题 (表项索引 ＋ i, 1) ＝ “主目录”)
跳出循环 ()
超级列表框1.置状态图片 (表项索引 ＋ i, 1)

计次循环尾 ()



计次循环首 (超级列表框1.取表项数 () － 表项索引 ＋ 1, i)
判断 (超级列表框1.取标题 (表项索引 ＋ i, 1) ＝ “主目录”)
跳出循环 ()
超级列表框1.置状态图片 (表项索引 ＋ i, 0)

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 ls, 整数型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (20, i)<br />     ls ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (ls, 1, 选择 (取随机数 (1, 2) ＝ 1, “主目录”, “子目录”))<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_检查框状态被改变<br /> .参数 表项索引, 整数型<br /> .参数 检查框状态, 整数型<br /> .局部变量 i, 整数型<br /> <br /> .判断开始 (超级列表框1.取当前状态图片 (表项索引) ＝ 1)<br />     .计次循环首 (超级列表框1.取表项数 () － 表项索引 ＋ 1, i)<br />         .判断开始 (超级列表框1.取标题 (表项索引 ＋ i, 1) ＝ “主目录”)<br />             跳出循环 ()<br />         .默认<br />             超级列表框1.置状态图片 (表项索引 ＋ i, 1)<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> <br /> .默认<br /> <br /> <br />     .计次循环首 (超级列表框1.取表项数 () － 表项索引 ＋ 1, i)<br />         .判断开始 (超级列表框1.取标题 (表项索引 ＋ i, 1) ＝ “主目录”)<br />             跳出循环 ()<br />         .默认<br />             超级列表框1.置状态图片 (表项索引 ＋ i, 0)<br /> <br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> <br /> .判断结束

小鸿同学

zqq68003002 发表于 2016-6-29 21:33
[e=3].版本 2
.支持库 iext

直接发代码会乱码，，这就尴尬了

zqq68003002

.版本 2
.支持库 iext

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

.如果真 (超级列表框1.取标题 (表项索引, 1) ＝ “子目录”)
    返回 ()
.如果真结束

.判断开始 (超级列表框1.取当前状态图片 (表项索引) ＝ 1)

    .计次循环首 (超级列表框1.取表项数 () － 表项索引 ＋ 1, i)
        .判断开始 (超级列表框1.取标题 (表项索引 ＋ i, 1) ＝ “主目录”)
            跳出循环 ()
        .默认
            超级列表框1.置状态图片 (表项索引 ＋ i, 1)

        .判断结束

    .计次循环尾 ()

.默认


    .计次循环首 (超级列表框1.取表项数 () － 表项索引 ＋ 1, i)
        .判断开始 (超级列表框1.取标题 (表项索引 ＋ i, 1) ＝ “主目录”)
            跳出循环 ()
        .默认
            超级列表框1.置状态图片 (表项索引 ＋ i, 0)

        .判断结束

    .计次循环尾 ()


要稍作修改 ，加一个判断 ，你直接点渎职应该可以把，别怕乱码

佳客

用算法应该可以实现吧 把子目录都标记出来

小鸿同学

zqq68003002 发表于 2016-6-29 21:41

就是feel，倍爽！