- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]MDI例子问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114122)
-- 发布时间：2018/1/29 13:42:00
-- [求助]MDI例子问题
老师，
使用精华帖的MDI例子，希望窗口是自己新建，最大化效果是全屏，如何嵌入到系统中呢？
不会是 剪切进去到PANl中吧？
-- 发布时间：2018/1/29 14:35:00
--
如果用mdi，是要隐藏mainpage控件的，也就是你不能再用【主窗口】
BaseMainForm.Controls("MainPages").Visible = False
-- 发布时间：2018/1/29 14:35:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16371&skin=0
-- 发布时间：2018/1/29 21:05:00
--
老师，
我的意思是如下例子，希望 BTN1生成的窗口嵌入主程序， 最大最小关闭按钮不要了，直接嵌入主程序。
[此贴子已经被作者于2018/1/29 21:05:17编辑过]
-- 发布时间：2018/1/29 21:25:00
--
这个意思？
Dim frm As New Windows.Forms.Form
frm.Visible=False
frm.name = "窗口3"
frm.Text = "窗口3"
frm.Topmost = True
frm.width = 500
frm.height = 500
frm.mdiparent = basemainform
frm.controlbox=False
frm.Select
frm.Top = (SysInfo.ScreenHeight - frm.height) / 2
frm.left = (SysInfo.ScreenWidth - frm.width) / 2
\'vars("窗口").add(frm, frm.text)
\'AddHandler frm.Closing, AddressOf frm_Closing
frm.Visible=True
\'frm.TopLevel =True
Dim btn As WinForm.Button=e.Form.CreateControl("btn1",ControlTypeEnum.Button)
btn.text="1111"
frm.controls.add(btn.basecontrol)
\'AddHandler frm.Shown, AddressOf frm_Shown
AddHandler frm.Load,AddressOf Form_Load
frm.Show
-- 发布时间：2018/1/29 22:38:00
--
对 是这效果 窗口 最大化的时候 屏幕闪动 怎么 再完善下呢,下面的不行
E.ForM.StopRedraw
Dim frm As New Windows.Forms.Form
frm.Visible=False
frm.name = "窗口3"
frm.Text = "窗口3"
frm.Topmost = True
frm.mdiparent = basemainform
frm.controlbox=False
frm.Select
frm.WindowState = System.Windows.Forms.FormWindowState.Maximized
frm.Visible=True
frm.Show
E.ForM.ResumeRedraw
-- 发布时间：2018/1/29 22:49:00
--
这个无法控制
-- 发布时间：2018/1/30 9:17:00
--
老师，
这个真的没法实现吗，其实就是想要类似生成一个主窗口
-- 发布时间：2018/1/30 9:22:00
--
你测试这个例子有没有问题？闪动的例子发上来测试。
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=16371&skin=0
-- 发布时间：2018/1/30 9:29:00
--
如例子的BTN1 点击后闪动
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:mdi应用程序 - 副本.table |