国内最全IT社区平台 联系我们 | 收藏本站
华晨云阿里云优惠2
您当前位置:首页 > 数据库 > access > 隐藏 Access 窗口

隐藏 Access 窗口

来源:程序员人生   发布时间:2013-12-18 22:47:37 阅读次数:2592次

   Global Const SW_HIDE =
Global Const SW_SHOWNORMAL =
Global Const SW_SHOWMINIMIZED =
Global Const SW_SHOWMAXIMIZED =

  Declare Function ShowWindow Lib "user" (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)
ErrClear
fSetAccessWindow = (loX <> )
End Function

生活不易,码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠
程序员人生
------分隔线----------------------------
分享到:
------分隔线----------------------------
关闭
程序员人生