1、
Dim PB As WinForm.Panel = e.Form.Controls("Panel2")
Dim Name As String = "工具栏"
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)
2、
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=64193&replyID=&skin=1
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=37935&skin=0
加好友 
发短信
Post By：2015/6/5 9:27:00 [显示全部帖子]
