易语言我想实现程序最小化到托盘后右键弹出菜单,怎么农
展开全部
.版本 2 '
.子程序 __启动窗口_创建完毕
置托盘图标 (#图标, “祥枯测试”) ' 总的来说,要想和QQ一样的托盘效果,需要困森用到三个子程序(__启动窗口_创建完毕,__启动窗口_托盘事件,__启动窗口_尺寸被改变)
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果真 (操汪宴亩作类型 = 2) ' 1为鼠标左键单击,2为左键双击,3为右键单击,0或4无反应
_启动窗口.可视 = 真
_启动窗口.位置 = 0
.如果真结束
.如果真 (操作类型 = 3)
弹出托盘菜单 (菜单)
.如果真结束
.子程序 __启动窗口_尺寸被改变 4\)
.如果真 (_启动窗口.位置 = 2) ' 0为通常,1为居中,2为最小化,3为最大化
_启动窗口.可视 = 假
.子程序 __启动窗口_创建完毕
置托盘图标 (#图标, “祥枯测试”) ' 总的来说,要想和QQ一样的托盘效果,需要困森用到三个子程序(__启动窗口_创建完毕,__启动窗口_托盘事件,__启动窗口_尺寸被改变)
.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果真 (操汪宴亩作类型 = 2) ' 1为鼠标左键单击,2为左键双击,3为右键单击,0或4无反应
_启动窗口.可视 = 真
_启动窗口.位置 = 0
.如果真结束
.如果真 (操作类型 = 3)
弹出托盘菜单 (菜单)
.如果真结束
.子程序 __启动窗口_尺寸被改变 4\)
.如果真 (_启动窗口.位置 = 2) ' 0为通常,1为居中,2为最小化,3为最大化
_启动窗口.可视 = 假
参考资料: http://bbs.ghoffice.com:81/read-htm-tid-55033-page-2.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询