0

12 個のチェックボックス (年の月を含む) を持つグループボックスがあります。値を計算してテキスト ボックスに表示する必要があります。

たとえば、1 つのチェック ボックスをオンにして [計算] ボタンをクリックすると、テキスト ボックスに値 500 を表示できるはずです。2 つのチェック ボックスをオンにすると合計は 1000 になり、3 つのチェック ボックスをオンにすると合計は 1500 になります。等々

私はこのように始めました

    Dim counter As Integer = 0
    counter = counter + 500

かなり長い間、これについて頭を悩ませてきました:(

4

2 に答える 2

0

グループボックス内のすべてのチェックボックスを調べるためのforループを持つことができます

'Initialize the total value
Dim Total As Integer = 0

'Loop all controls in the group box
For Each ctrl As Control In GroupBox1.Controls

    'Only calculate if the control is a check box
    If TypeName(ctrl) = "CheckBox" Then

        'Validate if the checkbox is checked
        If CType(ctrl, CheckBox).Checked Then

            'Add 500 for each checked checkbox
            Total += 500
        End If

    End If

Next

TextBox1.Text = Total.ToString
于 2012-05-09T05:40:24.047 に答える