以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  导航窗口设置  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11980)
--  作者：youyuweinihao
--  发布时间：2011/8/18 15:21:00
--  导航窗口设置

狐爸

在导航窗口中点击里面的“任务”，如果连续点击的话，点击下一个任务打开窗口时，那么前面打开的窗口自动关闭。
--  作者：youyuweinihao
--  发布时间：2011/8/18 15:22:00
--  
这个代码这么写
--  作者：狐狸爸爸
--  发布时间：2011/8/18 15:44:00
--  

for each frm as winform.form in Forms

   if frm.Name <> "ddd" then

      frm.Close

   end if

next

forms("ddd").Open()