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