2014-12-07 49 views
0

我试图在chkInsurence被选中时为每位乘客添加10%的保险,并且当它被取消选中时将它恢复为相同值。这里是我的代码如何使用复选框将标记的值重置为之前的值VB

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%。

+0

'nudPassengers.Value.ToString' ?? – Plutonix 2014-12-07 17:00:52

+0

不是修改'price',而是声明另一个名为'TotalCost'的变量? – 2014-12-07 18:10:30

回答

0

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

0

我修改,而不是价格像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 
相关问题