Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]openQQ 断线后自动锁屏


  共有2224人关注过本帖树形打印复制链接

主题：[讨论]openQQ 断线后自动锁屏
帅哥哟，离线，有人找我吗？
samlzc
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：1114 威望：0 精华：0 注册：2017/4/10 17:55:00 		[讨论]openQQ 断线后自动锁屏  发帖心情 Post By：2018/7/27 22:34:00 [只看该作者]

我想实现openQQ 断线后自动锁屏，锁屏界面上有一个重新连接的按钮，一个是退出项目的按钮，请问如何编写好？
断线打开锁屏的代码放在那里好？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110629 积分：563047 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/27 22:53:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
samlzc
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：1114 威望：0 精华：0 注册：2017/4/10 17:55:00 		  发帖心情 Post By：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")，可以触发成功
但是窗口却不能弹出，为什么？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110629 积分：563047 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/28 16:20:00 [只看该作者]

直接

ConfigBar.Items("OpenQQ").SmallImage = GetImage("offline.ico")
Forms("锁屏1").open
 回到顶部
帅哥哟，离线，有人找我吗？
samlzc
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：1114 威望：0 精华：0 注册：2017/4/10 17:55:00 		  发帖心情 Post By：2018/7/28 17:07:00 [只看该作者]

因为我锁屏窗口是一个按钮代码
Syscmd.Project.Exit(True)

然后发现如果自己关闭项目，然后触发 Disconnected打开窗口。点击关闭按钮后回一直循环弹出锁屏窗口。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110629 积分：563047 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/28 18:40:00 [只看该作者]

窗口afterclose有没有代码？
项目关闭事件有没有代码？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03809 秒, 4 次数据查询