鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 数据库 > Access > >

如何隐藏Access窗口

来源:互联网 作者:佚名 时间:2015-11-18 20:49
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 窗口

  ' ?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)

网友评论
<