以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  模式窗口最小化问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170309)

--  作者:实话实说
--  发布时间:2021/7/21 12:05:00
--  模式窗口最小化问题
由A,B两个模式窗口,已经关闭了系统菜单,在窗口的AfterLoad事件中加载了如下代码,结果来回切换A,B窗口时,任务栏重复出现最小化的A,B窗口。
试了一下,代码放在项目事件中不起作用
e.form.baseform.showintaskbar = True \'最小化到任务栏
[此贴子已经被作者于2021/7/21 12:05:56编辑过]

--  作者:有点蓝
--  发布时间:2021/7/21 13:35:00
--  
请上传实例说明
--  作者:实话实说
--  发布时间:2021/7/21 13:50:00
--  
刚才又试了一下,将 e.form.baseform.showintaskbar = False 代码放在关闭窗口的事件中可以满足要求,但发现一个问题,反复切换【按钮A】和【按钮B】,窗口明显得闪,窗口A或窗口B并没有关闭,而是重复打开。
【按钮A】代码
e.Form.baseform.Close \'关闭当前窗口
e.Form.baseform.opacity = 0
Forms("按钮A").open()
【按钮B】代码
e.Form.baseform.Close \'关闭当前窗口
e.Form.baseform.opacity = 0
Forms("按钮B").open()

--  作者:有点蓝
--  发布时间:2021/7/21 13:58:00
--  
模式窗口无法做到互相关闭再打开,值是先打开A窗口,然后A窗口按钮隐藏自己,再打开窗口B;窗口B按钮关闭自己,再显示窗口A。先打开的窗口只能隐藏,不能关闭

或者改为独立窗口。

--  作者:实话实说
--  发布时间:2021/7/21 14:03:00
--  
独立窗口得系统菜单如何隐藏?以下项目事件代码还有效吗?
Dim a As object = BaseMainForm.controls("C1Ribbon1")
a.Visible = not a.visible

另外,如何避免打开和关闭模式窗口时得闪动
[此贴子已经被作者于2021/7/21 14:16:49编辑过]

--  作者:有点蓝
--  发布时间:2021/7/21 14:17:00
--  
试试不就知道了
--  作者:实话实说
--  发布时间:2021/7/21 14:25:00
--  
改为独立窗口关闭不了菜单系统。请老师看看实例,模式窗口闪动得问题有什么解决办法
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目进度(单机版).zip



[此贴子已经被作者于2021/7/21 14:25:19编辑过]

--  作者:有点蓝
--  发布时间:2021/7/21 14:48:00
--  
换种方式吧,主窗口模式才是最适合foxtable的用法

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目进度.zip