• 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
  • 当前位置: 山茶花美文网 > 友情文章 > 正文

    【如何隐藏Access窗口】一键隐藏窗口

    时间:2020-05-28来源:山茶花美文网 本文已影响 山茶花美文网手机站

    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

    • 【如何隐藏Access窗口】一键隐藏窗口 相关文章:
    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全