随笔- 7 文章- 3 评论- 1 阅读- 1858

12 2023 档案

摘要：类模块代码如下： '类模块Cmds的代码 Option Explicit Public WithEvents testx As msforms.CommandButton '增加点击事件 Private Sub testx_Click() MsgBox "测试" End Sub 窗体代码如下： Op 阅读全文

posted @ 2023-12-11 11:20 color_bar 阅读(49) 评论(0) 推荐(0) 编辑

access 类对象使用

摘要：类模块代码如下： Option Explicit '定义按钮对象和onclick 触发内容 Private WithEvents m_Closebtn As Access.CommandButton Const fEvents As String = "[Event Procedure]" '定义触阅读全文

posted @ 2023-12-11 10:44 color_bar 阅读(28) 评论(0) 推荐(0) 编辑