关于分组框被遮盖，用可视真假不能看到的问题

老白菜

昨天MA大神给了我一个用选择控制分组框可视的代码，我试用了自己的代码增加，结果只能显示一个分组框，其他的被遮盖住了，所有设置可视为假，但是
也不能看到要显示的内容，MA大神不知道是怎么做的，我反复对比了他给我的代码，所有设置都一样就是名字不同而已。请各位大神指导下。谢谢。
PS：几个分组框重叠在一起，编辑非常不方便，总是要把其他框拉倒右边然后编辑好了再重合回去，请问有针对某一个分组框进行编辑的方法吗？或者可以
像PS一样很直观的看到并编辑某个“层”的方法。谢谢大家。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
显示某一窗口
参数名	类 型	参考	可空	数组	备 注
标记_参数	文本型

变量名	类 型	静态	数组	备 注
rwhwnd	整数型
rwtemp	分组框
i	整数型

rwhwnd ＝ 寻找组件 (主窗口1, , “分组框”, , )
如果真 (rwhwnd ＝ 0)
调试输出 (“未找到组件”)
返回 ()
计次循环首 (取找到组件数目 (rwhwnd), i)
rwtemp ＝ 取所找到组件 (rwhwnd, i － 1)
如果 (rwtemp.标记 ＝ 标记_参数)
rwtemp.可视 ＝ 真
调试输出 (“找到了”)
rwtemp.可视 ＝ 假
调试输出 (“找不到”)
处理事件 ()
计次循环尾 ()
清除组件寻找句柄 (rwhwnd)

子程序名	返回值类型	公开	备 注
_列表框1_列表项被选择

变量名	类 型	静态	数组	备 注
标记_参	文本型
临时	文本型

标记_参 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
调试输出 (标记_参)
显示某一窗口 (标记_参)

子程序名	返回值类型	公开	备 注
_列表框1_双击选择

变量名	类 型	静态	数组	备 注
临时文本	文本型
次数	整数型

临时文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
列表框2.加入项目 (临时文本, )
计次循环首 (列表框2.取项目数 () － 1, 次数)
如果真 (列表框2.取项目文本 (次数 － 1) ＝ 临时文本)
列表框2.删除项目 (列表框2.取项目数 () － 1)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_列表框2_列表项被选择

变量名	类 型	静态	数组	备 注
计数1	整数型
窗口名字	文本型

如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “藏匿任务”)
蜗牛显灵.可视 ＝ 假
天门初开.可视 ＝ 假
万里长征.可视 ＝ 假
藏匿任务.可视 ＝ 真

如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “天门初开”)
蜗牛显灵.可视 ＝ 假
天门初开.可视 ＝ 真
万里长征.可视 ＝ 假
藏匿任务.可视 ＝ 假

如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “万里长征”)
蜗牛显灵.可视 ＝ 假
天门初开.可视 ＝ 假
万里长征.可视 ＝ 真
藏匿任务.可视 ＝ 假

如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “蜗牛显灵”)
蜗牛显灵.可视 ＝ 真
天门初开.可视 ＝ 假
万里长征.可视 ＝ 假
藏匿任务.可视 ＝ 假

子程序名	返回值类型	公开	备 注
_列表框2_双击选择

列表框2.删除项目 (列表框2.现行选中项)

子程序名	返回值类型	公开	备 注
_调节器1_调节钮被按下
参数名	类 型	参考	可空	数组	备 注
按钮值	整数型

变量名	类 型	静态	数组	备 注
对比内容	文本型
对比数值	整数型

对比内容 ＝ 列表框2.取项目文本 (列表框2.现行选中项)
对比数值 ＝ 列表框2.现行选中项
如果 (按钮值 ＝ 1)
' 调试输出 (对比数值)
如果真 (对比数值 ＝ 0)
返回 ()
列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 － 1))
列表框2.置项目文本 (对比数值 － 1, 对比内容)
列表框2.现行选中项 ＝ 对比数值 － 1

