- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 帮助看一下 想把窗体1放在 page1 内 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66887)
-- 发布时间：2015/4/15 16:13:00
-- 帮助看一下 想把窗体1放在 page1 内
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:将窗体加入窗体.rar |
-- 发布时间：2015/4/15 16:17:00
--
不要这样干，这么干，还不如用并列窗口。
一定要这么干，代码：
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim PB As WinForm.TabPage = tab.TabPages(0)
Dim Name As String = e.Link.Name
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.Controls.Clear
PB.Controls.add(Forms(Name).BaseForm)
[此贴子已经被作者于2015/4/15 16:24:23编辑过]
-- 发布时间：2015/4/15 16:24:00
--
嗯 如果用并列窗口 双击并列窗口的标题 能把这个并列窗口关闭吗 我试了好像关不了
-- 发布时间：2015/4/15 16:26:00
--
目前不能双击关闭，做个关闭按钮
-- 发布时间：2015/4/15 16:28:00
--
嗯 明白了 多谢
-- 发布时间：2015/4/15 16:29:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=41220&skin=0
-- 发布时间：2015/4/15 21:10:00
--
2楼狐爸的看懂了 测试也行了，如果tabcontro 在SplitContainer1 中代码怎么写
-- 发布时间：2015/4/15 21:14:00
--
一字不变
-- 发布时间：2015/4/15 21:20:00
--
如果tabcontro 在SplitContainer1 出错了
此主题相关图片如下：qq图片20150415211721.jpg
-- 发布时间：2015/4/15 21:21:00
--
代码是这样 帮我看一下
Vars("Pcode") = "APP001" \'页面名称
Vars("Pgrid") = "待办事项" \'页面标题
\'界面生成
Dim frm As WinForm.Form = Forms("Main")
frm.StopRedraw()
Dim tc As WinForm.TabControl = frm.Controls("TabControl1")
If tc.TabPages.Contains(Vars("Pcode")) = False Then
tc.TabPages.Add(Vars("Pcode"),Vars("Pgrid"))
Else
tc.TabPages(Vars("Pcode")).ClearControl
End If
Dim tab As WinForm.TabControl = frm.Controls("TabControl2")
Dim PB As WinForm.TabPage = tab.TabPages(vars("Pcode"))
Dim Name As String = "窗口1"
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.Controls.Clear
PB.Controls.add(Forms(Name).BaseForm)\'------------------------控件添加完成
tc.SelectedPage = tc.TabPages(Vars("Pcode"))
frm.Controls("TabControl1").basecontrol.VisualStyle = 5
frm.ResumeRedraw