以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导航窗口设置  (http://foxtable.net/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()