07/06/17 12:39:24
>>235
こんな感じ
'---- クラスモジュール 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