彻底隐藏ACCESS程序主窗口及所在任务栏图标

时　间:2017-12-20 16:10:54
作　者:Big Young   ID：252  城市：襄阳
摘　要:彻底隐藏ACCESS程序主窗口及所在任务栏图标。
正　文:

点击下载此附件

代   码：

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) Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function 

用   法:

1. 要保证所有的窗体的弹出属性设置为TRUE（ Popup = Yes），并且模式窗属性也必须设置为TRUE（ Modal = Yes）。
2. 要在代码中创建好错误处理程序，应能完全处理程序运行过程中的所有错误。
3. 将上面的代码复制到一个新建的空白模块中。
4. 在自己的窗体的“'OnLoad”事件中添加如下代码：Call fSetAccessWindow(0)