设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 6543|回复: 15
打印 上一主题 下一主题

[其它] 问:如何隐藏ACCESS主窗口?

[复制链接]
跳转到指定楼层
1#
发表于 2007-2-15 06:41:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
大侠:请问如何隐藏ACCESS主窗口?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2007-2-15 08:06:00 | 只看该作者
方法一:使用工具设置,百度一下可以找出一堆,如Access管理工具v2.3;
方法二:点击"工具"菜单--选择"启动"--选择启动数据库时自动启动的窗体,并将所有勾去掉。(如果要连基本的文件菜单也一起隐藏,就在你所选择的启动窗体的加载(load)事件,加入代码: Application.CommandBars.ActiveMenuBar.Enabled = False)
3#
发表于 2007-2-15 17:53:00 | 只看该作者
学习楼上的方法
4#
发表于 2007-2-16 00:13:00 | 只看该作者
我看楼上理解1楼的意思有误,这样的问题好解决,在论谈上找吧!或者和我联系吧!qq:563800240
5#
发表于 2007-2-16 02:06:00 | 只看该作者
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
6#
发表于 2007-2-16 19:14:00 | 只看该作者
我也做过一个类似程序。http://www.office-cn.net/forum.php?mod=viewthread&tid=51756&replyID=&skin=1

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

7#
发表于 2007-2-16 19:27:00 | 只看该作者
8#
发表于 2009-4-2 11:42:35 | 只看该作者
谢谢,还没测试成功.
9#
发表于 2009-4-2 16:41:56 | 只看该作者
刚看到有人说更改快捷方式的属性改为最小化就可以了
10#
发表于 2009-6-12 09:06:50 | 只看该作者
学习了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-17 21:51 , Processed in 0.085803 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表