Office中国论坛/Access中国论坛

标题: 隐藏ACCESS主窗体的方法 [打印本页]

作者: admin 时间: 2004-5-20 22:58
标题: 隐藏ACCESS主窗体的方法
这是朱亦文以前做的隐藏ACCESS主窗体的方法:

先定义模块:

Option Compare Database

Option Explicit

Global Const SW_HIDE = 0

Global Const SW_SHOWNORMAL = 1

Global Const SW_SHOWMINIMIZED = 2

Global Const SW_SHOWMAXIMIZED = 3

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

然后在窗体里打开时调用:

fSetAccessWindow SW_HIDE

作者: fenglin 时间: 2006-6-4 17:10
在隐藏主窗体时除了新建一个模块加入上面这段代码外还要做什么，怎么调用fSetAccessWindow SW_HIDE啊,具体怎么做啊

作者: xlonger 时间: 2006-6-4 18:38
在启动窗体的open 事件代码中 fSetAccessWindow (SW_HIDE),试试。

trynew有个办法，不但ACCESS主窗体隐藏，连在任务栏上也不显示。论坛上有例子。

作者: zwcn 时间: 2006-8-23 05:16
谢谢！

作者: liyifeikafu 时间: 2008-8-13 14:43
我是菜鸟，能不能一步一步讲讲啊

作者: chaojianan 时间: 2009-10-31 12:11
谢谢分享。

作者: xmmrh 时间: 2009-11-8 17:58
sffsdfs

作者: 836680335 时间: 2010-1-13 16:23
DKLSASDGASDG

作者: WUJI00 时间: 2014-6-7 16:10
fgnjhcd

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)