明辉手游网中心:是一个免费提供流行视频软件教程、在线学习分享的学习平台!

怎么隐藏Access窗口

[摘要]Global Const SW_HIDE = 0Global Const SW_SHOWNORMAL = 1Global Const SW_SHOWMINIMIZED = 2Global Const...

  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


Microsoft Access在很多地方得到广泛使用,例如小型企业,大公司的部门。