Heim  >  Artikel  >  Datenbank  >  如何隐藏Access窗口

如何隐藏Access窗口

WBOY
WBOYOriginal
2016-06-07 14:54:391981Durchsuche

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)

Stellungnahme:
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn