主题：NetworkAvailabilityChanged 断线就挂（已找到原因，怀疑为bug）

项目事件代码如下，只要断线 程序就死掉，有没有碰到类似问题的 求助~~  找不到原因了

 

项目事件

 

AfterOpenProject

 

ApplicationMenu.visible= False '用于关闭左上方的大按钮

Forms("登录").Open()

SaveConfigValue("默认用户",_username) '保存最后登录的用户账号信息

baseMainForm.text = "九宇金泰企业管理系统"

 

BeforeOpenProject

 

Try

    Dim Client As System.Net.Sockets.Socket = New System.Net.Sockets.Socket(System.Net.Sockets.AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Stream, System.Net.Sockets.ProtocolType.Tcp)

    Client.Connect("jybioxm.gicp.net", "10804" )

    Client.Close() 

Catch Ex As Exception

    e.HideSplashForm = True

    MessageBox.Show("连接不到服务器,请检查您的服务器连接!","提示",MessageBoxButtons.OK ,MessageBoxIcon.Information)

    e.Cancel = True

End Try

 

SystemIdle

 

If rbnbtn IsNot Nothing Then

   RbnBtn.Text = Date.now & " " & Format(Date.Today(),"dddd")

End If

 

NetworkAvailabilityChanged

 

Forms("登录").show

 

登录窗口 afterload代码

 

e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown
e.form.controls("username").text = GetConfigValue("默认用户", "")

找到原因了  因为登录窗口里 有  PictureBox1  控件，新建一空白项目测试如下，同样结果，不知为什么,请指教

 

新建项目： 项目事件 NetworkAvailabilityChanged 代码： form("a").show

 

创建窗口 a  :随便加个 PictureBox 

 

断线后，程序挂掉。。。但如果不加PictureBox  控件  弹出正常