找回密码
 加入
搜索
查看: 2050|回复: 4

[系统综合] 多级托盘菜单怎么做?

  [复制链接]
发表于 2013-5-27 17:15:43 | 显示全部楼层 |阅读模式
多级托盘菜单这么做呀!试了半天不成功。求个示例。谢谢
发表于 2013-5-27 19:30:01 | 显示全部楼层
注意 TrayCreateItem 的第二个参数
请看帮助
发表于 2013-5-27 19:44:56 | 显示全部楼层
本帖最后由 user3000 于 2013-5-27 19:48 编辑

这是事件响应托盘菜单的简单例子,消息循环模式,请参考帮助文档.
Opt('traymenumode', 1+2); 开启托盘自定义菜单,并取消点击菜单后的打勾状态
Opt('TrayOnEventMode', 1) ; 开启事件响应模式.

$m1 = TrayCreateMenu('菜单1')
TrayCreateItem('子菜单1', $m1)
TrayItemSetOnEvent(-1, '_first')
TrayCreateItem('', $m1)
$m2 = TrayCreateMenu('子菜单', $m1)
TrayCreateItem('子菜单2', $m2)
TrayItemSetOnEvent(-1, '_second')
TrayCreateItem('')
TrayCreateItem('退出')
TrayItemSetOnEvent(-1, '_exit')
While 1
Sleep(50)
WEnd

Func _first()
        MsgBox(0, '', '响应子菜单1')
EndFunc

Func _second()
        MsgBox(0, '', '响应子菜单2')
EndFunc

Func _exit()
        Exit
EndFunc
 楼主| 发表于 2013-5-27 22:20:02 | 显示全部楼层
谢谢!!!
发表于 2013-5-27 23:59:41 | 显示全部楼层
多看帮助文档!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-25 13:56 , Processed in 0.080286 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表