如何隐藏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 fSetAccessWi

　　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 窗口

　　’ ?fSetAccess来&源gao@dai!ma.com搞$代^码%网Window(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)

搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]‍，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：如何隐藏Access窗口

Hi，您需要填写昵称和邮箱！