檢查複選框狀態並在vb.net中使用下一個循環寫入複選框標籤

Question

我在vb 2008 express用戶窗體的groupbox中有幾個複選框。我想在點擊一個命令按鈕時檢查每一個的檢查狀態，然後寫下用於電子郵件或打印出來的複選框標題。我已經嘗試了幾種方法，並總是以「無效的轉換異常」結尾。我已閱讀msdn的幫助，但仍不明白如何使其工作。這是我一直在試圖

Dim chk As CheckBox 
    Dim sb As New System.Text.StringBuilder 
    Dim names As String 
    For Each chk In gbInterior.Controls 
     If chk.Checked Then 
      sb.Append(chk.Text) 
     End If 
    Next chk 
    names = sb.ToString(0, sb.Length - 32) 
    MsgBox(names) 

我也曾嘗試下面的代碼，但無法弄清楚如何檢查狀態和打印複選框標題的代碼。

Dim ctl As Control 
    For Each ctl In gbInterior.Controls 
    If TypeOf ctl Is CheckBox Then 
    MsgBox(ctl.Text & vbNewLine) 
    End If 
    Next ctl 

謝謝你的幫助。

Answer 1

If TypeOf ctl Is CheckBox AndAlso CType(ctl, CheckBox).Checked Then 
    MsgBox(CType(ctl, CheckBox).Text & vbNewLine) 
End If 

Answer 2

您的問題源於循環遍歷窗體上的所有控件，並嘗試將每個控件設置爲類型複選框的控件。複選框只是一種類型的控件，並且不能將按鈕投射到該控件中，所以這就是爲什麼你需要投射問題。

Dim ctrl As Control 
Dim sb As New System.Text.StringBuilder 
Dim names As String 
For Each ctrl In gbInterior.Controls 
    If TypeOf ctrl Is CheckBox andalso CType(ctrl, CheckBox).Checked Then 
     sb.Append(CType(ctrl, CheckBox).Text) 
    End If 
Next ctrl 
names = sb.ToString(0, sb.Length - 32) 
MsgBox(names) 

Answer 3

看起來你正在尋找的Checked財產上Control，不具有這樣的屬性。

嘗試聲明你的變量爲複選框，並通過控制類型篩選列表：

For Each chk As CheckBox In gbInterior.Controls.OfType(Of CheckBox)() 
    If chk.Checked Then 
    sb.Append(chk.Text) 
    End If 
Next