以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] TabControl 的子页面如何直接加载窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75731)
--  作者：15986720145
--  发布时间：2015/10/13 20:31:00
--  [求助] TabControl 的子页面如何直接加载窗口
 有做好的窗口 "Test"，之前修改过好多次，比较完善了。

现在想将窗口直接移到 TabControl 的子页面下，直接显示，这样省去了重新改写代码的工作。

本人菜鸟，请大神给个简单代码，或者示例。谢谢！！！
--  作者：大红袍
--  发布时间：2015/10/13 20:36:00
--  

Dim tab As WinForm.TabControl = e.Form.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)
--  作者：15986720145
--  发布时间：2015/10/13 20:38:00
--  
这段代码放到什么地方，求指点
--  作者：大红袍
--  发布时间：2015/10/13 20:39:00
--  
afterLoad事件，而且不能预览窗口，否则死机。
--  作者：15986720145
--  发布时间：2015/10/13 20:41:00
--  

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

tab.TabPages.Add(name,name)   \'这行代码的参数 name,name 怎么设定

…………
--  作者：大红袍
--  发布时间：2015/10/13 20:42:00
--  
tab.TabPages.Add(name, "你自己的标题")
--  作者：15986720145
--  发布时间：2015/10/13 20:44:00
--  
第一个name是什么参数， 一个是名称，一个是标题’？？
[此贴子已经被作者于2015/10/13 20:45:03编辑过]
--  作者：大红袍
--  发布时间：2015/10/13 20:45:00
--  
名称、标题
--  作者：15986720145
--  发布时间：2015/10/13 20:55:00
--  
我将代码放到窗口的AfterLoad 事件中，结果程序未响应。
--  作者：大红袍
--  发布时间：2015/10/13 20:56:00
--  

报什么错。不报错，就肯定添加进窗口页面里了。