共计 428 个字符,预计需要花费 2 分钟才能阅读完成。
有时候我们需要隐藏 ACCESS 数据库的主窗口, 比如在程序登录窗口, 这时有两种方法可以达到这个要求。
1. 采用 ShowWindow 函数:
首先在模块中声明下面的代码:
Option Explicit
Private Declare Function ShowWindow Lib “user32″ _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
然后在窗体加载代码中调用:
ShowWindow Me.Application.hWndAccessApp, 0’ 隐藏
当需要恢复时, 使用下面的代码:
ShowWindow Me.Application.hWndAccessApp, 1’ 不隐藏, 即恢复
2. 使用最小化命令, 将窗体设置 ” 弹出 ” 方式为 ” 是 ”
DoCmd.RunCommand acCmdAppMinimize
恢复代码:
DoCmd.RunCommand acCmdAppMaximize
摘自 http://www.accessoft.com,学习、备用。
正文完