如何隐藏Access窗口_Access数据库教程-查字典教程网
如何隐藏Access窗口
如何隐藏Access窗口
发布时间:2015-06-05 来源:查字典编辑
摘要:GlobalConstSW_HIDE=0GlobalConstSW_SHOWNORMAL=1GlobalConstSW_SHOWMINIMI...

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数据库学习
    热门Access数据库学习
    编程开发子分类