以文本方式查看主题

-  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=92952)

--  作者:xujie80
--  发布时间:2016/11/17 9:01:00
--  共有窗口如何实现关闭其他主窗口
在程序主界面设置一个共有窗口,方便显示数据,且始终打开,设为自动隐藏。
当主窗口运行后,由于共有窗口控制的表和主窗口控制是同一表,都能够控制。
现在想要共有窗口在显示状态下,就能够关闭已经打开的其他主窗口如何实现。
实例:窗口1为共有,窗口2.窗口3为主窗口。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.foxdb


--  作者:有点蓝
--  发布时间:2016/11/17 9:32:00
--  
参考:http://www.foxtable.com/webhelp/scr/2906.htm
--  作者:xujie80
--  发布时间:2016/11/18 9:19:00
--  
@有点蓝
我是说导航窗口作为共有窗口,始终存在,并且能通过TopicLink加载某表的数据。
主窗口的所有表者也为某表。
这样共有窗口和主窗口都能控制某表。
现在我想在用户操作共有窗口时,判断主窗口是否打开,如果打开,就关闭它,这样就不会混淆。
用什么样的代码来判断某表的主窗口是否打开?

--  作者:有点青
--  发布时间:2016/11/18 10:05:00
--  

判断某窗口是否打开

 

If forms("窗口2").opened Then

 

End If

 

如果希望焦点窗口为窗口1时触发事件,可以在timertick那里写代码

 

If Forms.ActiveForm IsNot Nothing AndAlso Forms.ActiveForm.name = e.Form.Name Then
    msgbox("得到焦点了")
End If