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

回答No.1

1050 円（@1050YEN） · ベストアンサー

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 CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
↑重要なのは
Handles CheckBox4.CheckedChanged
という部分です。
Handles CheckBox5.CheckedChanged
に変更すると、CheckBox5の変更時にCheckBox4_CheckedChangedが実行されます。

CheckBox5以降のハンドリングさせている関数の、「Handles」以降がどのようになっているかが気になります。
（質問内容では省略されているため）

※余談
似たようなコントロールが多数ある場合、一つの関数に複数のコントロールのイベントを流し込むと、コードが簡略化できます。
http://dobon.net/vb/dotnet/control/buttonarray.html

お礼

チェックボックスの配置が2列で半時計周りになっているのに、
値を入れいている順番が↓↓になっていました。
これで右側の5～9の列が正しく動作していなかったようです。
お騒がせしました、すみません。

初めにアドバイス頂いた余談の方法も勉強して試してみます。
ありがとうございました。

補足

文字制限の為に、同じ記述の繰り返しなので省略しました。
Handles CheckBox5.CheckedChanged
5の所は5になっています。

> 5～9にチェックが入っていても下記が実行されてしまいます。

If CheckBox5.CheckState = CheckState.Unchecked Then
layp5 = "5"
End If

チェックボックス5にチェックを入れて上記の記述をすると、テキストが表示されます。
1～4はチェックが無いときに実行されます。

回答No.2

1050 円（@1050YEN）

省略されているところを復元してやってみたのですが、そちらが言う状況が再現しません。

省略部分のコードに原因があるようなきがしてならないのですが。。。

試しに以下のコードを実行したらどうなるか教えてもらえませんか？

現在のそちらで利用されている2メソッド
Private Sub Button1_Click(
Private Sub CheckBox1～9_CheckedChanged(
をコメントアウト

↓ここ以降を追加
Dim layps(8) As String

Private Sub CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged, CheckBox6.CheckedChanged, CheckBox7.CheckedChanged, CheckBox8.CheckedChanged, CheckBox9.CheckedChanged
　　Dim l_chk As CheckBox = DirectCast(sender, CheckBox)

　　Dim l_int As Integer = Integer.Parse(l_chk.Name.Substring(l_chk.Name.Length - 1))
　　layps(l_int - 1) = l_int
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　For i As Integer = 1 To layps.Length
　　　　Dim l_chk As CheckBox = Me.Controls("CheckBox" + i.ToString())
　　　　If Not l_chk.Checked Then
　　　　　　layps(i - 1) = ""
　　　　End If
　　Next

　　For i As Integer = 1 To layps.Length
　　　　Dim l_txt As TextBox = Me.Controls("TextBox" + i.ToString())
　　　　If layps(i - 1) = i.ToString() Then
　　　　　　l_txt.Text = New String(Chr(Asc("a") + i - 1), 5)
　　　　End If
　　Next
End Sub