VBプログラマ質問スレ（6.0以前） Part52

VBプログラマ質問スレ（6.0以前） Part52 at TECH

236:231
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

次ページ

続きを表示

1を表示