VB中的单选按钮和复选框

Question

我遇到的问题是：

我有 3 个分组框。在第一个组框中，我有 3 个单选按钮选项，其值为 1,1.50,1，在第二个组框中，我还有 3 个单选按钮，其值几乎相同。在 groupbox 3 中，我有 7 个复选框，所有复选框都有值，还有一个小计框、税框和税款总计。

问题是当用户从每个组框中选择哪个变量将用于存储小计中的数据时。

Private Sub btnTotal_Click(sender As Object, e As EventArgs) Handles btnTotal.Click

    tax = 0.07
    If rd1.Checked = True Then
        pan &= "1.00"
    End If
    If rd2.Checked = True Then
        bread &= "1.50"
    End If
    If rd3.Checked = True Then
        softdrink &= "0.85"
    End If
    If checkbox1.Checked = True Then
        ingredients &= "0.50"
        subtotal = ?
        subtotalTxtBox.Text = subtotal
        taxTxtBox.Text = tax
        total = subtotal * tax
        totalTxtBox.Text = subtotal + total

Answer 1

下面是一个快速示例，展示了如何从每个 GroupBox 中获取选定的 RadioButton：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim rb1 As RadioButton = GetSelectedRadioButton(GroupBox1)
    Dim rb2 As RadioButton = GetSelectedRadioButton(GroupBox2)
    Dim rb3 As RadioButton = GetSelectedRadioButton(GroupBox3)

    If Not IsNothing(rb1) Then
        Debug.Print(rb1.Text)
    End If
    If Not IsNothing(rb2) Then
        Debug.Print(rb2.Text)
    End If
    If Not IsNothing(rb3) Then
        Debug.Print(rb3.Text)
    End If
End Sub

Private Function GetSelectedRadioButton(ByVal gb As GroupBox) As RadioButton
    Return gb.Controls.OfType(Of RadioButton).Where(Function(x)
                                                        Return x.Checked
                                                    End Function).FirstOrDefault
End Function