使用复选框 VB 更改标签后，如何将标签的值重置为以前的值答案

【问题标题】：How do i reset the value of a lablel to the previous value, after changing it with a checkbox VB使用复选框 VB 更改标签后，如何将标签的值重置为以前的值
【发布时间】：2014-12-08 04:03:36
【问题描述】：

我试图在检查 chkInsurence 时为每位乘客添加 10% 的保险，并且在未检查时将其返回到相同的值。这是我的代码

Private Sub chkInsurance_CheckedChanged(sender As Object, e As EventArgs) Handles chkInsurance.CheckedChanged
    If chkInsurance.Checked Then
        price += CDec(price * 0.1) * nudPassengers.Value
    Else
        price -= CDec(price * 0.1) * nudPassengers.Value
    End If
    lblPrice.Text = price.ToString("C")
End Sub

当 Else 运行时，它会占用当前值的 10% 并减去该值，而不是原始值的 10%。

【问题讨论】：

nudPassengers.Value.ToString??
不要修改price，而是声明另一个变量TotalCost?

标签： vb.net checkbox

【解决方案1】：

您可以将价格标签的值存储在变量中，当用户取消选中时，将存储的值分配给标签

【讨论】：

【解决方案2】：

我修改了另一个变量，而不是 Idle_Mind 建议的价格，谢谢

Private Sub chkInsurance_CheckedChanged(sender As Object, e As EventArgs) 句柄 chkInsurance.CheckedChanged

    Dim insurenceTotal As Decimal
    If chkInsurance.Checked Then
        insurenceTotal = CDec(price + (price * 0.1) * nudPassengers.Value)
        lblPrice.Text = insurenceTotal.ToString("C")
    Else
        lblPrice.Text = price.ToString("C")
    End If
End Sub

【讨论】：