如何隐藏Access窗口

WBOY
リリース: 2016-06-07 14:54:39
オリジナル
2029 人が閲覧しました

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)

関連ラベル:
ソース:php.cn
このウェブサイトの声明
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。
人気のチュートリアル
詳細>
最新のダウンロード
詳細>
ウェブエフェクト
公式サイト
サイト素材
フロントエンドテンプレート