如果真 (对比数值 ＝ 列表框2.取项目数 () － 1)
返回 ()
列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 ＋ 1))
列表框2.置项目文本 (对比数值 ＋ 1, 对比内容)
列表框2.现行选中项 ＝ 对比数值 ＋ 1

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 显示某一窗口<br /> .参数 标记_参数, 文本型<br /> .局部变量 rwhwnd, 整数型<br /> .局部变量 rwtemp, 分组框<br /> .局部变量 i, 整数型<br /> <br /> rwhwnd ＝ 寻找组件 (主窗口1, , “分组框”, , )<br /> .如果真 (rwhwnd ＝ 0)<br />     调试输出 (“未找到组件”)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (取找到组件数目 (rwhwnd), i)<br />     rwtemp ＝ 取所找到组件 (rwhwnd, i － 1)<br />     .如果 (rwtemp.标记 ＝ 标记_参数)<br />         rwtemp.可视 ＝ 真<br />         调试输出 (“找到了”)<br />     .否则<br />         rwtemp.可视 ＝ 假<br />         调试输出 (“找不到”)<br />     .如果结束<br />     处理事件 ()<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (rwhwnd)<br /> <br /> <br /> .子程序 _列表框1_列表项被选择<br /> .局部变量 标记_参, 文本型<br /> .局部变量 临时, 文本型<br /> <br /> 标记_参 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br /> 调试输出 (标记_参)<br /> 显示某一窗口 (标记_参)<br /> <br /> <br /> .子程序 _列表框1_双击选择<br /> .局部变量 临时文本, 文本型<br /> .局部变量 次数, 整数型<br /> <br /> 临时文本 ＝ 列表框1.取项目文本 (列表框1.现行选中项)<br /> 列表框2.加入项目 (临时文本, )<br /> <br /> .计次循环首 (列表框2.取项目数 () － 1, 次数)<br />     .如果真 (列表框2.取项目文本 (次数 － 1) ＝ 临时文本)<br />         列表框2.删除项目 (列表框2.取项目数 () － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> <br /> .子程序 _列表框2_列表项被选择<br /> .局部变量 计数1, 整数型<br /> .局部变量 窗口名字, 文本型<br /> <br /> <br /> .如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “藏匿任务”)<br />     蜗牛显灵.可视 ＝ 假<br />     天门初开.可视 ＝ 假<br />     万里长征.可视 ＝ 假<br />     藏匿任务.可视 ＝ 真<br /> <br /> .否则<br />     .如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “天门初开”)<br />         蜗牛显灵.可视 ＝ 假<br />         天门初开.可视 ＝ 真<br />         万里长征.可视 ＝ 假<br />         藏匿任务.可视 ＝ 假<br /> <br /> <br /> <br />     .否则<br />         .如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “万里长征”)<br />             蜗牛显灵.可视 ＝ 假<br />             天门初开.可视 ＝ 假<br />             万里长征.可视 ＝ 真<br />             藏匿任务.可视 ＝ 假<br /> <br />         .否则<br />             .如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “蜗牛显灵”)<br />                 蜗牛显灵.可视 ＝ 真<br />                 天门初开.可视 ＝ 假<br />                 万里长征.可视 ＝ 假<br />                 藏匿任务.可视 ＝ 假<br />             .否则<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _列表框2_双击选择<br /> <br /> 列表框2.删除项目 (列表框2.现行选中项)<br /> <br /> <br /> <br /> .子程序 _调节器1_调节钮被按下<br /> .参数 按钮值, 整数型<br /> .局部变量 对比内容, 文本型<br /> .局部变量 对比数值, 整数型<br /> <br /> 对比内容 ＝ 列表框2.取项目文本 (列表框2.现行选中项)<br /> 对比数值 ＝ 列表框2.现行选中项<br /> <br /> .如果 (按钮值 ＝ 1)<br />     ' 调试输出 (对比数值)<br />     .如果真 (对比数值 ＝ 0)<br />         返回 ()<br />     .如果真结束<br />     列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 － 1))<br />     列表框2.置项目文本 (对比数值 － 1, 对比内容)<br />     列表框2.现行选中项 ＝ 对比数值 － 1<br /> <br /> .否则<br />     .如果真 (对比数值 ＝ 列表框2.取项目数 () － 1)<br />         返回 ()<br />     .如果真结束<br />     列表框2.置项目文本 (对比数值, 列表框2.取项目文本 (对比数值 ＋ 1))<br />     列表框2.置项目文本 (对比数值 ＋ 1, 对比内容)<br />     列表框2.现行选中项 ＝ 对比数值 ＋ 1<br /> .如果结束

