呃，确实有问题，这种调试方法实在蛋疼，最后发觉是冲突问题。
要变通处理，测试有效
basemainform.WindowState = 0
basemainform.width = 0
basemainform.height = 0
basemainform.left = -1000
Dim frm As New MyForm()
Dim ct As New C1.Win.C1Ribbon.C1StatusBar
Dim leftbar As New C1.Win.C1Ribbon.ribbonlabel
Dim rightbar As New C1.Win.C1Ribbon.ribbonlabel
leftbar.text="版权号:" & Vars("Vesion") & Vars("SoftType")
rightbar.text=" 系统设计:定制软件吧 联系QQ:877181916 网站:HTTP://WWW.DZRJ.NET "
ct.Dock = Windows.Forms.DockStyle.Bottom
ct.rightpanewidth=410
ct.LeftPaneItems.Add(leftbar)
ct.RightPaneItems.Add(rightbar)
If frm.Controls.Contains(ct) Then
frm.Controls.Remove(ct)
End If
frm.Controls.Add(ct)
Dim menu As New C1.Win.C1Ribbon.C1Ribbon
menu.Dock = Windows.Forms.DockStyle.Top
menu.left=5
menu.Top=5
frm.text=Vars("SoftName")
frm.width=1024
frm.height=668
If frm.Controls.Contains(menu) Then
frm.Controls.Remove(menu)
End If
frm.Controls.Add(menu)
Dim Pan As New System.Windows.Forms.Panel
pan = New System.Windows.Forms.Panel
pan.name="BasePanel"
Pan.Dock = Windows.Forms.DockStyle.fill
pan.Controls.Clear
If frm.Controls.Contains(Pan) Then
frm.Controls.Remove(pan)
End If
frm.Controls.Add(Pan)
pan.BringToFront
Dim Mainform As String = Vars("MainForm")
Forms(Mainform).close
Forms(Mainform).OPEN(-1000,-1000)
Forms(Mainform).BaseForm.TopLevel = False
Forms(Mainform).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(Mainform).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
pan.Controls.add(Forms(Mainform).BaseForm)
basemainform.Select
frm.ShowDialog '必须放在窗口控件添加完毕后
加好友 
发短信
Post By：2014/8/3 15:55:00 [只看该作者]
