以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  networkaddresschanged 事件问题请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34572)
--  作者：temblar
--  发布时间：2013/6/9 15:03:00
--  networkaddresschanged 事件问题请教

在networkaddresschanged 事件中写以下代码：

 

If Forms("导航").Opened Then
      If TryConnectHost("XXXX.gicp.net") Then
           Return
      Else
           Dim Result As DialogResult
           Result = MessageBox.Show("服务器中断连接,请重新登陆.")
           If Result = DialogResult.ok Then
               syscmd.project.Exit(False)
           End If
     End If
End If

 

然后我把我的电脑网络断掉，出现提示窗口，点击确定后，系统关不掉，反而死在那里，我代码哪里有问题啊
--  作者：Bin
--  发布时间：2013/6/9 15:06:00
--  
尝试直接执行 syscmd.project.Exit(False) 问题应该出在这里 
--  作者：temblar
--  发布时间：2013/6/9 15:11:00
--  

只执行如下：一样的效果 界面死在那 

If TryConnectHost("XXXX.gicp.net") Then
Return
Else
syscmd.project.Exit(False)
End If

ps:我没升级到最新的 6月8版本 

--  作者：Bin
--  发布时间：2013/6/9 15:13:00
--  
按照我2楼说得试试看.
--  作者：temblar
--  发布时间：2013/6/9 15:22:00
--  

没明白bin老师什么意思。。。

 

命令窗口直接执行syscmd.project.Exit(False)？ 执行后程序关闭没问题

 

在networkaddresschanged 事件里只写一句syscmd.project.Exit(False)？ 这样也没用  电脑断网后  界面死在那里
--  作者：Bin
--  发布时间：2013/6/9 15:27:00
--  
断网判断应该到 NetworkAvailabilityChanged 这个事件吧.
--  作者：temblar
--  发布时间：2013/6/9 15:33:00
--  
这个事件一样关不掉。。新建个空的系统倒是没有问题，可能是我其他代码给挡住了  我在找找吧 谢谢bin老师