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

待我称王封你为后i 2022-06-03 06:20 145阅读 0赞

*   *  前言
     *  为什么没有
     *  问题怎么解决
        
         *  利用VB调用API函数
         *  利用API调用SetParent函数
     *  子窗体不完全显示
     *  后记

## 前言 ##

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

## 为什么没有？ ##

![这里写图片描述][SouthEast]

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

## 问题怎么解决 ##

### 利用VB调用API函数 ###

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

**具体操作：**外接程序-外接程序管理器-VB 6 API Viewer  
![这里写图片描述][SouthEast 1]

### 利用API调用SetParent函数 ###

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

![这里写图片描述][SouthEast 2]

![这里写图片描述][SouthEast 3]

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

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

## 后记 ##

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

[SouthEast]: /images/20220603/51cb317a0686404eaf7c6fe04da2f653.png
[SouthEast 1]: /images/20220603/5eea8d38d8184e9a9deb9aee2b8464b9.png
[SouthEast 2]: /images/20220603/781a00efad9d4e9fac7aafead592e7da.png
[SouthEast 3]: /images/20220603/7c667410cd2449bb81dd1b4d897df48f.png