Dim PB As Object = BaseMainForm.Controls("MainPages") 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.tabpages("表A").Controls.Clear PB.tabpages("表A").Controls.add(Forms(Name).BaseForm)
加好友 
发短信
Post By：2016/3/24 14:44:00 [显示全部帖子]
