隐藏ACCESS主窗体的方法

admin

这是朱亦文以前做的隐藏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

在隐藏主窗体时除了新建一个模块加入上面这段代码外还要做什么，怎么调用fSetAccessWindow SW_HIDE啊,具体怎么做啊

xlonger

在 启动窗体的open 事件代码中 fSetAccessWindow (SW_HIDE),试试。



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

zwcn

谢谢！

liyifeikafu

我是菜鸟，能不能一步一步讲讲啊

chaojianan

谢谢分享。

xmmrh

sffsdfs

836680335

DKLSASDGASDG

WUJI00

fgnjhcd