- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- BeforeShowErrorMessage (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114195)
-- 发布时间：2018/1/31 14:09:00
-- BeforeShowErrorMessage
If e.Message2.indexof("一般性网络错误") > -1 Then
MessageBox.show("又是网络不畅通,要怪就怪公司的破网络吧","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
If e.Message2.indexof("SQL Server 不存在或拒绝访问") > -1 Then
MessageBox.show("由于公司的网络出现间歇性故障,导致与数据库暂时断开,请稍后再试,唉,这个破网络,我都无语了","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
e.Cancel = True
End If
If e.Message2.indexof("登录超时已过期") > -1 Then
MessageBox.show("网络不畅啊,啥破网络,都无力吐槽,请点击确定后稍后再试","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
e.Cancel = True
End If
如何做到当弹出message时，过1分钟，自动点击"确定"关闭message？
-- 发布时间：2018/1/31 14:27:00
--
方法一：
| 下载信息 [文件大小：292.0 KB 下载次数：127] | |
 点击浏览该文件:定时对话框.table |
方法二：
| 下载信息 [文件大小：300.0 KB 下载次数：25] | |
| 点击浏览该文件:关闭任意对话框.table |
-- 发布时间：2018/2/6 16:52:00
--
If e.Message2.indexof("一般性网络错误") > -1 Then MessageBox.show("又是网络不畅通,要怪就怪公司的破网络吧","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) e.Cancel = True End If If e.Message2.indexof("SQL Server 不存在或拒绝访问") > -1 Then MessageBox.show("由于公司的网络出现间歇性故障,导致与数据库暂时断开,请稍后再试,唉,这个破网络,我都无语了","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) e.Cancel = True End If If e.Message2.indexof("登录超时已过期") > -1 Then MessageBox.show("网络不畅啊,啥破网络,都无力吐槽,请点击确定后稍后再试","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) e.Cancel = True End If 我的意思是把这些弹出的msgbox能自动关掉。而不是点击某个按钮关。 |
-- 发布时间：2018/2/6 18:08:00
--
参考
| 下载信息 [文件大小：292.0 KB 下载次数：127] | |
| 点击浏览该文件:定时对话框.table |