主题：[求助]中断项目启动的代码

参考“wangjian6931”同学的帖子：《1秒内快速判断网络状态》

 

写了判断是否成功连上外部数据源的代码如下：

 

If e.Name = "QCM" Then
    Dim myConnTest As New ConnTest.ConnNetTest
    Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Y:\07 XXXX.mdb;Persist Security Info=False"
    If myConnTest.ConnNetTestByConnStr(strConn,2000)=True Then
        e.ConnectionString = strconn
    Else

        MessageBox.Show("局域网连接失败! "）

        Return

    End If

End If

 

如果局域网断开，判断很快，比原来等半天好很多。但是“Return”不能退出登录，系统继续出一堆错误，然后停止在背景窗口...

 

请问，哪个代码可以中断系统启动？上述代码如何改，谢谢。

 beforeOpenProject事件

 

Dim myConnTest As New ConnTest.ConnNetTest
Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Y:\07 XXXX.mdb;Persist Security Info=False"
If myConnTest.ConnNetTestByConnStr(strConn,2000)=False Then
    MessageBox.Show("局域网连接失败! ")
    e.Cancel = True
End If

 

 

 或者 system.diagnostics.process.GetProcessesByName("foxtable")(0).kill

谢谢，用e.cancel，我咋没想到呢

BeforeConnectOuterDataSource事件里没这个e参数，我试试把这段代码改到beforeOpenProject事件，看看会怎样

或者

 

If e.Name = "QCM" Then
    Dim myConnTest As New ConnTest.ConnNetTest
    Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Y:\07 XXXX.mdb;Persist Security Info=False"
    If myConnTest.ConnNetTestByConnStr(strConn,2000)=True Then
        e.ConnectionString = strconn
    Else

        MessageBox.Show("局域网连接失败! "）

        system.diagnostics.process.GetProcessesByName("foxtable")(0).kill

    End If

End If

 

谢谢！可以了。果然不再往下走了。