以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  本地网络不通时,如何在加载外部数据源 前 自定义窗口提示,网络不通畅啊?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139065)

--  作者:guosheng
--  发布时间:2019/8/5 9:35:00
--  本地网络不通时,如何在加载外部数据源 前 自定义窗口提示,网络不通畅啊?

在beforeconnectouterdatasource或beforeopenproject加入以下事件:

If TryConnectHost("www.baidu.com") =False
messagebox.show("网络不通,请检查网络配置情况")
Syscmd.Project.Exit()
End If

 

本地网络断开时,点击客户端程序,程序一直处于 图片1  的状态,并没有弹出提示窗口;当恢复本地网络后,才会弹出“本地网络不通”的弹窗。

若不加入以上代码,系统会自动弹出,图片2 和图片3

 


图片点击可在新窗口打开查看此主题相关图片如下:0.jpg
图片点击可在新窗口打开查看  图片1

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看   图片2

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看  图片3

--  作者:有点蓝
--  发布时间:2019/8/5 9:42:00
--  
代码放到:BeforeOpenProject事件

If TryConnectHost("www.baidu.com") =False
    messagebox.Show("网络不通,请检查网络配置情况")
    e.Cancel = True
End If

--  作者:guosheng
--  发布时间:2019/8/5 9:59:00
--  

在beforeopenproject加入代码后,断开本地网络,点击可执行程序,程序一直处于图片1的状态,不会弹出  网络不通  的弹窗啊,怎么回事啊?只有当本地网络再次恢复时,才会弹出 网络不通 的弹窗。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:有点蓝
--  发布时间:2019/8/5 10:19:00
--  
我测试没有问题。断开本地网络具体是怎么做的?
--  作者:guosheng
--  发布时间:2019/8/5 10:31:00
--  
测试了,网络不通的  弹窗确实已经存在了;但是,只有点击 最下方正在执行的狐表程序后,网络不通 的弹窗才能出来,怎么回事啊?
图片点击可在新窗口打开查看此主题相关图片如下:4.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/8/5 10:41:00
--  
加一句,换下顺序

If TryConnectHost("www.baidu.com") =False
    e.Cancel = True
    e.HideSplashForm = True
    messagebox.Show("网络不通,请检查网络配置情况")
End If


--  作者:guosheng
--  发布时间:2019/8/5 10:54:00
--  

改了后,网络断开时打开项目,那个狐表启动时的图片关闭掉了,但是弹窗“网络不通” 被项目所在的文件列表选项挡住了,只有将这个显示项目文件夹最小化或关闭后后,弹窗才能看到。

怎么让那个弹窗在最前端显示啊?


图片点击可在新窗口打开查看此主题相关图片如下:6.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/8/5 11:06:00
--  
提示框这样试试

MessageBox.Show("网络不通,请检查网络配置情况!", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)