以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 动态增加页面问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124851) |
-- 作者:YDS -- 发布时间:2018/9/14 19:09:00 -- 动态增加页面问题 我想在TopicBar里点击任务以后以后 TabControl会自动增加一个页面 并且把我要打开的窗口插入到新的页面里并显示出来 |
-- 作者:有点蓝 -- 发布时间:2018/9/14 20:32:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=123862&skin=0 |
-- 作者:YDS -- 发布时间:2018/9/15 10:28:00 -- 谢谢老大 还有就是我想问一下 窗口中动态添加的菜单和按钮 如何添加对应的事件和代码 |
-- 作者:有点蓝 -- 发布时间:2018/9/15 10:42:00 -- 一样,根据名称区分,参考:http://www.foxtable.com/webhelp/scr/3112.htm |
-- 作者:YDS -- 发布时间:2018/9/15 10:54:00 -- 那动态添加的按钮呢? 如何添加对应的事件和代码 |
-- 作者:有点蓝 -- 发布时间:2018/9/15 11:08:00 -- 参考:http://www.foxtable.com/webhelp/scr/1920.htm |
-- 作者:YDS -- 发布时间:2018/9/15 11:42:00 -- 好的 谢谢 我按照上面的提示写的动态增加页面还是不行 内部函数 form Dim Name As String = Args(0) Dim tab As WinForm.TabControl = Forms("MainForm").Controls("TabControl1") If tab.TabPages(Name) Is Nothing Then tab.TabPages.Add(Name,Name) Dim pb = tab.BaseControl Forms(Name).OPEN(-1000,-1500) Forms(Name).BaseForm.TopLevel = True Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill PB.TabPages(Name).Controls.Clear PB.TabPages(Name).Controls.add(Forms(Name).BaseForm) tab.SelectedPage = tab.TabPages(Name) Else tab.SelectedPage = tab.TabPages(Name) End If TopicLinkClick代码 Functions.Execute("Form",e.Link.text) 请帮忙看一下哪里有问题 |
-- 作者:YDS -- 发布时间:2018/9/15 11:46:00 -- 内部函数是下面的代码 form Dim Name As String = Args(0) Dim tab As WinForm.TabControl = Forms("MainForm").Controls("TabControl1") If tab.TabPages(Name) Is Nothing Then tab.TabPages.Add(Name,Name) Dim pb = tab.BaseControl 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(Name).Controls.Clear PB.TabPages(Name).Controls.add(Forms(Name).BaseForm) tab.SelectedPage = tab.TabPages(Name) Else tab.SelectedPage = tab.TabPages(Name) End If
|
-- 作者:有点蓝 -- 发布时间:2018/9/15 12:02:00 -- 代码没有问题,窗口必须是独立窗口,有e.Link.text显示的这个名称的窗口吗 |
-- 作者:YDS -- 发布时间:2018/9/15 12:25:00 -- 谢谢 已经找到原因了 e.Link.text 和 e.Link.name 不一样的原因 现在的问题是 如何让首页不显示关闭 其他页面显示关闭 |