以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何将独立窗口加入到并列窗口页签中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97952)

--  作者:pcxjxjhkw
--  发布时间:2017/3/21 16:45:00
--  [求助]如何将独立窗口加入到并列窗口页签中

界面有主窗口,并列窗口,单击一菜单,如何实现:

将独立窗口A以并列窗口方式打开

 

谢谢


--  作者:有点色
--  发布时间:2017/3/21 17:30:00
--  

 获取并列窗口的tab对象

 

Dim tab = Forms("窗口1").panel.parent.parent

 

 然后,参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=88097&skin=0

 

 


--  作者:pcxjxjhkw
--  发布时间:2017/3/21 20:22:00
--  

                        Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")   \'\'\'
                        Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).Controls(0)     \'\'\'系统并列窗口页面集合
                        Dim pg As new C1Command.C1DockingTabPage  \'\'\'定义新的页面

Forms(frmNM).OPEN(-1000,-1500)
Forms(frmNM).BaseForm.TopLevel = False
Forms(frmNM).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(frmNM).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
Pg.Controls.Clear
Pg.Controls.add(Forms(frmNM).BaseForm)
FormTab.TabPages.Add(pg)  \'\'\'

 

以上代码无法实现。

 

如何实现先新增一个页面?

FormTab.TabPages.Add(frmNM,frmNM) 报错

[此贴子已经被作者于2017/3/21 20:23:56编辑过]

--  作者:有点蓝
--  发布时间:2017/3/21 20:42:00
--  
测试没有问题

Dim MainTab As C1Command.C1DockingTab = BaseMainform.Controls("MainPages")   \'\'\'
Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).Controls(0)     \'\'\'系统并列窗口页面集合
Dim pg As new C1Command.C1DockingTabPage  \'\'\'定义新的页面
pg.Text = frmNM
Forms(frmNM).OPEN(-1000,-1500)
Forms(frmNM).BaseForm.TopLevel = False
Forms(frmNM).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(frmNM).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
Pg.Controls.Clear
Pg.Controls.add(Forms(frmNM).BaseForm)
FormTab.TabPages.Add(pg)  \'\'\'

--  作者:pcxjxjhkw
--  发布时间:2017/3/21 21:32:00
--  

已解决,谢谢

 

跟问:选中不同页签时,如何实现:像窗口一样,先停止绘制,再恢复绘制。

 

 

[此贴子已经被作者于2017/3/21 21:38:59编辑过]

--  作者:有点蓝
--  发布时间:2017/3/21 21:43:00
--  
Dim FormTab As C1Command.C1DockingTab = MainTab.TabPages(0).Controls(0)     \'\'\'系统并列窗口页面集合
FormTab.BeginUpdate
‘其它代码
FormTab.EndUpdate

--  作者:pcxjxjhkw
--  发布时间:2017/3/21 21:55:00
--  

谢谢。

 

在关闭页签前,如何先销毁窗口?


--  作者:有点蓝
--  发布时间:2017/3/21 21:56:00
--  
直接关闭

Forms(“XXXX”).Close

--  作者:pcxjxjhkw
--  发布时间:2017/3/21 22:48:00
--  

怎么无法绑定关闭页签后的事件

AddHandler FormTab.TabPageClosed, AddressOf _TabPageClosed

 

报错,不知是什么原因


--  作者:有点蓝
--  发布时间:2017/3/22 8:32:00
--  
报什么错?