批量添加鼠标事件-name
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


批量添加鼠标事件

发表时间:2018/11/20 8:25:14 评论(0) 浏览(3662)  评论 | 加入收藏 | 复制
   
摘 要:批量添加鼠标事件
正 文:

一、问题描述:

      有使用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群(群号:198465573)
 
 相关文章
【Access示例】显示与隐藏鼠标光标  【缪炜  2013/9/13】
【Access示例】改变鼠标光标样式  【缪炜  2013/9/21】
无边框窗体鼠标拖动缩放示例  【落尘_小新  2014/1/3】
巧用鼠标滚轮递增(减)数值  【zhaoyoulong  2014/1/14】
屏蔽报表鼠标右键。  【蟹仔  2014/2/15】
【Access示例】快速设置鼠标左右键,设置鼠标右键为单击  【缪炜  2014/8/1】
常见问答
技术分类
相关资源
文章搜索
关于作者

name

文章分类

文章存档

友情链接