如何使用复选框将标记的值重置为之前的值VB

Question

我试图在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％。

Answer 1

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

Answer 2

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

私人小组chkInsurance_CheckedChanged （发送者为对象，例如作为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