Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

隐藏access程序窗口,隐藏之后仍然可以使用快捷菜单

时 间:2010-08-26 00:00:00
作 者:红尘如烟   ID:10768  城市:成都
摘 要:通过将窗口设为完全透明的方式隐藏Access程序窗口,隐藏之后仍然可以使用快捷菜单,注意所有窗体都必须设为弹出(可以不设为模式)

正 文:

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

'=======================================================================
'函数名称: HideAccessWindow
'功能描述: 隐藏Access程序窗口,隐藏之后仍然可以使用快捷菜单,注意隐藏之后要窗体要
'                      将“弹出”属性设为“是”才能正常打开
'输入参数: 参数1 Hidden 必需的,设为True隐藏,设为False取消隐藏
'返回参数: 无
'兼 容 性:
'使用示例: HideAccessWindow True
'相关调用: GetWindowLong() SetWindowLong() SetLayeredWindowAttributes()
'作        者: 红尘如烟
'创建日期: 2009-2-1 
'=======================================================================
Public Function HideAccessWindow(Hidden As Boolean)
On Error Resume Next
    Dim lngResult As Long
    If Hidden Then lngResult = GetWindowLong(hWndAccessApp, -20) or &H80000
    SetWindowLong hWndAccessApp, -20, lngResult
    SetLayeredWindowAttributes hWndAccessApp, 0, 0, &H2
End Function



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助