求助

lt1668

DoCmd.RunCommand acCmdAppMinimize

我把上面这个加载在窗体中但是背景没有被隐藏~~!

Option Compare Database

Option Explicit

Global Const SW_HIDE = 0

Global Const SW_SHOWNORMAL = 1

Global Const SW_SHOWMINIMIZED = 2

Global Const SW_SHOWMAXIMIZED = 3



Private Declare Function apiShowWindow Lib "user32" _

    Alias "ShowWindow" (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 = apiShowWindow(hWndAccessApp, nCmdShow)

    Err.Clear

    fSetAccessWindow = (loX <> 0)

End Function

这句话也不太明白????

要怎么才能隐藏背景呢???[em04][em04][em04][em04]

sweetduck

窗体属性设置为 弹出 +  模式