机房收费系统之三

1.SetParent函数

应用程序可以使用SetParent函数来设置弹出式窗口，层叠窗口或子窗口的父窗口。新的窗口与窗口必须属于同一应用程序。

语句格式：Private DeclareFunction SetParent Lib"user32"(Byval hWndChild As Long,Byval hWndNewParent As Long) As Long

一.函数功能：

改变某个子窗口的父窗口

二.参数说明

hWndChild:子窗口句柄   hWndNewParent：新的父窗口句柄

（句柄：一个句柄是指使用的一个唯一的整数值，即一个4字节（64位程序中为8字节）长的数值，来标识应用程序中的不同对象和同类中的不同的实例）

三.返回值

函数成功：返回子窗体的父窗口句柄（主义是一个整数值Long）

函数不成功：返回Null

如果没有MDI主窗体，那么不要使用SetParent函数，一面出现Bug,如图（将标记处注释掉即可）

2.学生充值记录查询窗口：（导出为Excel）

出现这种定义错误的原因分为三类：

①写错了默认变量类型名，如：dim a as intege,改写成dim a as integer即可。

②写错了自定义变量类型名，如：自定义变量a1,写成了al,改正即可。

③定义了某种引用类型的变量类型，而未利用该对象，如：

dim conn as ADODB.connection ,而未在工程中引用Microsoft ActiveX Data Object 2.5 Library,工程中引用ADO即可。

在这个问题中，没有引用Microsoft Excel 16.0 Object Library,(我用的是Offic2016)，在“工程”>“引用”中添加即可。但是有的时候，“引用”中是没有这一项的，怎么办呢？

①打开“工程”>“引用”

②单击“浏览”

③找到Windows Offic的安装路径（尤其是Excel），然后选择文件类型“*.exe.*dll”，找到“Excel.exe”打开即可。这时候“引用”中就会有这一项了。