繁體中文当前位置: 首页 > 图文教程 > 数据库 > Access > 隐藏 Access 窗口
- Access
- Access数据库技术（16)
- Access数据库技术（17)
- Access数据库技术（18)
- Access数据库技术（19)
- Access数据库技术（20)
- Access数据库技术（21)
- Access数据库技术（22)
- Access数据库技术（23)
- Access数据库技术（24)
- Access数据库技术（25)
- Access数据库技术（26)
- Access数据库技术（27）
- Access数据库技术（28)
- Access数据库技术（29)
- Access数据库技术（30)
- Access数据库技术（31)
- Access数据库技术（32)
- Access数据库技术（33)
- Access数据库技术（34)
- Access数据库技术（35)
隐藏 Access 窗口
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 62 ::
收藏到网摘: n/a
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
评论 (0) All
