机房收费系统问题记录——子窗体的显示问题

           这个问题是我敲机房的时候遇到的第二个问题了,当时在网上查了一下,说要借助一个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

      但是这样添加后会提示:

      机房收费系统问题记录——子窗体的显示问题_第1张图片

      经过询问后,将添加代码修改为:

      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

     具体数字可以根据具体窗体设定,这样子窗体就显示出来了,而且可以随意的调整大小。

     一个小问题可能解决也不是一蹴而就的,可能还需要经过几次的修改,也许这也是一种成长,一种积累吧!这才是一个小小的开端,后面遇到的问题也正是证明了这才是一个小小的开始,遇到问题解决问题,我们一直在路上! 

  

你可能感兴趣的:(sql,数据库,api,vb)