VB 全角文字の入力をエラーにする

全角文字の入力をエラーにする

Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating

    Dim LetterCount As Integer '文字数
    Dim ByteCount As Integer 'バイト数

    LetterCount = Len(TextBox1.Text)
    ByteCount = System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(TextBox1.Text)

    '文字数とバイト数が異なる場合は全角文字が含まれている
    If LetterCount <> ByteCount Then
        MsgBox("全角文字は入力できません。", MsgBoxStyle.Exclamation)
        e.Cancel = True
    End If

End Sub

メモ：入力チェックはOKボタンや保存ボタンが押されたタイミングで一括して行うことをお勧めします。