2024年6月11日发(作者：)

隐藏Access窗口的方法

为了美观我们通常隐藏Access窗口，有时候我们需要禁止用户操作数

据，所以我们需要隐藏Access窗口。我们为大家收集整理了关于隐藏Access

窗口，以方便大家参考。

 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