'---- クラスモジュール CInputOrderValidator ---- Private mInputCount As Integer Private mValidInputOrder() As eInput Private mInivalidInputEntered As Boolean Public Event ValidationFinished(result As eValidationResult)
Public Enum eState Initial = 0 DuringInput = 1 ValidationFinished = 2 End Enum
Public Enum eInput Button1 = 1 Button2 = 2 Button3 = 3 End Enum
Public Enum eValidationResult Indeterminate = 0 Invalid = 1 Valid = 2 End Enum
Private Sub Class_Initialize() mValidInputOrder = GetDefaultValidInputOrder() Me.Reset End Sub
