隐藏Access主窗口之二
时间:2005-08-16 11:35 来源:未知 作者:共享 阅读:次
'注:窗体的“弹出”及“模式”属性必须设为“是”,否则就什么都看不到,要按Ctrl+Alt+DEl来找到"Msaccess.exe"结束任务才可以再打开。
'//ShowWindow flags
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
'sets the specified window's show state.
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" _
(ByVal hwnd As Long, _
ByVal nCmdShow As Long) _
As Long
'//ShowWindow flags
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1
Private Const SW_SHOWMINIMIZED = 2
Private Const SW_SHOWMAXIMIZED = 3
'sets the specified window's show state.
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" _
(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 = apiShowWindow(hWndaccessApp, nCmdShow)
Err.Clear
fSetaccessWindow = (loX <> 0)
End Function
(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·API函数详细解释
- ·Access从剪切版里复制和粘贴数据
- ·Access利用api实现打开/关闭光驱
- ·应用程序开机自动启动(注册表操作技巧
- ·Access VBA 判断网络是否连通的多种办
- ·什么是ADP,了解ADP的优缺点
- ·优秀产品大全--通用票据打印软件(新)
- ·[技巧分享]多条Shell语句执行导致判断
- ·在access中可以调用API函数GetFileInfo
- ·Access API集中营--增加临时使用的字体
- ·API ShellExecute 功能说明及应用示例
- ·在VB中使用API函数(什么是API? )
- ·API实现完美的图片出现效果(转)
- ·API 设置调整系统当前时间
- ·如何检测以及设置键盘状态
- ·不关闭当前数据库COPY当前数据库
最新内容
推荐内容