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


  共有2066人关注过本帖平板打印复制链接

主题: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编辑过]

 回到顶部