C# と VB.NET の質問掲示板

当方VB.NETにてつくっています。XP SP3です。VWDを使用しています。
チェックボックスが何個かあるページなのですが、もし「2個以上」にチェックがついている場合、メッセージを表示したいのですがどのように書いたらいいのでしょうか？
        'チェックボックスが有効になっているかチェックしたい・・・
        Dim chkFlg(4) As Boolean
        Dim chkNone As Boolean

        chkFlg(0) = CheckBox1.Checked
        chkFlg(1) = CheckBox2.Checked
        chkFlg(2) = CheckBox3.Checked
        chkFlg(3) = CheckBox4.Checked
        chkFlg(4) = CheckBox5.Checked

■No49797 (透明高速 さん) に返信

変数を用意して足していくと良いのではないでしょうか。

Dim checkedCount As Integer = 0

If CheckBox1.Checked = True Then
  checkedCount += 1
End If

If CheckBox2.Checked = True Then
  checkedCount += 1
End If

...

If 2 <= checkedCount Then
  ' メッセージ表示
End If

■No49797 (透明高速 さん) に返信
> 当方VB.NETにてつくっています。XP SP3です。VWDを使用しています。
> チェックボックスが何個かあるページなのですが、もし「2個以上」にチェックがついている場合、
> メッセージを表示したいのですがどのように書いたらいいのでしょうか？
>         'チェックボックスが有効になっているかチェックしたい・・・
>         Dim chkFlg(4) As Boolean
>         Dim chkNone As Boolean
> 
>         chkFlg(0) = CheckBox1.Checked
>         chkFlg(1) = CheckBox2.Checked
>         chkFlg(2) = CheckBox3.Checked
>         chkFlg(3) = CheckBox4.Checked
>         chkFlg(4) = CheckBox5.Checked

ここまでできているのであれば、素朴にループを使って数えてみたり、

    Dim count As Integer = 0
    For Each flag As Boolean In chkFlg
        If flag Then count += 1
    Next

    If count >= 2 Then
        ' ...
    End If

VWD 2008 以降であれば、LINQ を使ってみたり。

    If chkFlg.Count(Function(flag As Boolean) flag) >= 2 Then
        ' ...
    End If

-----
※引用文に改行を追加した。