如何在具有其他信息的消息框中的表單中插入單擊的單選按鈕以及 Visual Basics 中的單選按鈕？

Question

我正在嘗試顯示具有標簽、文本框和列表框以及單選按鈕的消息框。 在我的消息框中，無論我在表單中選擇什么信息，我都應該在消息框中獲取該信息。 我可以獲得除單選按鈕之外的所有信息。 請任何人告訴我如何編寫代碼以在同一個消息框中插入單選按鈕單擊的信息，該消息框中也有其他信息。

Public Class Form1
    Const Pizza_Price As Double = 2.99
    Const Fries_Price As Double = 1.99
    Const Drinks_Price As Double = 0.99

    Private Sub Btn1_Click(sender As Object, e As EventArgs) Handles Btn1.Click
        Dim Total As Double




        If IsNumeric(txtPizza.Text) And IsNumeric(txtFries.Text) And IsNumeric(txtDrinks.Text) Then
            Total = Calculate()
            DisplayBill(Total)

        Else



            MsgBox("Incorrect data Entered")

        End If

    End Sub

    Public Function Calculate() As Double

        Dim Total As Double
        Dim pizza_quantity As Integer = txtPizza.Text
        Dim fries_quantity As Integer = txtFries.Text
        Dim drinks_quantity As Integer = txtDrinks.Text

        Total = (Pizza_Price * pizza_quantity) + (Fries_Price * fries_quantity) + (Drinks_Price * drinks_quantity)

        Return Total

    End Function

    Public Sub DisplayBill(Total As Double)

        ListboxDisplay.Items.Add("Item            Price           Quantity")
        ListboxDisplay.Items.Add("Pizza            " + FormatCurrency(Pizza_Price, 2) + "               " + txtPizza.Text + "                   ")
        ListboxDisplay.Items.Add("Fries             " + FormatCurrency(Fries_Price, 2) + "               " + txtFries.Text + "                 ")
        ListboxDisplay.Items.Add("Drinks          " + FormatCurrency(Drinks_Price, 2) + "               " + txtDrinks.Text + "                  ")
        ListboxDisplay.Items.Add("                                                                                    ")
        ListboxDisplay.Items.Add("Total Sales                    " + FormatCurrency(Total, 2))
        LBox.Items.Add("Total Sales:    " + FormatCurrency(Total, 2))


    End Sub




    Private Sub Btn3_Click(sender As Object, e As EventArgs) Handles Btn3.Click
        MessageBox.Show("Order Details:" & vbNewLine &
                        "Number of Pizzas:" & txtPizza.Text & " " & vbNewLine &
                      "Number of Fries Ordered:" & txtFries.Text & " " & vbNewLine &
                         "Number of Drimks Ordered:" & txtDrinks.Text & " " & vbNewLine &
                          LBox.Items(0).ToString & vbNewLine & "Order Type:" & vbNewLine & Radio1.ToString Or Radio2.ToString)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Btn4_Click(sender As Object, e As EventArgs) Handles Btn4.Click
        txtPizza.Clear()
        txtFries.Clear()
        txtDrinks.Clear()

        ListboxDisplay.Items.Clear()
        LBox.Items.Clear()

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Radio1_CheckedChanged(sender As Object, e As EventArgs) Handles Radio1.CheckedChanged

        If Radio1.Checked = True Then

        Else
            Radio1.Visible = False
        End If
    End Sub

End Class