以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在tabcontrol 加入窗口1控件出错了 帮助看一下  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66883)
--  作者：jswjyjf
--  发布时间：2015/4/15 15:49:00
--  在tabcontrol 加入窗口1控件出错了 帮助看一下

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
\'------------------------控件添加完成
tc.SelectedPage = tc.TabPages(Vars("Pcode"))
frm.Controls("TabControl1").basecontrol.VisualStyle = 5
frm.ResumeRedraw

\' 下面添加窗口1
Dim PB As WinForm.tabcontrol =frm.Controls(vars("pcode"))
\'Dim Name As String = e.Link.Name
Forms("窗口1").OPEN(-1000,-1500)
Forms("窗口1").BaseForm.TopLevel = False
Forms("窗口1").BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms("窗口1").BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms("窗口1").BaseForm)
 加了红色的代码 出错了 
--  作者：有点酸
--  发布时间：2015/4/15 15:59:00
--  
那一行代码出错，错误提示是什么，最好能提供一个可以直接测试的例子。
--  作者：jswjyjf
--  发布时间：2015/4/15 16:04:00
--  
红色的出错 我想在tabcontrol 加入一个窗口
--  作者：狐狸爸爸
--  发布时间：2015/4/15 16:05:00
--  

那一行代码不错，错误提示是什么？

 

你应该先调试一下，看看哪行代码出错，并告知错误体提示。

 

你提供的不是现成可以测试的例子，你可以测试，想帮你的人没办法测试。

[此贴子已经被作者于2015/4/15 16:05:54编辑过]
--  作者：blsu33
--  发布时间：2015/4/16 13:04:00
--  

Dim PB As WinForm.panl =frm.Controls(vars("pcode"))  
这里需要需要加一个Panl  控件  窗口应该显示到Panl

窗口不能直接在.tab中显示 只能在Panl  
求老师 证实
--  作者：Bin
--  发布时间：2015/4/16 13:33:00
--  
是的,自己动手试试就知道