如何使用複選框將標記的值重置爲之前的值VB

我試圖在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％。

來源

2014-12-07 O McGraw

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

不是修改'price'，而是聲明另一個名爲'TotalCost'的變量？ – 2014-12-07 18:10:30

可能價格標籤的值存儲在變量中，當用戶取消選中，儲值分配給標籤

來源

2014-12-07 17:09:44

我修改，而不是價格像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

來源

2014-12-07 20:03:36

如何使用複選框將標記的值重置爲之前的值VB

回答

相關問題