繁体   English   中英

如何插入带有其他信息的消息框中的窗体中单击的单选按钮以及Visual Basics中的单选按钮?

How to Insert Radio button which is clicked in the form in a Message Box which has other information along with the Radio buttons in Visual Basics?

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我正在尝试显示具有标签,文本框和列表框以及单选按钮的消息框。 在我的消息框中,无论我选择哪种形式的信息,都应在消息框中获取该信息。 除了单选按钮,我可以获得所有信息。 请任何人告诉我如何编写代码,以在同一消息框中插入单选按钮单击的信息,该消息框中也包含其他信息。



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

问题暂未有回复.您可以查看右边的相关问题.
1 如果我们单击具有必填字段的单选按钮并单击另一个单选按钮并在该字段中填充值,如何使表单有效

我有一个工作正常的表单,但我面临一个问题,如果我单击客户端单选按钮,它将添加名为选择客户端的字段和下拉菜单,但我现在再次将单选按钮从客户端更改为供应商,它将显示供应商输入字段,我在其中输入值并继续,当我尝试提交表单时仍然被禁用,我发现了问题,但我无法找到确切的解决方案。问题是因为我点击了客户端单选按 ...

2020-04-20 07:27:21 1 33   angular
2 如何查看单击哪个单选按钮Jquery

我的页面上有一些单选按钮,供用户标记(下图)。 与单选按钮一起是一个“其他”按钮,其中有一个textarea以不同的原因写入。 我希望能够通过jquery提交表单时看到哪些按钮被按下。 我知道如何使用.post()但我不确定是否应该在单选按钮的每个id上使用.val()。 或者,是否有一 ...

3 如何检测单击了哪个单选按钮?

我正在使用Knockout JS在两个单选按钮之间切换。 这行得通,现在我想弄清楚单击“ yes/no时如何切换css类,以便显示/隐藏消息框。 自从我实施此功能已经有一段时间了,我还是Knockout的新手。 所以我有两个问题。 我看到我正在使用data-toggle=" ...

5 单击时提交表单的单选按钮集

我有一组10个单选按钮 (例如,在1到10的评分系统中),当您click一个click ,它们会自动提交评分。 这可以通过以下方式实现: 有没有办法做到这一点,需要更少的代码 ? 理想情况下,应该有某种方式使我不必重复 10次​​相同的onclick ,但这也许是最好的方式。 ...

6 如果表单有两个按钮,如何知道单击了哪个按钮

我有两种形式,一种具有登录名,另一种具有注销名,它们都使用相同的controller/form处理器,我正在使用 查看表单是否已提交。 但是我怎么知道是否单击了登录或注销。 和 不工作。 好的,这是完整的表格: 但是$test不会改变。 ...

2015-12-09 09:25:22 3 50   php/ forms
10 识别在Firebase数据库中单击了哪个单选按钮

因此,我创建了3个单选按钮,这些按钮已成功保存在Firebase数据库中。 但是,我无法在Firebase中标识保存了哪一个,因为它显示出已选择全部3个。 我如何更改代码或向其中添加一些内容以查看单击了哪个选项? 这是我在firebase数据库中看到的 HTML Java ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM