以文本方式查看主题 - 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") \'\'\' Forms(frmNM).OPEN(-1000,-1500)
以上代码无法实现。
如何实现先新增一个页面? 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 -- 报什么错? |