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

红尘如烟

通过将窗口设为完全透明的方式隐藏Access程序窗口，隐藏之后仍然可以使用快捷菜单，注意所有窗体都必须设为弹出（不用将模式属性设为是）

1. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
2. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
   
3. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
   
4. 
   
5. '=======================================================================
   
6. '函数名称： HideAccessWindow
   
7. '功能描述： 隐藏Access程序窗口，隐藏之后仍然可以使用快捷菜单，注意隐藏之后要窗体要
   
8. ' 将“弹出”属性设为“是”才能正常打开
   
9. '输入参数： 参数1 Hidden 必需的，设为True隐藏，设为False取消隐藏
   
10. '返回参数： 无
    
11. '兼 容 性：
    
12. '使用示例： HideAccessWindow True
    
13. '相关调用： GetWindowLong() SetWindowLong() SetLayeredWindowAttributes()
    
14. '作 者： 红尘如烟
    
15. '创建日期： 2009-2-1
    
16. '=======================================================================
    
17. Public Function HideAccessWindow(Hidden As Boolean)
    
18.     On Error Resume Next
    
19.     Dim lngResult As Long
    
20.     If Hidden Then lngResult = GetWindowLong(hWndAccessApp, -20) or &H80000
    
21.     SetWindowLong hWndAccessApp, -20, lngResult
    
22.     SetLayeredWindowAttributes hWndAccessApp, 0, 0, &H2
    
23. End Function
    

复制代码

asklove

这个好，收藏

tmtony

这个方法不错, 可解决我遇到的一个问题

lkkl66

这个也收下！谢谢！

lkkl66

已经用上！谢谢！
好阿！