前言
我之前一直纠结,每一个敲机房的小伙伴都遇到子窗体被覆盖的问题,为什么我没有呢?这很奇怪啊!这几天向别人一询问,原来是我没有把窗体设置成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
后记
有时候没有问题才是最大的问题,不怕不知道就怕不知道,就是这个道理吧!又印证了米老师的语录!祝自己在解决每一个小问题的道路上越走越远!下篇博客见!