excel 类模块的使用

类模块代码如下：

'类模块Cmds的代码
Option Explicit
Public WithEvents testx As msforms.CommandButton
'增加点击事件
Private Sub testx_Click()
    
    MsgBox "测试"
          
End Sub

 

窗体代码如下：

Option Explicit
Dim myc As New mycmd

Private Sub UserForm_Initialize()
    Set myc.testx = UserForm1.CommandButton1
End Sub
Private Sub UserForm_Terminate()
    Set myc = Nothing
End Sub

 

以上代码和access的类模块代码功能一致，但是实现方法略有区别