VB.NETで入力データの数値入力チェック処理を実装してみた
グレープシティの部品などを使っていない開発環境では、画面の入力情報のチェック処理を自分で組み込む必要があります。
ということで、作ってみました。
テキストボックスからフォーカスが外れたタイミングでチェックできるようにValidatingに記述。
空白かどうかチェックした後、IsNumericで判定してみました。
ただ、IsNumericだと全角の数値も数値という判定になりました。
そこでDBへ登録するときにSQLでTO_SINGLE_BYTEを使って半角にする対応をいれました。
VB.NETでも出来そうな気がするけど(笑)
‘入力データの数値入力チェック
Private Sub TextBox1_Validating(ByVal sender As Object
, ByVal e As System .ComponentModel.CancelEventArgs
) Handles TextBox1.Validating
Private Sub TextBox1_Validating(ByVal sender As Object
, ByVal e As System .ComponentModel.CancelEventArgs
) Handles TextBox1.Validating
If TextBox1.Text <> “” Then
If IsNumeric(TextBox1.Text) = False Then
e.Cancel = True
MessageBox.Show(“数値以外が入力されています。”
, “エラー”
, MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
End Sub
