Foxtable(狐表)用户栏目专家坐堂 → 如何在断网时快速退出


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

主题:如何在断网时快速退出

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/21 16:40:00 [显示全部帖子]

项目属性BeforeShowErrorMessage 事件

If vars("已弹出") = False
    If e.message1.Contains("一般性网络错误") OrElse e.message1.Contains("不存在或拒绝访问") Then
      e.Cancel = True
        vars("已弹出") = True
        MessageBox.Show("数据库服务器链接失败,请点击确定退出程序后,联系管理员处理!!","温馨提示")
        Syscmd.Project.Exit()
    End If
else
    e.Cancel = True  
End If

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/2/22 8:29:00 [显示全部帖子]

不需要设置,就直接使用上面的代码即可

 回到顶部