ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

Visual Basic 中学校 > VB.NET サンプル > System.Windows.Forms.TextBox >

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

VB.NET2002対応 VB.NET2003対応 VB2005対応

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ボタンや保存ボタンが押されたタイミングで一括して行うことをお勧めします。