Question

能不能帮忙用vb写一下啊 急求 谢谢了

Answer 1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()

        Dim checkedb As RadioButton

        ListBox1.Items.Add(ComboBox1.Text)

        checkedb = GroupBox1.Controls.OfType(Of RadioButton)().FirstOrDefault(Function(r) r.Checked = True)
        If Not IsNothing(checkedb) Then ListBox1.Items.Add(checkedb.Text)


        checkedb = GroupBox2.Controls.OfType(Of RadioButton)().FirstOrDefault(Function(r) r.Checked = True)
        If Not IsNothing(checkedb) Then ListBox1.Items.Add(checkedb.Text)

        If CheckBox1.Checked Then ListBox1.Items.Add(CheckBox1.Text)
        If CheckBox2.Checked Then ListBox1.Items.Add(CheckBox2.Text)
        If CheckBox3.Checked Then ListBox1.Items.Add(CheckBox3.Text)

    End Sub