在窗口容器中打开另一个窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在窗口容器中打开另一个窗口

共有5836人关注过本帖树形打印复制链接主题：在窗口容器中打开另一个窗口

YDGJ2016

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：42 积分：391 威望：0 精华：0 注册：2016/7/25 17:51:00

在窗口容器中打开另一个窗口 发帖心情

Post By：2018/3/22 10:10:00 [只看该作者]

请教一下，有没有一种方法，可以在某一窗口的一个特定面板中打开另一个窗口？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/22 10:17:00 [只看该作者]

可以，参考

Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")
Dim Name As String = "窗口2"

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)

或者

Dim PB As WinForm.Panel = e.Form.Controls("Panel2")

Dim Name As String = "工具栏"

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.BaseControl.Controls.Clear

PB.BaseControl.Controls.add(Forms(Name).BaseForm)