主题：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

 

然后我把我的电脑网络断掉，出现提示窗口，点击确定后，系统关不掉，反而死在那里，我代码哪里有问题啊

尝试直接执行 syscmd.project.Exit(False) 问题应该出在这里 

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

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

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

按照我2楼说得试试看.

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

 

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

 

在networkaddresschanged 事件里只写一句syscmd.project.Exit(False)？ 这样也没用  电脑断网后  界面死在那里

断网判断应该到 NetworkAvailabilityChanged 这个事件吧.

这个事件一样关不掉。。新建个空的系统倒是没有问题，可能是我其他代码给挡住了  我在找找吧 谢谢bin老师