VBA类模块从零入门实例1：创建河南老乡

ROBERTCHENTPE

兰色梦想 河南老乡！！！您好！！！
Excel VBA: 请教 Frame Exit 类模块的创建类方法 ？？
我在 Frame Click 类模块 创建类方法 成功执行事件
但是改成 Frame Exit 类模块的创建类 却不起作用


'''USERFORM 宣告
Dim FrameAclass(1 To 16) As 类FrameA

Private Sub UserForm_Initialize()
    For i = 1 To 16
        Set FrameAclass(i) = New 类FrameA
        ii = Format(i, "00")
        Set FrameAclass(i).FrameA = controls("FrameA" & ii)
        Set FrameAclass(i).FrameAfrm = Me
    Next
End Sub
  
'''类模块
Public WithEvents FrameA As MSForms.Frame
Public WithEvents FrameAfrm As MSForms.UserForm

Private Sub FrameA_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Index As Long
    Index = Val(Mid(FrameA.Name, 7, 2))
    If Index <= 16 Then
        CODENO = Format(Index, "00")
        FrameX = FrameAfrm.controls("FrameA" & CODENO).Name
        Call UserForm1.COMMONFrameX_Exit(FrameX)
    End If
End Sub

guolishan8

謝謝LZ

xiaofei1989

类模块和模块有什么联系？

ks331

感谢楼主的分享,学习。

ks331

谢谢分享   

ZhOUZhu

学习