主题：[讨论]用OpenQQ实现独占式编辑中的漏洞

在菜单设计中有一个自动列表项目（窗口列表）在窗口列表中可以自动显示当前已经打开的工作窗口，能否利用它来编制代码关闭当前的工作窗口呢？我查阅了帮助文件没有这方面的说明。

关闭所有窗口很麻烦吗？为什么要死脑筋啊。

系统有几十个窗口，除了编辑窗口外还有导航窗口、查询窗口，当用户退出QQ只要求关闭编辑窗口，采用关闭所有窗口看是简单但总是感觉不妥。

自己做一个窗口列表管理，记录每次打开的窗口和操作类型，根据需要查找窗口并关闭

楼主的逻辑有问题，你就是100个窗口，又有什么关系呢？ 其中用于独占式编辑的不过几个而已，就算有10几个用于独占式编辑由如何呢？

一样是四行代码：

 

Dim nms() As String = {"编辑窗口1"，"编辑窗口2"，"编辑窗口3"，"编辑窗口4"，"编辑窗口5"}

For each nm As string in nms

      Forms(nm).Close()

next

谢谢！