标题 | 如何隐藏Access窗口 |
范文 | Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 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 |
随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。