Foxtable(狐表)用户栏目专家坐堂 → tabcontrol控件代码增加子窗口


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

主题:tabcontrol控件代码增加子窗口

帅哥哟,离线,有人找我吗?
boooxu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1313 威望:0 精华:0 注册:2012/10/31 14:21:00
tabcontrol控件代码增加子窗口  发帖心情 Post By:2019/11/24 9:41:00 [只看该作者]

希望大佬指导,附件是使用普通版做的,请指导。

希望在TABPAGE内代码增加新分页,并在分页的窗口内加载子窗口

通过点击“主界面”内分页page1内的按钮“开新分页并加载窗口”新建page2分页,并在分页内装载窗口3.
在论坛里看到一段代码,修改加入后发现不能实现,请大佬指导。

论坛内看到的代码为(版主“有点甜”发布的):


你窗口A放入一个tabcontrol控件,然后弄一个按钮,写下面代码

 

Dim tab As WinForm.TabControl = e.form.Controls("TabControl1")
Dim Name As String = "窗口B"

tab.TabPages.Add(e.sender.name,e.sender.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(e.sender.name).Controls.Clear
PB.TabPages(e.sender.name).Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = tab.TabPages(e.sender.name)


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:tabcontrol示例.table

[此贴子已经被作者于2019/11/24 9:43:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
boooxu
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1313 威望:0 精华:0 注册:2012/10/31 14:21:00
  发帖心情 Post By:2019/11/24 10:47:00 [只看该作者]

普通版的界面没法打开?一会回去转成开发版格式发出来

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

项目我打不开。这个代码有什么问题?

 回到顶部
帅哥哟,离线,有人找我吗?
boooxu
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1313 威望:0 精华:0 注册:2012/10/31 14:21:00
  发帖心情 Post By:2019/11/25 8:37:00 [只看该作者]

以下是引用有点蓝在2019/11/24 21:51:00的发言:
项目我打不开。这个代码有什么问题?

不能实现我想要的功能,请版主指导呀。 需要把窗口加入到tabpage分页内 昨天回去的有点晚,没有转成开发版格式放进来

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110784 积分:563852 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/25 9:19:00 [只看该作者]

我测试没有问题:
1、窗口b必须是独立窗口
2、不要在窗口设计的预览中测试这个功能,会死机的

Dim tab As WinForm.TabControl = e.form.Controls("TabControl1")
Dim Name As String = "窗口B"

Dim p As WinForm.TabPage = tab.TabPages.Add(e.sender.name,e.sender.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
p.Controls.Clear
p.Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = p

 回到顶部
帅哥哟,离线,有人找我吗?
boooxu
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1313 威望:0 精华:0 注册:2012/10/31 14:21:00
谢谢版主,搞定这个问题  发帖心情 Post By:2019/11/29 3:53:00 [只看该作者]

顺便想请教另外一个问题,我之前也是在这台电脑上做的,

不知道从什么时候起,做的这个界面突然变了,字变小了,还有表标题/分页标题都变成部分文字加省略号,

有没有办法让标题名称显示全部文字 ?

 

 


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110784 积分:563852 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/29 8:24:00 [只看该作者]

控制面板\所有控制面板项\显示

设置为100%,或者默认值显示

 回到顶部