- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]先前运行正常,现在报错了,请帮忙看看! (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56380)
-- 发布时间：2014/9/4 10:26:00
-- [求助]先前运行正常,现在报错了,请帮忙看看!
Dim tbc As WinForm.TabControl =Forms("首页").Controls("TabControl")
Forms("首页").Controls("TabControl").basecontrol.VisualStyle = 5
For Each tbp As WinForm.TabPage In tbc.TabPages
If tbp.Name = e.Button.Name Then
tbc.SelectedPage = tbp
Return
End If
Next
tbc.TabPages.Add(e.Button.Name,e.Button.Name)
Dim frm = Forms(e.Button.Name)
frm.OPEN(-1000,-1500)
frm.BaseForm.TopLevel = False \'窗口降级
frm.BaseForm.Dock = Windows.Forms.DockStyle.fill
frm.BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
tbc.TabPages(e.Button.Name).Controls.add(frm.BaseForm)
tbc.SelectedIndex = tbc.TabPages.Count-1
Forms("首页").Controls("TabControl").basecontrol.VisualStyle = 5
For Each tbp As WinForm.TabPage In tbc.TabPages
If tbp.Name = e.Button.Name Then
tbc.SelectedPage = tbp
Return
End If
Next
tbc.TabPages.Add(e.Button.Name,e.Button.Name)
Dim frm = Forms(e.Button.Name)
frm.OPEN(-1000,-1500)
frm.BaseForm.TopLevel = False \'窗口降级
frm.BaseForm.Dock = Windows.Forms.DockStyle.fill
frm.BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
tbc.TabPages(e.Button.Name).Controls.add(frm.BaseForm)
tbc.SelectedIndex = tbc.TabPages.Count-1
-- 发布时间：2014/9/4 10:41:00
--
结帖,找到问题了!