隱藏access背景的方法 

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

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

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

事列代碼如下:

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) ''卸載事件