以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  NetworkAvailabilityChanged 断线就挂(已找到原因,怀疑为bug)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38293)

--  作者:temblar
--  发布时间:2013/7/25 9:42:00
--  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("默认用户", "")

[此贴子已经被作者于2013-7-25 10:22:15编辑过]

--  作者:Bin
--  发布时间:2013/7/25 9:45:00
--  
那么你应该检查的不是NetworkAvailabilityChanged 事件里面的代码. 如果只是有弹出登录窗口这个代码.那么再去检查登录窗口ALterLoad的代码.
--  作者:temblar
--  发布时间:2013/7/25 10:21:00
--  

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

 

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

 

创建窗口 a  :随便加个 PictureBox 

 

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


--  作者:Bin
--  发布时间:2013/7/25 10:25:00
--  
经过测试确实有这个问题,可能是BUG. 
--  作者:狐狸爸爸
--  发布时间:2013/7/25 10:27:00
--  

收到,下次更新搞定

 

图片点击可在新窗口打开查看