自己编写的一个自动更换壁纸小帮手最小化之后不能在系统托盘区进行操作,比如实现“关闭”、“打开”、“设置”等操作。那么如何实现呢?这里我便分享给大家。
先点中我们编写程序的启动窗口,然后:右键-->菜单编辑器,进入菜单编辑器
例如我这里示例,就在标题处填写叫:“托盘”的菜单,然后再去掉“可是”前面的勾
然后给“托盘”这个菜单插入几个“子菜单”,我这里分别插入:打开,退出,这两个。
1.我先编写托盘的子菜单“退出”被选择这个子程序。到时候在托盘区被点中后会执行关闭程序的命令:
_启动窗口.销毁 ()
2.让最小化按钮为真
让这个程序被最小化的时候,我们的程序只在系统托盘区显示一个图标。
那么增加一个按钮1。
生成按钮1被单击的子程序,在这个子程序下编写代码如下:
_启动窗口.位置 = 2
置托盘图标 (#图片1, “百度经验实例程序”)
_启动窗口.可视 = 假
再点中启动窗口的情况下,点击事件:置托盘事件
并在这个“__启动窗口_托盘事件”子程序下编写如下代码:
.如果 (操作类型 = 2) ' 操作类型=2 就是托盘图标被双击的事件 _启动窗口.可视 = 真 ' 让窗口显示出来 _启动窗口.位置 = 1 ' 让这个窗口居中居中 置托盘图标 ({ }, “”) ' 清空这个程序托盘区的内容.否则
.如果结束.如果 (操作类型 = 3) ' 操作类型=3 就是托盘图标被右键单击的事件 弹出托盘菜单 (托盘) ' 在托盘区弹出我们最先写好的子菜单内容.否则
.如果结束
测试一下