VB2008EEのチェックボックスにて、
VB2008EEのチェックボックスにて、
9個のチェックボックスをオン/オフで9個のテキストボックスに文字を表示/非表示させる場合、
一旦チェックをオンにすると値が入ったままになって、オフにしても表示されてしまうため
チェックがオフのものはボタン1クリックで空にしています。
1～9まであるのですが、1～4までは機能しているのですが、5～9が機能しません。
1～4にチェックが入っていると下記は実行されません。
5～9にチェックが入っていても下記が実行されてしまいます。
（実際は各番号）
↓
If CheckBox5.CheckState = CheckState.Unchecked Then
layp5 = ""
End If
なぜ4までと5からで動作が変わるのでしょうか？
--------------------------------------------------------------
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
layp1 = "1"
End Sub
'実際は2～8も記述あり
Private Sub CheckBox9_CheckedChanged(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
layp9 = "9"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal eAsSystem.EventArgs) Handles Button1.Click
If CheckBox1.CheckState = CheckState.Unchecked Then
layp1 = ""
End If
'実際は2～8も記述あり
If CheckBox9.CheckState = CheckState.Unchecked Then
layp9 = ""
End If
If (layp1 = "1") Then
TextBox1.Text = "aaaaa"
End If
If (layp2 = "2") Then
TextBox2.Text = "bbbbb"
End If
If (layp3 = "3") Then
TextBox3.Text = "ccccc"
End If
If (layp4 = "4") Then
TextBox4.Text = "ddddd"
End If
If (layp5 = "5") Then
TextBox5.Text = "eeeee"
End If
If (layp6 = "6") Then
TextBox6.Text = "fffff"
End If
If (layp7 = "7") Then
TextBox7.Text = "ggggg"
End If
If (layp8 = "8") Then
TextBox8.Text = "hhhhh"
End If
If (laypca = "9") Then
TextBox9.Text = "iiiii"
End If
End Sub
