判斷GroupBox內的控制項選取

Question

小弟目前用一個GroupBox把16個checkbox放進去，16個至少要選1個，
現在我要判斷如果16個都沒選取，就顯示訊息題是要勾選

我該如何去寫....

If Me.GroupBox1 Then

            MessageBox.Show("請選擇測試頻道", "訊息")
            Exit Sub
        End If

使用VS2008

Answer 1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim chkFlag = False
        For Each ctl As Control In Me.GroupBox1.Controls
            If TypeOf (ctl) Is CheckBox Then
                Dim rb As CheckBox = CType(ctl, CheckBox)
                If rb.Checked = True Then
                    chkFlag = True
                    Exit For
                End If
            End If
        Next
        If chkFlag = False Then  ' 如果16個都沒選取，就顯示提醒勾選訊息然後exit sub
            MessageBox.Show("請選擇測試頻道", "測試")
            Exit Sub
        End If

        '如果其中一個有選(甚至多選)，就通過判定繼續執行下面動作
        MessageBox.Show("你要做的事情")
    End Sub

Answer 2

hi
嘗試看看

Dim checked As Boolean = False
        For Each MyControl As Control In Me.GroupBox1.Controls
            If TypeOf MyControl Is CheckBox And CType(MyControl, CheckBox).Checked Then
                checked = True
                Exit For
            End If
        Next
        If (checked <> True) Then
            MessageBox.Show("請選擇測試頻道", "訊息")
        End If

---

http://www.dotblogs.com.tw/ricochen/Default.aspx

Answer 3

多謝小歐OU，不過我的問題比較趨近於，如果16個都沒選取，就顯示提醒勾選訊息然後exit sub
如果其中一個有選(甚至多選)，就通過判定繼續執行下面動作

Answer 4

..........一樣的意思啊

以小歐ou大大的程式來看
你只要判斷chkFlag ，false就顯示提醒勾選訊息然後exit sub

Answer 5

Hi,

小歐的程式已經點出了16個都沒選

或是16個中有被點選的狀態

您只要以此類推變通一下就好吧

像這樣

      Dim chkFlag = False
        For Each ctl As Control In Me.GroupBox1.Controls
            If TypeOf (ctl) Is CheckBox Then
                Dim rb As CheckBox = CType(ctl, CheckBox)
                If rb.Checked Then
                    chkFlag = True
                End If
            End If
        Next
        If not chkFlag Then
            MessageBox.Show("請選擇測試頻道", "訊息")
            Return
        End If
        ...DoSomeThing...

大家提供給您的提示並不一定會完全照你需求開的做 

要自己體會

---

謙卑學習，持之以恆，才能不斷的Level Up http://www.dotblogs.com.tw/larrynung/

Answer 6

多謝2位高手指導!小弟有測試出來了!~3Q