这个问题是我敲机房的时候遇到的第二个问题了,当时在网上查了一下,说要借助一个API函数,说一下方法:
1.使用API函数:SetParent,在模块中声明这个函数,声明代码:
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
2.按照资料在菜单的单击事件中添加如下格式的代码:
SetParent 想要显示子窗体名称.hWnd,MDI窗体.hWnd
按照格式我添加代码如下:
SetParent frmInquirebal.hWnd,frmMain.hWnd
但是这样添加后会提示:
经过询问后,将添加代码修改为:
SetParent frmInquirebal.hWnd, Picture1.hWnd
将frmMain改为Picture1
3.添加完以上代码后,子窗体还是没有完全显示出来,用鼠标拖动才得到显示,这时修改borderstyle属性,将属性改为1后可以显示出来,但是如果细心一点的话就会发现子窗体不能调整大小,这时我们就要认识一下borderstyle0-5这六个属性了:
0——没有外框
1——有最小化和最大化按钮,固定单边框
2——有最小化和最大化与及关闭按钮,可以调节的,默认的就是这个
3——固定对话框,没有最小化和最大化按钮
4——固定工具窗口,不能改变大小尺寸的
5——可改变尺寸窗口,可改变尺寸大小
4.通过以上各属性的介绍,可以看出还是改回2好,为解决子窗体不能显示出来的问题,我们在Form_load中设定一下窗体的宽和高:
Me.Width = 10000
Me.Height = 8000
具体数字可以根据具体窗体设定,这样子窗体就显示出来了,而且可以随意的调整大小。
一个小问题可能解决也不是一蹴而就的,可能还需要经过几次的修改,也许这也是一种成长,一种积累吧!这才是一个小小的开端,后面遇到的问题也正是证明了这才是一个小小的开始,遇到问题解决问题,我们一直在路上!