怎么隐藏Access窗口

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和图形用户界面两项特点，是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

　　Global Const SW_HIDE = 0

　　Global Const SW_SHOWNORMAL = 1

　　Global Const SW_SHOWMINIMIZED = 2

　　Global Const SW_SHOWMAXIMIZED = 3

　　Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

　　Function fSetAccessWindow(nCmdShow As Long)

　　' 使用举例

　　' 最大化 Access 窗口

　　' ?fSetAccessWindow(SW_SHOWMAXIMIZED)

　　' 最小化 Access 窗口

　　' ?fSetAccessWindow(SW_SHOWMINIMIZED)

　　' 隐藏 Access 窗口

　　' ?fSetAccessWindow(SW_HIDE)

　　' 正常显示 Access 窗口

　　' ?fSetAccessWindow(SW_SHOWNORMAL)

　　Dim loX As Long

　　Dim loForm As Form

　　On Error Resume Next

　　loX = ShowWindow(hWndAccessApp, nCmdShow)

　　Err.Clear

　　fSetAccessWindow = (loX <> 0)

　　End Function

Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。

……

标签:如何隐藏Access窗口