列表框 菜单 高级选择夹 求一个判断循环例程

285613524

右键点一个超级列表框 的项目  通过菜单  
在高级选择夹创建一个列表框标题同名的子夹

右键的时候 判断 如果已经有了  
菜单的一个选项 禁止=真
没有就禁止=假

要求在超级列表框的空白处（没有项目的地方）右键 没反应

1. .版本 2
   
2. .支持库 iext3
   
3. .支持库 iext
   
4. 
   
5. .子程序 _超级列表框1_右键单击表项
   
6. .局部变量 子夹, 整数型
   
7. 
   
8. 子夹 ＝ 0
   
9. .判断循环首 (高级选择夹1.取子夹名称 (子夹) ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))
   
10.     子夹 ＝ 子夹 ＋ 1
    
11.     私聊.禁止 ＝ 真
    
12.     禁言.禁止 ＝ 真
    
13.     删除.禁止 ＝ 真
    
14.     弹出菜单 (c, , )
    
15. .判断循环尾 ()
    
16. 私聊.禁止 ＝ 假
    
17. 禁言.禁止 ＝ 假
    
18. 删除.禁止 ＝ 假
    
19. 弹出菜单 (c, , )

复制代码

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

.子程序 _超级列表框1_右键单击表项
.局部变量 选中项, 整数型
.局部变量 文本1, 文本型
.局部变量 变量, 整数型

选中项 ＝ 超级列表框1.现行选中项
.如果真 (选中项 ＝ -1)
    返回 ()
.如果真结束
文本1 ＝ 超级列表框1.取标题 (选中项, )
标签1.标题 ＝ 文本1
创建.禁止 ＝ 假
.计次循环首 (高级选择夹1.取子夹数目 (), 变量)
    .如果真 (高级选择夹1.取子夹名称 (变量 － 1) ＝ 文本1)
        创建.禁止 ＝ 真
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
弹出菜单 (c, , )

285613524

速度啊  快回答

285613524

天天帮别人 自己需要的时候就没人帮了
靠

285613524

楼上 兄弟 谢谢了
虽然我已经解决了

最后问下 怎么采纳你的答案  把金币给你？

ensson

学习了！！！正在学习高级选择夹