将access弹出窗体加入到任务栏
时 间:2010-08-25 17:36:53
作 者:红尘如烟 ID:10768 城市:成都
摘 要:正常情况下,一般窗体可以在Access系统环境设置中来设置是否在任务栏中显示打开的窗体,但如果将窗体设为弹出之后就不能在任务栏显示了,这里通过调用API函数实现将Access弹出窗体加入到任务栏
正 文:
正常情况下,一般窗体可以在Access系统环境设置中来设置是否在任务栏中显示打开的窗体,但如果将窗体设为弹出之后就不能在任务栏显示了,这里通过调用API函数实现将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 '=================================================================== '函数名称: AddPopupFormToTaskbar '功能描述: 将Access弹出窗体加入到任务栏 '输入参数: 参数1 PopupForm 必需的,弹出窗体对象 '返回参数: 无 '兼 容 性: '使用示例: AddPopupFormToTaskbar Me '相关调用: GetWindowLong() SetWindowLong() '作 者: 红尘如烟 '创建日期: 2009-4-20 '=================================================================== Public Function AddPopupFormToTaskbar(PopupForm As Form) SetWindowLong PopupForm.hwnd, -20, GetWindowLong(PopupForm.hwnd, -20) or &H40000 End Function |
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)