在机房收费系统中,各种纠结,正如上篇博客中说的那样——机房收费系统就是来还债的!刚开始做得时候,就遇到一个问题:MDI窗体不能添加控件!这个不是问题,添加一个图片框,在图片框上添加控件!问题又出来了,子窗体显示不了(被图片框挡住了!)怎么整?
通过了解,用API函数setParent可以解决这个问题:
首先:在模块中声明函数 SetParent
PublicDeclare Function SetParent Lib "user32" (ByVal hWndChild As Long,ByVal hWndNewParent As Long) As Long
其次,在MDI窗体的下拉菜单单击事件中编写代码:
SetParent欲显示的子窗体名称.hWnd, frmMain.hWnd
这时还是不能看到想要显示的子窗体,还需一步:在欲显示的窗体加载事件中编写代码:
Me.Width=7000
Me.heigh=7000
其中的7000以适合窗体大小的值为准, OK