以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载界面隐藏  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98954)

--  作者:xiongxiangpost
--  发布时间:2017/4/10 12:34:00
--  加载界面隐藏

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

狐表自带的加载界面怎么无法隐藏呢? 导致我弹出消息提示框都无法看见。

--  作者:有点色
--  发布时间:2017/4/10 15:03:00
--  

 你可以这样写代码

 

MessageBox.Show("测试", "重要提示",MessageBoxButtons.Ok,MessageBoxIcon.Error, 0, Windows.forms.MessageBoxOptions.ServiceNotification)


--  作者:xiongxiangpost
--  发布时间:2017/4/10 17:30:00
--  
e.HideSplashForm = True

If Network.ping("www.baidu.com",2000) = False Then
    MessageBox.Show("无法连接数据库服务器,请确认网络是否正常", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Error, 0, Windows.forms.MessageBoxOptions.ServiceNotification)
    e.Cancel = True
End If


使用的是外部数据源 ,在BeforeOpenProject事件中添加上述代码

若无法连接到外部数据源 则给出提示 并禁止打开项目工程 

采用百度连接 通过拔掉网线进行测试 

消息提示框依旧无法弹出 ,弹出一个foxtable软件异常   不知是咋回事啊 

--  作者:有点色
--  发布时间:2017/4/10 17:36:00
--  

 要这样写

 

If TryConnectHost("www.baidu.com") = False OrElse Network.Ping("www.baidu.com", 2000) = False Then
    MessageBox.Show("无法连接数据库服务器,请确认网络是否正常", "提示",MessageBoxButtons.Ok,MessageBoxIcon.Error, 0, Windows.forms.MessageBoxOptions.ServiceNotification)
End If