在一表单中,没有设计关闭按钮,借用窗口自带的右上角的×号进行表单的关闭.
在关闭表单时,需要判断表单中输入的内容,所以加QUERYUNLOAD进行控制.
但碰到一小问题,当判断发现输入内容有误时,就弹出窗口,进行提示,然后需要再在表单中进行修改,而不是关闭表单.如果无误,则直接关闭表单.
现在的问题是一点×号,判断后,出窗口进行提示,可提示完后,表单就关闭了.怎么让表单不关闭呢???
如果用铵钮控制,那比较简单,只要里面不加thisform.release即可.可窗口右上角的×号呢?
谢谢.
------解决方案--------------------------------------------------------
在 QueryUnlaod 事件不想退出时加代码：
Nodefault
------解决方案--------------------------------------------------------
QueryUnlaod 事件
If 发现输入内容有误时
Messagebox("请重新输入",64,"信息提示")
Nodefault
Endif