问：如何隐藏ACCESS主窗口？

大豆

大侠：请问如何隐藏ACCESS主窗口？

rjacky

方法一：使用工具设置，百度一下可以找出一堆，如Access管理工具v2.3；
方法二：点击"工具"菜单－－选择"启动"－－选择启动数据库时自动启动的窗体，并将所有勾去掉。(如果要连基本的文件菜单也一起隐藏，就在你所选择的启动窗体的加载(load)事件，加入代码: Application.CommandBars.ActiveMenuBar.Enabled = False)

Sam38

学习楼上的方法

陈大林

我看楼上理解1楼的意思有误,这样的问题好解决,在论谈上找吧!或者和我联系吧!qq:563800240

红尘如烟

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwflags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1

Sub setMidTransparency(myFrm As Form)
    Dim rtn As Long
    rtn = GetWindowLong(myFrm.hWnd, GWL_EXSTYLE)
    rtn = rtn Or WS_EX_LAYERED
    SetWindowLong myFrm.hWnd, GWL_EXSTYLE, rtn
    SetLayeredWindowAttributes myFrm.hWnd, 0, 200, LWA_COLORKEY
End Sub



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

xlonger

我也做过一个类似程序。http://www.office-cn.net/forum.php?mod=viewthread&tid=51756&replyID=&skin=1

[此贴子已经被作者于2007-2-16 11:16:04编辑过]

一点通

最简单的方法

http://www.office-cn.net/forum.php?mod=viewthread&tid=36185&replyID=&skin=1

lxing20

谢谢,还没测试成功.

阿六爱狗

刚看到有人说更改快捷方式的属性改为最小化就可以了

dddd042821

学习了