ma8803

蜗牛传奇.zip (2.78 KB, 下载次数: 6)

2015-10-20 22:09 上传

点击文件名下载附件

老白菜

上传的时候上传了个旧的文件，下面这些代码是可以直接删除的。对不起大家的眼球。

1. 子程序名        返回值类型        公开        备 注
   
2. _列表框2_列表项被选择                         
   
3. 变量名        类 型        静态        数组        备 注
   
4. 计数1        整数型                         
   
5. 窗口名字        文本型                         
   
6. 如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “藏匿任务”)
   
7. 蜗牛显灵.可视 ＝ 假
   
8. 天门初开.可视 ＝ 假
   
9. 万里长征.可视 ＝ 假
   
10. 藏匿任务.可视 ＝ 真
    
11. 
    
12. 如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “天门初开”)
    
13. 蜗牛显灵.可视 ＝ 假
    
14. 天门初开.可视 ＝ 真
    
15. 万里长征.可视 ＝ 假
    
16. 藏匿任务.可视 ＝ 假
    
17. 
    
18. 如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “万里长征”)
    
19. 蜗牛显灵.可视 ＝ 假
    
20. 天门初开.可视 ＝ 假
    
21. 万里长征.可视 ＝ 真
    
22. 藏匿任务.可视 ＝ 假
    
23. 
    
24. 如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “蜗牛显灵”)
    
25. 蜗牛显灵.可视 ＝ 真
    
26. 天门初开.可视 ＝ 假
    
27. 万里长征.可视 ＝ 假
    
28. 藏匿任务.可视 ＝ 假
    
29. 
    
30. 
    

复制代码

帝雪枫

分组框1.调整层次 ()
    调用格式： 〈无返回值〉 对象．调整层次 （［整数型 欲调整到的层次］） - 系统核心支持库->窗口
    英文名称：ZOrder
    改变窗口或窗口组件的现行所处层次。本命令为初级对象成员命令。
    参数<1>的名称为“欲调整到的层次”，类型为“整数型（int）”，可以被省略。可以为以下常量之一： 1、#顶层； 2、#底层； 3、#最高层； 4、#次高层。如果被省略，默认为“#顶层”。

老白菜

lmzz520 发表于 2015-10-20 17:36
分组框1.调整层次 ()
    调用格式： 〈无返回值〉 对象．调整层次 （［整数型 欲调整到的层次］） - 系统 ...

谢谢LM的方法。这是一个方法，要用的话是要在界面上做一个按钮，然后按钮的单击激活分组框1.调整层次（），把层次调整到首层然后再回到界面进行编辑，请问还有没有其他的能在快捷栏修改的方法。

帝雪枫

老白菜 发表于 2015-10-20 17:43
谢谢LM的方法。这是一个方法，要用的话是要在界面上做一个按钮，然后按钮的单击激活分组框1.调整层次（） ...

直接写在你调整可视的代码下不就行了

如果 (列表框2.取项目文本 (列表框2.现行选中项) ＝ “蜗牛显灵”)
蜗牛显灵.调整层次 (1)
蜗牛显灵.可视 ＝ 真
天门初开.可视 ＝ 假
万里长征.可视 ＝ 假
藏匿任务.可视 ＝ 假

老白菜

再次谢谢520大神。我用的是变量名字的，MA大神昨晚帮我做了个代码，不需要这样就可以直接显示，所以我总觉得应该是我设置上出了什么状况。附件如下。如果可以用设置来解决的话，应该比用代码来解决效果好些。

补充内容 (2015-10-20 17:58):
调整层次是放在循环里的，如果列表的内容多，那么每一次历遍循环都要针对一个窗口调整层次，多少也会影响速度的说。

补充内容 (2015-10-20 19:24):
已经确定了是设置的问题，MA大大给的TEMP里是能够实现可视的，但是我把代码全部复制到新窗口都不行。

老白菜

十分感谢MA大大的回复。我明白了。