如何在VB6中正确清除表单堆栈

Question

我在 VB6 中有一个应用程序，我正在为其实现自动注销功能。只要应用程序处于空闲状态一段时间，用户将通过关闭用户已加载的所有表单来注销。 我正在使用 FormStack 并卸载所有已加载的表单。为了以正确的方式关闭表单，我们使用 SendKeys ESC 并且表单将使用 ESC 键卸载。

在大多数情况下它工作正常，但问题是如果有类似键盘的东西，然后用 ESC 键卸载键盘，但是一旦卸载所有表单，键盘旁边的代码就会得到执行，其中引用了表单控件和加载表单。

我可以做参考检查，但是这个功能在很多地方都有实现，到处检查都需要时间。

我也想过要等待500毫秒左右的时间来关闭每个表单，但觉得依靠定时器不好。

谁能提出一个更好的办法来顺利卸载所有表单。

Answer 1

我曾经做过 将 i 调暗为整数

for i = forms.count -1 to 0 step -1
 unload forms(i)
next

你也可以创建一个接口，实现形式

IDispose

 sub Close()



dim miclazz as IDispose

form each miclazz in forms
  miclazz.Close()
next