|
隐藏Access主窗口之二
'注：窗体的“弹出”及“模式”属性必须设为“是”，否则就什么都看不到，要按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 LongFunction 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
--------------------------------------------------------------------------------
相关文章
剖析 Declare 语句 2004-1-28 15:08:06
了解句柄 2004-1-28 15:03:43
什么是 API？ 2004-1-28 15:01:53
对注册表操作技巧-将程序在开机时运行 2003-11-18 9:24:59
officeXP下使用文件对话框的另外一种方法 2003-11-17 8:47:04
真正实现在windows2000下关机的源代码 2003-11-14 8:32:00
获取Windows用户登录名 2003-11-7 8:42:45
获取网卡物理地址 2003-11-7 8:40:48
如何让窗体总在最前面？ 2003-11-7 8:25:19
如何关闭计算机？ 2003-11-7 8:24:43
如何建立简单的超级连接？(ShellExecute) 2003-11-6 20:39:18
如何让窗体的标题条闪烁以引起用户注意？ 2003-11-6 20:38:43
怎样找到鼠标指针的XY坐标？ 2003-11-6 20:37:33
在程序中如何打开和关闭光驱门？ 2003-11-6 20:20:00
怎样使Ctrl-Alt-Delete无效？ 2003-11-6 20:19:25
如何移动没有标题栏的窗口？ 2003-11-6 20:17:30
延时函数 2003-11-6 20:16:53
让控件自适应屏幕分辨率 2003-10-18 9:58:33
键盘常用代码一览表 2003-10-17 19:54:02
重新定位链接表二步走 2003-10-17 19:00:07
ADO连接数据库字符串大全 2003-10-17 18:40:47
如何确定当前屏幕分辨率 2003-10-14 8:41:00
获取windows安装路径 2003-10-14 8:39:08
将 Microsoft Access 用作 Automation 服务器 2003-10-14 8:37:19
优化Microsoft Access提高速度 2003-10-6 10:31:55
|
