Office中国论坛/Access中国论坛

标题: 将Access弹出窗体加入到任务栏 [打印本页]
作者: 红尘如烟    时间: 2010-8-26 16:08
标题: 将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    时间: 2010-8-26 16:39
收藏
作者: lkkl66    时间: 2010-8-28 01:28
看来这个也要收藏！谢谢哦！
作者: lkkl66    时间: 2010-8-28 01:39
回复 红尘如烟 的帖子
将Access弹出窗体加入到任务栏－－不错！但实用性不广哦！

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

谢谢！

   
作者: xdcow    时间: 2012-5-6 00:06
编译时提示模块不是有效类型

需要引用什么组件？
作者: xdcow    时间: 2012-5-8 20:53
请问该如何调用这个函数呢
作者: xdcow    时间: 2012-5-8 21:14
或者请直接附个案例好么



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3