机房收费系统—子窗体被覆盖

前言

我之前一直纠结，每一个敲机房的小伙伴都遇到子窗体被覆盖的问题，为什么我没有呢？这很奇怪啊！这几天向别人一询问，原来是我没有把窗体设置成MDI窗体的子窗体，这就尴尬了！

为什么没有？

每一个窗体都有这个属性，将窗体的MDIChild属性设置为Ture就OK了！子窗体终于被覆盖了！

问题怎么解决

利用VB调用API函数

API全称为Application Programming Interface，直译的话可叫它“应用程序接口”。从意义上来说，API是一个操作系统或某个程序本身提供给其他程序使用的函数。在Windows操作系统中，有成千个Windows的函数提供给应用程序使用。

具体操作：外接程序-外接程序管理器-VB 6 API Viewer

利用API调用SetParent函数

具体操作：外界程序-API浏览器-文件-加载文本文件

复制后粘贴到模块代码中
然后在主窗体代码窗口中输入相应的代码
例如：

Private Sub InquiryBalance_Click()      '一般用户——学生查看余额
frmInquiryBalance.Show
SetParent frmInquiryBalance.hWnd, pic1.hWnd
End Sub

子窗体不完全显示

步骤1： 设置BorderStyle属性为2-sizable
- 0——没有外框
- 1——有最小化和最大化按钮，固定单边框
- 2——有最小化和最大化与及关闭按钮，可以调节的双线边框
- 3——没有最小化和最大化按钮，双线边框，不可以改变窗体大小
- 4——固定工具窗口，不能改变大小尺寸的
- 5——可改变尺寸窗口，可改变尺寸大小
-
步骤2：设置窗体宽和高

  Me.Width = 10000
  Me.Height = 8000

后记

有时候没有问题才是最大的问题，不怕不知道就怕不知道，就是这个道理吧！又印证了米老师的语录！祝自己在解决每一个小问题的道路上越走越远！下篇博客见！