[表示 : 全て 最新50 1-99 101- 201- 2chのread.cgiへ]
Update time : 06/03 14:56 / Filesize : 85 KB / Number-of Response : 296
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

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

239 名前：231 mailto:sage [2007/06/17(日) 12:43:38 ]
'---- Form1 ----
Private WithEvents mValidator As CInputOrderValidator

Private Sub Form_Load()
Set mValidator = New CInputOrderValidator
End Sub

Private Sub Command1_Click()
　　mValidator.SetNextInput (Button1)
End Sub

Private Sub Command2_Click()
　　mValidator.SetNextInput (Button2)
End Sub

Private Sub Command3_Click()
　　mValidator.SetNextInput (Button3)
End Sub

Private Sub mValidator_ValidationFinished(result As eValidationResult)
　　If result = Valid Then
　　　　MsgBox ("OK !")
　　Else
　　　　MsgBox ("NG !")
　　End If
　　mValidator.Reset
End Sub




[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（*・∀・）＜85KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef