如图:
代码如下:Private Sub frm主控_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'进行菜单和工具栏的初始化
ShowMainHI()
Me.stsl版权.Text = "VB.NET精品课程建设组"
'创建并显示浏览窗体
frmBrowser = New frm浏览
frmBrowser.MdiParent = Me '指定父窗体
frmBrowser.ClientSize = ClientSize
frmBrowser.Height = Me.Height - 90 '调整浏览窗体的高度,使得“下区域”的横向滚动条可以看见
frmBrowser.Show()
End Sub
请各位高手帮忙一下, 谢谢!!!