隐藏access窗体背景

隐藏access背景的方法

隐藏access背景的方法 

作为office组件之一的access，打开之后和word、excel一样有它的完整的菜单栏、工具栏，使用起来非常方便。但是，用access设计自己的软件，如果设计已经完成，有人可能不想再要原有的背景及其菜单栏和工具栏，而只想通过自己设计在窗体上的工具或菜单进行操作。这就需要将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

五、点击“工具”选择“启动”，在启动窗体里选择“主窗体”。设计完成，退出。
当你再打开程序时，你会发现屏幕上只会显示你自己设计的窗体。

事列代码如下:

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