机房收费系统之子窗体不显示问题

       刚开始敲机房的时候，子窗体不能显示

      

        1>开始引入了 Setparent函数

       

      先在模块中声明Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

       

      然后在菜单的单击事件中加入代码   SetParent frmAReInfoQu.hWnd, frmMain.hWnd  关于Setparent函数的用法，我参考的博客http://blog.itpub.net/10752043/viewspace-992965/

     

      虽然子窗体能够显示了， 但却只是一小条，需要自己拉动才能变大

      

     2>boderstyle属性

      朋友给我指出了问题，建议把boderstyle属性改成1，可是改了之后连子窗体都不显示了

设置窗体边框可以通过设置窗体的FormBorderStyle属性设置。

属性值可以通过枚举类型FormBorderStyle获取，它的取值和意义如下表所示。

属性

值

意义

FormBorderStyle.None

0

无边框FormBorderStyle.FixedSingle

1

固定的单行边框FormBorderStyle.Fixed3D

2

固定的三维样式边框FormBorderStyle.FixedDialog

3

固定的对话框样式的粗边框FormBorderStyle.Sizable

4

可调整大小的边框FormBorderStyle.FixedToolWindow

5

不可调整大小的工具窗口边框FormBorderStyle.SizableToolWindow

6

可调整大小的工具窗口边框


    通过查阅，我发现用代码来控制窗体非常可行

 在form_load中加上  Me.Width = 13485  Me.Height = 10740

这样就可以了，你想让它多大就多大