隐藏Access程序背景的介绍

对于一些数据库应用程序来说，其设置的窗体已经能够完整地实现数据库应用程序的功能，这时Access的程序背景就显得比较碍眼了，需要将其隐藏。隐藏Access程序背景有两种方法：一种是直接将整个背景隐藏，另一种是将整个背景最小化。

（1）隐藏程序背景

在Access中，需要调用一个API（）函数ShowWindow将整个背景隐藏。首先在窗口的模块中声明API（）函数，即在代码窗口的开始位置输入以下代码：

Option Explicit

Private Declare PtrSafe Function ShowWindowLib“user32”（ByVal hwnd As Long，ByVal nCmd-Show As Long）As Long

然后在窗口的加载事件中输入如下代码，即可隐藏窗口。

ShowWindow Me.Application.hWndAccessApp，0

如果要将已经隐藏的窗口显示出来，则需要输入以下代码：

ShowWindow Me.Application.hWndAccessApp，1

在将程序背景隐藏之前，需要将程序中所有窗口的“弹出方式”和“模式”属性设置为“是”。

（2）程序背景最小化(www.xing528.com)

将整个程序背景隐藏时，可能会遇到一些意想不到的问题，为了避免这些问题的出现，可以采用将Access程序背景最小化的方法来实现隐藏背景的功能。将Access背景最小化的方法很简单，只需输入如下代码即可实现。

DoCmd.RunCommand acCmdAppMinimize

如果要恢复程序背景，则需输入以下代码。

DoCmd.RunCommand acCmdAppMaximize

下面以“登录”窗体为例，讲解隐藏Access程序背景。

步骤1：隐藏程序背景。在“登录”窗体的加载事件中添加隐藏Access程序背景的代码，如图5-26所示。

图5-26　隐藏Access背景

步骤2：显示程序背景。在“学生管理系统”窗体的卸载事件中添加显示Access程序背景的代码，如图5-27所示。

图5-27　显示Access背景