隱藏access背景的方法 

作為office組件之一的access，打開之后和word、excel一樣有它的完整的菜單欄、工具欄，使用起來非常方便。但是，用access設(shè)計自己的軟件，如果設(shè)計已經(jīng)完成，有人可能不想再要原有的背景及其菜單欄和工具欄，而只想通過自己設(shè)計在窗體上的工具或菜單進(jìn)行操作。這就需要將access原來的背景隱藏掉。
要達(dá)到這個目的，需要進(jìn)行以下設(shè)計－－
一、設(shè)計好準(zhǔn)備讓其獨(dú)立顯示的窗體（假設(shè)命名為“主窗體”，其彈出方式設(shè)為“是”），將可能使用到的菜單、工具都加上。
二、在主窗體的通用事件里寫代碼－－

Option Compare Database
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1

三、在主窗體的加載事件里寫代碼－－
ShowWindow Application.hWndAccessApp, SW_SHOWNORMAL
MoveWindow Application.hWndAccessApp, -1000, 0, 400, 500, 1

四、在主窗體的卸載事件里寫代碼－－
MoveWindow Application.hWndAccessApp, 0, 0, 400, 500, 1
ShowWindow Application.hWndAccessApp, SW_SHOWMAXIMIZED

五、點(diǎn)擊“工具”選擇“啟動”，在啟動窗體里選擇“主窗體”。設(shè)計完成，退出。
當(dāng)你再打開程序時，你會發(fā)現(xiàn)屏幕上只會顯示你自己設(shè)計的窗體。

事列代碼如下:

Option Compare Database
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
ShowWindow Application.hWndAccessApp, SW_SHOWNORMAL
MoveWindow Application.hWndAccessApp, -1000, 0, 400, 500, 1
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MoveWindow Application.hWndAccessApp, 0, 0, 400, 500, 1
ShowWindow Application.hWndAccessApp, SW_SHOWMAXIMIZED
End Sub

備注:
Private Sub Form_Load() ''加載事件
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ''卸載事件