表单.release为什么不立即关闭表单?该怎么处理
表单.release为什么不立即关闭表单?
thisform.release
MESSAGEBOX("关闭表单!",39,"系统提示!")
执行上面语句后,表单等到弹出窗口确定后才关闭,表单既然已经关闭了后面的语句怎么还在执行。
------解决方案--------------------
完整执行完一次动作(如单击某按钮,执行其Click事件)后才释放的。
表单释放前处理了队列中的所有事件
你不用 Messagebox ,用其他语句实验,也会发现也都执行了。
如:
Thisform.Release
Erase c:\a.txt
For lnI=1 To 100000000
Endfor
Strtofile(Time(),'c:\a.txt')
------解决方案--------------------
在没有出错的前提下
执行一个事件的代码时
将按顺序执行所有能执行的代码
在没有执行完该事件的中代码时
其他事件不执行
你试试豆老师的代码
thisform.release
MESSAGEBOX("关闭表单!",39,"系统提示!")
执行上面语句后,表单等到弹出窗口确定后才关闭,表单既然已经关闭了后面的语句怎么还在执行。
------解决方案--------------------
完整执行完一次动作(如单击某按钮,执行其Click事件)后才释放的。
表单释放前处理了队列中的所有事件
你不用 Messagebox ,用其他语句实验,也会发现也都执行了。
如:
Thisform.Release
Erase c:\a.txt
For lnI=1 To 100000000
Endfor
Strtofile(Time(),'c:\a.txt')
------解决方案--------------------
在没有出错的前提下
执行一个事件的代码时
将按顺序执行所有能执行的代码
在没有执行完该事件的中代码时
其他事件不执行
你试试豆老师的代码