其实 queryunload有个UnloadMode, 点x的unloadmode 和 关机时的关闭消息是不同的 可以用这个做下判断 点x unloadmode= 0 unload me unloadmode= 1 系统消息 unloadmode= 2 所以你只要在queryunload里面,最前面加上一行 private sub form1_queryunload(cancel as boolean , unloadmode as integer) if unloadmode = 2 then exit sub 'put your code here end sub 就ok了!
你是怎么处理程序退出的?有没有类似 在Form_QueryUnload()里 加入 Cancel=True之类
的语句? 如有,那么先将他注掉在Form_QueryUnload() 里加入 类似这样的语句 Winsock1.close
最后主窗体退出时是否完全退出? 有可能在内存里没有清理干净 ,建议加上End 语句 强制退出
你先回去看看有没有这方面的问题,如果仍有,那么将代码贴上
取消Windows在关机时向各大窗体发送关闭消息 ,而你的程序就“卡”在这里了由于退出事件是重复的,所以得靠其他方法实现 最好不要用 X ,因为那个东西不是
用来干这个得,一般用来提示存盘,然后在退出
把你的邮箱写下来,我写一个给你发过去
我试了一下,果然是Form_QueryUnload加了Cancel=True 出了问题.
Email:[email protected],谢谢了!
可以用这个做下判断
点x unloadmode= 0
unload me unloadmode= 1
系统消息 unloadmode= 2
所以你只要在queryunload里面,最前面加上一行
private sub form1_queryunload(cancel as boolean , unloadmode as integer)
if unloadmode = 2 then exit sub
'put your code here
end sub
就ok了!