枚举易语言菜单 怎么也取不到怎么回事？

iYuYan

1. .版本 2
   
2. 
   
3. .子程序 枚举易语言菜单
   
4. .参数 窗口句柄, 整数型
   
5. .局部变量 子窗口, 整数型, , "0"
   
6. .局部变量 i, 整数型
   
7. .局部变量 ii, 整数型
   
8. .局部变量 hMenu, 整数型
   
9. .局部变量 nMenuCount, 整数型
   
10. .局部变量 hSubMenu, 整数型
    
11. .局部变量 nSubCount, 整数型
    
12. 
    
13. 窗口_枚举所有子窗口EX (窗口句柄, 子窗口, “”)
    
14. 输出调试文本 (取数组成员数 (子窗口))
    
15. .计次循环首 (取数组成员数 (子窗口), i)
    
16.     hMenu ＝ GetMenu (子窗口 [i])
    
17.     .如果真 (hMenu ≤ 0)  ' 判断当前窗口是否有菜单
    
18.         到循环尾 ()
    
19.     .如果真结束
    
20.     nMenuCount ＝ GetMenuItemCount (hMenu)
    
21.     .如果真 (nMenuCount ＝ -1)  ' 取出菜单数量 -1表示没有菜单
    
22.         到循环尾 ()
    
23.     .如果真结束
    
24.     输出调试文本 (到文本 (i) ＋ “/” ＋ 到文本 (子窗口 [i]) ＋ “/” ＋ 到文本 (hMenu) ＋ “/” ＋ 到文本 (nMenuCount))
    
25.     .计次循环首 (nMenuCount, ii)
    
26.         hSubMenu ＝ GetSubMenu (hMenu, ii)
    
27.         nSubCount ＝ GetMenuItemCount (hSubMenu)
    
28.         .如果真 (nSubCount ＞ 0)
    
29.             输出调试文本 (到文本 (ii) ＋ “/” ＋ 到文本 (hSubMenu) ＋ “/” ＋ 到文本 (nSubCount) ＋ “/” ＋ 菜单_取标题 (hSubMenu, ii))
    
30.         .如果真结束
    
31. 
    
32.     .计次循环尾 ()
    
33. .计次循环尾 ()
    
34. 
    
35. 
    

复制代码

iYuYan

shennight 发表于 2020-3-24 10:28
别人给的代码就是易语言的，那个开阔云助手就是易语言做的。谢谢

我要的是操控易语言，不是其他程序，所以想知道枚举菜单ID ，现在找不到菜单ID 都只能通过键盘，消息来实现了。

shennightVIP6年

iYuYan 发表于 2020-3-23 22:43
我就要枚举易语言的。其他的我测试可以枚举，易语言菜单条，是无法枚举到的。 ...

别人给的代码就是易语言的，那个开阔云助手就是易语言做的。谢谢

iYuYan

666 发表于 2020-3-23 10:54
请使用综合模块  其他模块请到其他地方反馈去

我就要枚举易语言的。其他的我测试可以枚举，易语言菜单条，是无法枚举到的。

666VIP1

请使用综合模块  其他模块请到其他地方反馈去


综合模块群组地址:http://www.kaikuoyun.com/gid-81