- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 项目启动时，IP地址不接通时的代码提示，并退出项目。(已解决) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69988)
-- 发布时间：2015/6/14 10:52:00
-- 项目启动时，IP地址不接通时的代码提示，并退出项目。(已解决)
我在BeforeConnectOuterDataSource事件中设置如下代码，想实现当检测IP地址不通时，提示，并退出项目，可结果并没有按这个操作，还是继续往下打开窗口。请问代码要怎么修改？
\'定义IP地址变量
Dim ip As String = FileSys.ReadAllText("C:\\inetpub\\wwwroot\\ip.txt")
\'检测IP连通
If Network.Ping(ip,1000) = False Then \'如果无法接通
e.HideSplashForm = True \'关闭启动封面
Messagebox.Show("您的计算机与网络失联了,请检查后重新再试!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Syscmd.Project.Exit(False) ’退出项目
Else
\'连接数据源
Dim sjy As String = FileSys.ReadAllText("C:\\inetpub\\wwwroot\\mdb.txt")
If e.name = "mdb" Then
e.ConnectionString = sjy
End If
End If
-- 发布时间：2015/6/14 11:04:00
--
呃，你觉得是不是应该写到 BeforeOpenProject 事件，加上 e.Cance = True ？
或者，你可以直接用代码 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill
-- 发布时间：2015/6/14 11:16:00
--
呃，你觉得是不是应该写到 BeforeOpenProject 事件，加上 e.Cance = True ？
或者，你可以直接用代码 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill
我把 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill 代码替代了上段代码中的红字部分，但当IP地址是错的时候，会提示以下窗口：
此主题相关图片如下：qq图片20150614111130.png
把此窗口关闭后，又跳到了登录窗口。
还有，不写到BeforeOpenProject事件中，是因为要在项目启动时，而是通过文本内容动态改变连接数据源。
-- 发布时间：2015/6/14 13:00:00
--
加入try catch
http://www.foxtable.com/help/topics/2070.htm