以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]openQQ 断线后自动锁屏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122558)

--  作者:samlzc
--  发布时间:2018/7/27 22:34:00
--  [讨论]openQQ 断线后自动锁屏
我想实现openQQ 断线后自动锁屏,锁屏界面上有一个重新连接的按钮,一个是退出项目的按钮,请问如何编写好?
断线打开锁屏的代码放在那里好?

--  作者:有点蓝
--  发布时间:2018/7/27 22:53:00
--  
Disconnected


--  作者:samlzc
--  发布时间:2018/7/28 16:07:00
--  
我将 Disconnected的事件写成,
ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")
If e.Mode = 1 Then
Else
Forms("锁屏1").open
End If
结果ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico"),可以触发成功
但是窗口却不能弹出,为什么?

--  作者:有点蓝
--  发布时间:2018/7/28 16:20:00
--  
直接

ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")
Forms("锁屏1").open

--  作者:samlzc
--  发布时间:2018/7/28 17:07:00
--  
因为我锁屏窗口是一个按钮代码
Syscmd.Project.Exit(True)

然后发现如果自己关闭项目,然后触发 Disconnected打开窗口。点击关闭按钮后回一直循环弹出锁屏窗口。

--  作者:有点蓝
--  发布时间:2018/7/28 18:40:00
--  
窗口afterclose有没有代码?
项目关闭事件有没有代码?