理解窗體事件的觸發順序

tmtony

不記得哪里的例子了. 可測試事件發生的先后,對理解事件觸發挺有好處
可將Me改為 forms("你的窗體名") 測試任何窗體

    Function setEvent()
        Dim p As Property
        For Each p In Me.Properties
            If Left(p.Name, 2) = "On" _
             Or Left(p.Name, 5) = "After" _
             Or Left(p.Name, 6) = "Before" Then
                p.Value = "=msgbox('" & p.Name & "')"
            End If
        Next p
    End Function


    Function resumeEvent()
        Dim p As Property
        For Each p In Me.Properties
            If Left(p.Name, 2) = "On" _
             Or Left(p.Name, 5) = "After" _
             Or Left(p.Name, 6) = "Before" Then
                p.Value = ""
            End If
        Next p
    End Function

andymark

一目了然

LucasLynn

可以试下EDF，示例程序中就有这个，通过Debug打印，包含所有事件参数。

zhuyiwen

最怕遇到MouseMove事件。

修改一下：

Function setEvent(ByRef frm As Form) As Integer
    On Error Resume Next
    Dim p As Property
    For Each p In frm.Properties
        If Left(p.Name, 2) = "On" _
         Or Left(p.Name, 5) = "After" _
         Or Left(p.Name, 6) = "Before" Then
            p.Value = "=msgbox('" & p.Name & "')"
        End If
    Next p
End Function