VB中的单选按钮和复选框

时间:2015-10-17 01:10:31

标签: vb.net

我遇到的问题是:

我有3个组合框。在第一组框中,我有3个单选按钮选项,值为1,1.50,1,在第二组框中,我有3个单选按钮,几乎具有相同的值。在groupbox 3中,我有7个复选框,所有复选框都包含值和一个小计框,税箱以及含税的总计。

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

FormData.prototype.append = function(name,value) {};
FormData = {};

1 个答案:

答案 0 :(得分:0)

这是一个快速示例,展示了如何从每个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