怎樣用代碼隱藏、化、最小化ACCESS的主窗口

通過(guò)一函數(shù)已定義的常量 fSetACCESSWindow 實(shí)現(xiàn)。
    該函數(shù)能用來(lái)完全隱藏 Access 窗口并將你自己的窗體顯示在桌面上。在彈出式窗體的 Open 事件中使用 SW_HIDE 參數(shù)調(diào)用 fSetACCESSWindow 函數(shù)實(shí)現(xiàn)。
    注意：如果你隱藏了 Access 主窗口，要確定你有良好的出錯(cuò)處理。因?yàn)橹鞔翱陔[藏后，一旦引發(fā)錯(cuò)誤，并出錯(cuò)提示窗口上點(diǎn)擊了“結(jié)束”按鈕，這樣不會(huì)使 Access 主窗口可見(jiàn)，并退出你自己的窗體。推薦你在你的錯(cuò)誤處理程序中使用 SW_SHOWNORMAL 參數(shù)調(diào)用 fSetAccessWindow 函數(shù)來(lái)顯示 ACCESS 主窗口。
    如果由于別的原因，ACCESS 主窗口不能顯示，那么你將只能從任務(wù)欄中關(guān)閉你的 mdb，在 Win 9x 中使用 Control-Alt-Delete 來(lái)結(jié)束任務(wù)，在 Win NT 、2000 或 XP 中，可以右鍵單擊任務(wù)欄選擇任務(wù)管理器來(lái)選擇該 mdb 結(jié)束任務(wù)。
    ’************ 代碼開(kāi)始 **********
    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
    Set loFORM = Screen.ActiveFORM
    If Err <> 0 Then ’ 沒(méi)有活動(dòng)窗體 no ActiveFORM
    If nCmdShow = SW_HIDE Then
    　MsgBox "除非屏幕上有一個(gè)窗口，否則不能隱藏 ACCESS 主窗口!" _
    　　　　　& vbcr & VBcr　_
    　　　　　& "Cannot hide ACCESS unless " _
    　　　　　& "a FORM is on screen"
    Else
    　loX = apiShowWindow(hWndACCESSApp, nCmdShow)
    　Err.Clear
    End If
    Else
    　If nCmdShow = SW_SHOWMINIMIZED And loFORM.Modal = True Then
    　MsgBox "不能由屏幕上的 " & (loFORM.Caption + " ")　& "窗體最小化 ACCESS 主窗口!" _
    　　　　　& vbcr & VBcr　_
    　　　　　& "Cannot minimize ACCESS with " _
    　　　　　& (loFORM.Caption + " ") _
    　　　　　& "FORM on screen"
    　ElseIf nCmdShow = SW_HIDE And loFORM.PopUp <> True Then
    　MsgBox "不能由屏幕上的 " & (loFORM.Caption + " ")　& "窗體隱藏 ACCESS 主窗口!" _
    　　　　　& vbcr & VBcr　_
    　　　　　& "Cannot hide ACCESS with " _
    　　　　　& (loFORM.Caption + " ") _
    　　　　　& "FORM on screen"
    　Else
    　loX = apiShowWindow(hWndACCESSApp, nCmdShow)
    　End If
    End If
    fSetACCESSWindow = (loX <> 0)
    End Function
    ’************ 代碼結(jié)束 **********