以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口最大化如何不盖主程序窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70801)

--  作者:supwork
--  发布时间:2015/6/29 14:33:00
--  窗口最大化如何不盖主程序窗口
FT开发的程序,运行过程中,其它窗口如某一个独立窗口最大化后,窗口盖过了FT主程序的窗口了。如何能做到如同EXCEL程序一样,其它窗口最大化后都自动在主窗口范围内的最大化,不要盖住主程序窗口。
--  作者:大红袍
--  发布时间:2015/6/29 14:37:00
--  

mdi窗口

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16371&skin=0

 


--  作者:supwork
--  发布时间:2015/6/29 19:16:00
--  

使用MID程序窗口模式了就不能显示表了,有办法没

 


--  作者:大红袍
--  发布时间:2015/6/29 20:02:00
--  

 去编写窗口的sizeChanged事件,比如

 

If e.Form.BaseForm.Windowstate = 2 Then
    e.Form.BaseForm.Windowstate = 0
    e.Form.baseForm.Left = BaseMainform.Left
    e.Form.baseForm.Top = BaseMainform.Top + 200
    e.Form.baseForm.Height = BaseMainform.Height - 200
    e.Form.baseForm.width = BaseMainform.width
End If


--  作者:逛逛
--  发布时间:2015/6/29 20:04:00
--  

1、将窗口降级

加入到一个容器中去

 

比如:BaseMainForm.Controls("MainPages")


--  作者:supwork
--  发布时间:2015/6/29 20:14:00
--  

单论效果 还是MID窗口效果 好,但如何用代码临时切换到可以显示表呢,毕竟设计时需要显示表,交付后就不用显示表了

 


--  作者:大红袍
--  发布时间:2015/6/29 20:37:00
--  
以下是引用supwork在2015/6/29 20:14:00的发言:

单论效果 还是MID窗口效果 好,但如何用代码临时切换到可以显示表呢,毕竟设计时需要显示表,交付后就不用显示表了

 

 

你是怎样做的?什么不能显示表了。


--  作者:大红袍
--  发布时间:2015/6/29 20:41:00
--  

 如果你用2楼的代码,就一句代码的事啊

 

BaseMainForm.Controls("MainPages").Visible = True


--  作者:凡夫俗子
--  发布时间:2016/3/24 14:34:00
--  

1、将窗口降级

加入到一个容器中去

 

比如:BaseMainForm.Controls("MainPages")



这个可以做一个例子不

--  作者:大红袍
--  发布时间:2016/3/24 14:43:00
--  

参考

 

Dim PB As Object = BaseMainForm.Controls("MainPages")
Dim Name As String = "窗口1"
Forms(Name).OPEN(-1000,-1500)
Forms(Name).BaseForm.TopLevel = False
Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.tabpages("表A").Controls.Clear
PB.tabpages("表A").Controls.add(Forms(Name).BaseForm)