枚举所有父句柄

lujun666

已知一个子窗口句柄，枚举所有同样窗口的父句柄 不是一个子窗口所有父句柄，求代码

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
子句柄	整数型
父句柄组	整数型		0
大小	精易_位置和大小
宽	整数型
高	整数型
n	整数型

子句柄 ＝ 67460
大小 ＝ 窗口_取位置和大小 (窗口_取父句柄 (子句柄))
宽 ＝ 大小.宽度
高 ＝ 大小.高度
窗口_模糊遍历窗口 (, 窗口_取类名 (窗口_取父句柄 (子句柄)), , 父句柄组)
计次循环首 (取数组成员数 (父句柄组), n)
大小 ＝ 窗口_取位置和大小 (父句柄组 [n])
如果真 (宽 ＝ 大小.宽度 且 高 ＝ 大小.高度)
调试输出 (父句柄组 [n])

计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 子句柄, 整数型<br /> .局部变量 父句柄组, 整数型, , "0"<br /> .局部变量 大小, 精易_位置和大小<br /> .局部变量 宽, 整数型<br /> .局部变量 高, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 子句柄 ＝ 67460<br /> 大小 ＝ 窗口_取位置和大小 (窗口_取父句柄 (子句柄))<br /> 宽 ＝ 大小.宽度<br /> 高 ＝ 大小.高度<br /> 窗口_模糊遍历窗口 (, 窗口_取类名 (窗口_取父句柄 (子句柄)), , 父句柄组)<br /> .计次循环首 (取数组成员数 (父句柄组), n)<br />     大小 ＝ 窗口_取位置和大小 (父句柄组 [n])<br />     .如果真 (宽 ＝ 大小.宽度 且 高 ＝ 大小.高度)<br />         调试输出 (父句柄组 [n])<br />     .如果真结束<br /> <br /> .计次循环尾 ()

lujun666

LEOONL 发表于 2024-7-31 12:14
[e=0].版本 2
.支持库 spec

错误(10044): 不能将“”数据转换到“精易_位置和大小”数据。

补充内容 (2024-7-31 13:46):
大小 ＝ 窗口_取位置和大小 (窗口_取父句柄 (子句柄))

lujun666

LEOONL 发表于 2024-7-31 12:14

  

[/quote]
[e=2].版本 2
窗口_模糊遍历窗口 (, 窗口_取类名 (窗口_取祖句柄 (到整数 (超级列表框1.取标题 (0, 0)))), , 句柄数组)
计次循环首 (取数组成员数 (句柄数组), 句柄数量)
窗口_枚举所有子窗口 (句柄数组 [句柄数量], 句柄数组2, )
计次循环首 (取数组成员数 (句柄数组2), 句柄数量2)
如果真 (窗口_取类名 (句柄数组2 [句柄数量2]) ＝ 超级列表框1.取标题 (0, 1) 且 到文本 (句柄数组2 [句柄数量2]) ≠ 超级列表框1.取标题 (0, 0))
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (句柄数组2 [句柄数量2]))
超级列表框1.置标题 (索引, 1, 窗口_取类名 (句柄数组2 [句柄数量2]))
超级列表框1.置状态图片 (索引, 1)

计次循环尾 ()
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec</blockquote></div><br /> [e=2].版本 2<br /> .支持库 iext<br /> <br />     窗口_模糊遍历窗口 (, 窗口_取类名 (窗口_取祖句柄 (到整数 (超级列表框1.取标题 (0, 0)))), , 句柄数组)<br />     .计次循环首 (取数组成员数 (句柄数组), 句柄数量)<br />         窗口_枚举所有子窗口 (句柄数组 [句柄数量], 句柄数组2, )<br />         .计次循环首 (取数组成员数 (句柄数组2), 句柄数量2)<br />             .如果真 (窗口_取类名 (句柄数组2 [句柄数量2]) ＝ 超级列表框1.取标题 (0, 1) 且 到文本 (句柄数组2 [句柄数量2]) ≠ 超级列表框1.取标题 (0, 0))<br />                 索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />                 超级列表框1.置标题 (索引, 0, 到文本 (句柄数组2 [句柄数量2]))<br />                 超级列表框1.置标题 (索引, 1, 窗口_取类名 (句柄数组2 [句柄数量2]))<br />                 超级列表框1.置状态图片 (索引, 1)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br /> <br />     .计次循环尾 ()

我自己写出来了

LEOONL

lujun666 发表于 2024-7-31 13:48
[e=2].版本 2
.支持库 iext

窗口类名相同的很多，所以给你加了窗口宽高的判断，如果你不需要就用你自己写的就行

lujun666

LEOONL 发表于 2024-7-31 13:56
窗口类名相同的很多，所以给你加了窗口宽高的判断，如果你不需要就用你自己写的就行 ...

原来是这样，那我整改下代码

lujun666

LEOONL 发表于 2024-7-31 13:56
窗口类名相同的很多，所以给你加了窗口宽高的判断，如果你不需要就用你自己写的就行 ...

看下我回复你的那条信息，为啥会报错？

LEOONL

lujun666 发表于 2024-7-31 14:00
看下我回复你的那条信息，为啥会报错？

我测试过正常运行啊，你是不是用几种模块冲突了？

lujun666

LEOONL 发表于 2024-7-31 14:04
我测试过正常运行啊，你是不是用几种模块冲突了？

是冲突，有解决办法吗还是只能删掉这个模块

LEOONL

lujun666 发表于 2024-7-31 14:15
是冲突，有解决办法吗还是只能删掉这个模块

精易模块是有源码的，你会改就不需要模块  要是不会直接的方式就是删，看你自己