精易论坛
标题:
关于精易模块,集_托盘 的一些事情
[打印本页]
作者:
錆叫ωo红领巾℡
时间:
2021-3-17 21:53
标题:
关于精易模块,集_托盘 的一些事情
子程序名
返回值类型
公开
备 注
_登录成功_尺寸被改变
如果真
(
登录成功.位置 = 2
)
窗口_显示隐藏
(
取窗口句柄
(
)
,
假
)
如果真
(
集_类托盘.
创建
(
取窗口句柄
(
)
,
#托盘图标,
“>> 挂机程序 <<”
)
=
真
)
集_类托盘.
刷新托盘
(
)
集_类托盘.
挂接事件
(
&托盘回调
)
集_类托盘.
气泡提示
(
“提示”
,
“程序已缩小在此,需要时在此打开。。。。”
, 1, 10
)
子程序名
返回值类型
公开
备 注
托盘回调
参数名
类 型
参考
可空
数组
备 注
操作类型
整数型
如果
(
操作类型 =
#托盘事件_双击鼠标左键
)
' 操作类型=2 就是托盘图标被双击的事件
登录成功.可视 = 真
登录成功.位置 = 1
' 置托盘图标
(
{
}
, “”
)
' 清空这个程序托盘区的内容.否则
集_类托盘.
销毁
(
)
集_类托盘.
刷新托盘
(
)
如果
(
操作类型 =
#托盘事件_释放鼠标右键
)
弹出托盘菜单
(
托盘
)
.版本 2
.子程序 _登录成功_尺寸被改变
.如果真 (登录成功.位置 = 2)
窗口_显示隐藏 (取窗口句柄 (), 假)
.如果真 (集_类托盘.创建 (取窗口句柄 (), #托盘图标, “>> 挂机程序 <<”) = 真)
集_类托盘.刷新托盘 ()
集_类托盘.挂接事件 (&托盘回调)
集_类托盘.气泡提示 (“提示”, “程序已缩小在此,需要时在此打开。。。。”, 1, 10)
.如果真结束
.如果真结束
.子程序 托盘回调
.参数 操作类型, 整数型
.如果 (操作类型 = #托盘事件_双击鼠标左键) ' 操作类型=2 就是托盘图标被双击的事件
登录成功.可视 = 真
登录成功.位置 = 1
' 置托盘图标 ({ }, “”) ' 清空这个程序托盘区的内容.否则
集_类托盘.销毁 ()
集_类托盘.刷新托盘 ()
.否则
.如果结束
.如果 (操作类型 = #托盘事件_释放鼠标右键)
弹出托盘菜单 (托盘)
写法上没啥问题吧, 但是每次程序缩小至托盘的时候,程序运作几分钟后闪退,有时候几秒钟就闪退了。
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4