- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请教：提示数据库连接失败的提示框如何显示在最上层？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50569)
-- 发布时间：2014/5/9 9:31:00
-- 请教：提示数据库连接失败的提示框如何显示在最上层？
数据库连接失败时，提示框总是看不到，得从任务栏点开才可以显示出来，这个问题有解吗？
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\\data\\Northwind.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = False
Then
MessageBox.Show("数据源无法连通!")
End If
-- 发布时间：2014/5/9 9:43:00
--
研究了一下,比较麻烦.不好实现.
-- 发布时间：2014/5/9 10:16:00
--
楼主的代码，是在哪个事件？
-- 发布时间：2014/5/9 10:28:00
--
beforeopenproject
-- 发布时间：2014/5/9 10:33:00
--
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Documents and Settings\\Administrator\\桌面\\CaseStudy\\Northwind.mdb;Persist Security Info=False"
If Connections.TryConnect(s) = False Then
e.HideSplashForm = True
MessageBox.Show("数据源无法连通!","提示")
e.Cancel = True
End If
-- 发布时间：2014/5/9 11:15:00
--
还是不行，提示画面一闪而过，仍然得点任务栏查看。
此主题相关图片如下：020002.gif
-- 发布时间：2014/5/9 11:37:00
--
MessageBox.Show("anbc", "123",MessageBoxButtons.YesNo,MessageBoxIcon.Warning,0, Windows.forms.MessageBoxOptions.ServiceNotification)
-- 发布时间：2014/5/9 11:50:00
--
狐爸的办法太棒了，完美解决，多谢狐爸及楼上诸位。