文字の判定について質問です

質問

Visual Basicについての質問です。

私は、"Textbox1"に"gakuban"で宣言した文字を入力すると、"Textbox2"に"simei"で宣言した名前を表示させ、それ以外の文字が入力されたらメッセージボックスで"違います"が表示されるプログラムを作りたいと思い、下のようなプログラムを組みました。しかしこれだと、"Textbox1"に文字を1文字入力するたびに"違います"のメッセージボックスが表示されてしまいます。これを直したいのですが、どのようにプログラムを直せばいいのか分かりません。なので、この下のプログラムをどう直せばいいのか教えていただけないでしょうか？

Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim gakuban() As String = {"H05001", "H05002", "H05004", "H06007", "H05009"}
Dim simei() = {"一郎", "次郎", "三郎", "四郎", "五郎"}
Dim i As Integer
i = (Array.IndexOf(gakuban, TextBox1.Text))
If i >= 0 Then
TextBox2.Text = simei(i)
Else
MessageBox.Show("違います")
End If
End Sub
End Class

回答No.2

redfox63 · ベストアンサー

TextBox1の入力文字が6文字未満の場合何もしないようにすればいいのでは
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
　　' 6文字未満ならExit Subで未処理にする
　　if TextBox1.Text.Length < 6 then Exit Sub
　　Dim gakuban() As String = {"H05001", "H05002", "H05004", "H06007", "H05009"}
　　Dim simei() = {"一郎", "次郎", "三郎", "四郎", "五郎"}
　　Dim i As Integer
　　i = (Array.IndexOf(gakuban, TextBox1.Text))
　　If i >= 0 Then
　　　　TextBox2.Text = simei(i)
　　Else
　　　　MessageBox.Show("違います")
　　End If
End Sub

回答No.1

winuser

長くなった・・・
if TextBox1.Text = "H05001" then
　　TextBox2.Text = "一郎"
else
　if TextBox1.Text = "H05002" then
　　　TextBox2.Text = "次郎"
　else
　　if TextBox1.Text = "H05004" then
　　　　TextBox2.Text = "三郎"
　　else
　　　if TextBox1.Text = "H06007" then
　　　　　TextBox2.Text = "四郎"
　　　else
　　　　if TextBox1.Text = "H05009" then
　　　　　　TextBox2.Text = "五郎"
　　　　else
　　　　　　MessageBox.Show("違います")
　　　　end if
　　　end if
　　end if
　end if
end if