| ■No94861 (お願いします さん) に返信
> 言語はVB.NETだと思います。
「メッセージボックス」ということは、Windows Forms アプリケーションでしょうか?
> ・実行ボタンを押すとチェックした個数をメッセージボックスで表示 （例：二つチェックした場合 → ”二つチェックしました。”）
2 ではなく 二 と表示したいのですね?
Private Sub 実行ボタン_Click(sender As Object, e As EventArgs) Handles 実行ボタン.Click
Dim boxes As CheckBox() = {CheckBox1, CheckBox2, CheckBox3}
Select Case boxes.Count(Function(c) c.Checked)
Case 0
Array.ForEach(boxes, Sub(c) c.Checked = True)
MsgBox("チェックされた", MsgBoxStyle.Information)
Case 1
MsgBox("一つチェックしました。", MsgBoxStyle.Information)
Case 2
MsgBox("二つチェックしました。", MsgBoxStyle.Information)
Case 3
Array.ForEach(boxes, Sub(c) c.Checked = False)
MsgBox("解除された", MsgBoxStyle.Information)
End Select
End Sub |