批量添加鼠标事件
时 间:2018-11-20 08:25:14
作 者:伊西军 ID:63090 城市:临汾
摘 要:批量添加鼠标事件
正 文:
一、问题描述:
有使用Access快速开发平台的朋友说:生成的模块主窗体的按钮没有生成鼠标按下、鼠标释放和鼠标移动事件(鼠标经过按钮时候光标会变成手型),正常情况下应该自动添加上的,虽然不影响功能但是总觉得不够完善,这里提供给大家一个方法供参考使用。
二、源码示例:
'复制下面的代码到任意模块中 然后按F5运行即可 Function SetBtnHandCursor() Dim ctrl As Control Dim frm As Object Dim strWhere As Boolean Dim btnStr As String btnStr = "btnAdd" _ & "btnCopyToNew" _ & "btnEdit" _ & "btnDelete" _ & "btnPrintPreview" _ & "btnPrint" _ & "btnImport" _ & "btnExport" _ & "btnAudit" _ & "btnUndoAudit" _ & "btnRefresh" _ & "btnClose" For Each frm In CurrentProject.AllForms '筛选窗体:以 "frm" 开头 窗体名称不包含 "_List" 窗体名称不包含"_Edit" 窗体名称不是以"Sys"开头(Sys开头的是平台的窗体,不建议自己设计的窗体以这个命名) strWhere = ((frm.Name Like "frm*") And (frm.Name Like "*_List*") = False And (frm.Name Like "*_Edit*") = False And (frm.Name Like "Sys*") = False And (frm.Name Like "*_*") = False) If strWhere Then 'Debug.Print frm.Name DoCmd.OpenForm frm.Name, acDesign, , , , acHidden For Each ctrl In Forms(frm.Name).Controls If btnStr Like "*" & ctrl.Name & "*" Then 'Debug.Print frm.Name & " " & ctrl.Name Forms(frm.Name).Controls(ctrl.Name).OnMouseDown = "=SetHandCursor()" Forms(frm.Name).Controls(ctrl.Name).OnMouseUp = "=SetHandCursor()" Forms(frm.Name).Controls(ctrl.Name).OnMouseMove = "=SetHandCursor()" End If Next DoCmd.Close acForm, frm.Name, acSaveYes End If Next MsgBox "添加完成!" 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精华集锦资料.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)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)