Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态增加页面问题


  共有2075人关注过本帖树形打印复制链接

主题：动态增加页面问题
帅哥哟，离线，有人找我吗？
YDS
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		动态增加页面问题  发帖心情 Post By：2018/9/14 19:09:00 [只看该作者]

我想在TopicBar里点击任务以后以后 TabControl会自动增加一个页面  并且把我要打开的窗口插入到新的页面里并显示出来 

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106550 积分：541915 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/9/14 20:32:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/15 10:28:00 [只看该作者]

谢谢老大    还有就是我想问一下   窗口中动态添加的菜单和按钮   如何添加对应的事件和代码

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106550 积分：541915 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/9/15 10:42:00 [只看该作者]

一样，根据名称区分，参考：http://www.foxtable.com/webhelp/scr/3112.htm

 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/15 10:54:00 [只看该作者]

那动态添加的按钮呢？   如何添加对应的事件和代码

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106550 积分：541915 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/9/15 11:08:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：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
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：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
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106550 积分：541915 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/9/15 12:02:00 [只看该作者]

代码没有问题，窗口必须是独立窗口，有e.Link.text显示的这个名称的窗口吗

 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：606 积分：3403 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/9/15 12:25:00 [只看该作者]

谢谢   已经找到原因了   e.Link.text 和 e.Link.name 不一样的原因    现在的问题是   如何让首页不显示关闭   其他页面显示关闭

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询