...続き
インデントが無くて読みにくいため、半角スペース２つを全角スペースに置き換えてみました。
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles TextBox1.TextChanged
Static strBstr As String '前の文字列を覚えている
Static intPos As Integer '前のキャレットの位置を覚えている
Static boolFlg '文字修正時の再突入を防ぐフラグ
If boolFlg Then
Return
End If
boolFlg = True
'TextBox1.Text(i)でi番目の一文字を取り出します。
'TextBox1.Text(i)は配列でなくインデクサというプロパティです。
For i As Integer = 0 To TextBox1.Text.Length - 1
If (TextBox1.Text(i) < "0"c Or TextBox1.Text(i) > "9"c) _
And (TextBox1.Text(i) < "a"c Or TextBox1.Text(i) > "z"c) _
And (TextBox1.Text(i) < "A"c Or TextBox1.Text(i) > "Z"c) Then
'入力文字が想定外
MessageBox.Show("入力文字が違います")
TextBox1.Text = strBstr '前の文字に戻す
TextBox1.SelectionStart = intPos '前の位置に戻す
boolFlg = False
Return
End If
Next
strBstr = TextBox1.Text '文字列を記憶
intPos = TextBox1.SelectionStart 'キャレットの位置を記憶
boolFlg = False
End Sub
