mainform，topicbar1，topiclinkclick
代码如下
Dim PB As WinForm.Panel = e.Form.Controls("Panel1")
Dim Name As String = e.Link.Name
e.Form.StopRedraw()
For Each frm As WinForm.Form In forms
If frm.Formstyle = 2 AndAlso frm.name <> name Then
frm.close
End If
Next
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.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms(Name).BaseForm)
e.Form.Controls("窗口标题").text = Name
e.Form.ResumeRedraw()
没找到问题所在 请指教
加好友 
发短信
Post By：2015/12/3 9:37:00 [显示全部帖子]
