隐藏 Access 窗口

Declare Function ShowWindow Lib "user32" (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
loX = ShowWindow(hWndAccessApp, nCmdShow)
Err.Clear
fSetAccessWindow = (loX <> 0)
End Function

关键词：窗口 

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!