以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在系统菜单中关闭当前窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80551)

--  作者:cjl333333333
--  发布时间:2016/1/26 9:12:00
--  如何在系统菜单中关闭当前窗口
如何在系统菜单中关闭当前窗口代码怎么写,求助
--  作者:Hyphen
--  发布时间:2016/1/26 9:26:00
--  
只能关闭所有窗口,或者根据名称关闭
For Each f As WinForm.Form In Forms
    f.Close
Next

或者用一个变量记录当前打开的窗口名称,如vars("当前窗口") = "窗口1"。关闭时

Forms(vars("当前窗口")).Close