投稿日 | : 2007/01/05(Fri) 01:54 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^5: エラーが発見されたテキストボックスへのフォーカスの移動 |
下記のような感じにフラグを設定してできませんか?
Private ErrNo1TextBox As TextBox
--------------------------------------
If chk_flg = False Then
ChkTextBox = False
MsgBox "入力できない文字が存在します。再入力して下さい。"
ErrNo1TextBox.SetFocus
Exit Function
End If
End Function
Private Function ChkKinsokuChr(ByVal MyTextBox As TextBox) As Boolean
Dim I As Integer
ChkKinsokuChr = True
チェック処理
背景色の変更処理
If ErrNo1TextBox Is Nothing And ChkKinsokuChr = False Then
Set ErrNo1TextBox = MyTextBox
End If
etc
End Function