将Access弹出窗体加入到任务栏

红尘如烟

正常情况下，一般窗体可以在Access系统环境设置中来设置是否在任务栏中显示打开的窗体，但如果将窗体设为弹出之后就不能在任务栏显示了，这里通过调用API函数实现将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. '===================================================================
   
4. '函数名称： AddPopupFormToTaskbar
   
5. '功能描述： 将Access弹出窗体加入到任务栏
   
6. '输入参数： 参数1 PopupForm 必需的，弹出窗体对象
   
7. '返回参数： 无
   
8. '兼 容 性：
   
9. '使用示例： AddPopupFormToTaskbar Me
   
10. '相关调用： GetWindowLong() SetWindowLong()
    
11. '作    者： 红尘如烟
    
12. '创建日期： 2009-4-20  
    
13. '===================================================================
    
14. Public Function AddPopupFormToTaskbar(PopupForm As Form)
    
15.     SetWindowLong PopupForm.hwnd, -20, GetWindowLong(PopupForm.hwnd, -20) or &H40000
    
16. End Function

复制代码

asklove

收藏

lkkl66

看来这个也要收藏！谢谢哦！

lkkl66

回复 红尘如烟 的帖子
将Access弹出窗体加入到任务栏－－不错！但实用性不广哦！

将Access弹出窗体－－最小化后－－－放入托盘函数！实用性要强些！版主研究一个给大家！！！

谢谢！

   

xdcow

编译时提示模块不是有效类型

需要引用什么组件？

xdcow

请问该如何调用这个函数呢

xdcow

或者请直接附个案例好么