| 以文本方式查看主题 - 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=100987) |
| -- 作者：yupeng -- 发布时间：2017/5/23 0:07:00 -- [求助]OpenQQ 离线触发 老师 您好 OpenQQ 如果离线时（除关闭项目外），弹出一个对话框，提示用户。 下面的代码出错，离线后不停的在触发Disconnected事件，不停的在弹力出对话框，您看下要怎么弄。是不是思路不对。谢谢
Disconnected事件代码如下： If MessageBox.Show("您的账号在其它地方登录!" & "是否重新登录?","下线提示",MessageBoxButtons.YesNo,MessageBoxIcon.Error) = DialogResult.Yes |
| -- 作者：ajie5211 -- 发布时间：2017/5/23 8:31:00 -- 客户端异常离线时，禁止操作怎么写，在哪里写？自动连接上后，恢复操作在哪里写，怎么写？ |
| -- 作者：有点色 -- 发布时间：2017/5/23 8:39:00 -- Disconnected 你可以弹出一个模式窗口锁定操作。
If Forms("锁定").Opened = False Then Forms("锁定").Show End If
这个锁定窗口加上提示，加上按钮退出或重新登录。 |
| -- 作者：chen3728060 -- 发布时间：2017/5/23 9:22:00 -- mark |
| -- 作者：yupeng -- 发布时间：2017/5/23 23:59:00 -- 老师 这样不行呀 关闭系统时，也会弹出窗口，而且点击退出按钮都不行，点退出后不停弹力出此窗口（感觉判断窗口打开没效果一样），一定要点重新登录才能关闭。 |
| -- 作者：有点色 -- 发布时间：2017/5/24 9:18:00 -- 关闭系统的代码你怎么写？你可以加入判断嘛
If vars("锁定") = True AndAlso Forms("锁定").Opened = False Then Forms("锁定").Show End If
你的关闭按钮写代码
vars("锁定") = False Syscmd.Project.Exit(True)
|
| -- 作者：yupeng -- 发布时间：2017/5/24 10:26:00 -- 加了这个全局变量就ok了 谢谢老师 |
| -- 作者：zhy400137 -- 发布时间：2017/8/14 18:30:00 -- mark |