Foxtable(狐表)用户栏目专家坐堂 → [求助]OpenQQ 离线触发


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

主题:[求助]OpenQQ 离线触发

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/23 8:39:00 [显示全部帖子]

Disconnected 你可以弹出一个模式窗口锁定操作。

 

If Forms("锁定").Opened = False Then

    Forms("锁定").Show

End If

 

这个锁定窗口加上提示,加上按钮退出或重新登录。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/24 9:18:00 [显示全部帖子]

 关闭系统的代码你怎么写?你可以加入判断嘛

 

If vars("锁定") = True AndAlso Forms("锁定").Opened = False Then

    Forms("锁定").Show

End If

 

 你的关闭按钮写代码

 

vars("锁定") = False

Syscmd.Project.Exit(True)

 


 回到顶部