0
我希望用戶能夠檢查僅5複選框,然後如果他們嘗試檢查超過5或者其他選中框將被禁用或會彈出一個消息框,提示「您只能選擇5個座位」。然後,如果用戶取消選中1個框,則禁用複選框將再次啓用。
我希望用戶能夠檢查僅5複選框,然後如果他們嘗試檢查超過5或者其他選中框將被禁用或會彈出一個消息框,提示「您只能選擇5個座位」。然後,如果用戶取消選中1個框,則禁用複選框將再次啓用。
你需要做的是有一個變量,檢查複選框的計數:
Private cbChecked As Integer = 0
然後,對於所有的複選框CheckedChanged
事件創建一個處理程序,像這樣:
Private Sub CheckBoxes_CheckedChanged(sender As Object, e As EventArgs)
Handles CheckBox1.CheckedChanged, CheckBox2.CheckedChanged ...
Dim cb As CheckBox = TryCast(sender, CheckBox)
If cb.Checked Then
cbChecked += 1
Else
cbChecked -= 1
End If
If cbChecked = 5 Then
For Each cbx As CheckBox In Me.Controls.OfType(Of CheckBox)
If Not cbx.Checked Then
cbx.Enabled = False
End If
Next
Else
For Each cbx As CheckBox In Me.Controls.OfType(Of CheckBox)
cbx.Enabled = True
Next
End If
End Sub
這可以讓你知道該怎麼做。
我會嘗試。謝謝你的提示。我會告訴你,如果我做到了。 – Joshua