用戶在表單中輸入他們想要的內容。例如，在零食中，用戶想要 2 個漢堡，每個漢堡的價格為 160 - 以總價值顯示。
總價值：
然后，用戶改變了主意，決定他們想要 6 個漢堡而不是 2 個。單擊“下訂單”時，總價值仍然是 160。我希望當用戶更改輸入時該值會更新。我怎樣才能解決這個問題？
(VB.NET)
Public Class Formpreceipt
Dim party = Formrooms.txtparty.Text
Dim partyy As Double
Dim bday = Formrooms.txtbday.Text
Dim bdayy As Double
Dim vip = Formrooms.txtvip.Text
Dim vipp As Double
Dim deluxe = Formrooms.txtdeluxe.Text
Dim deluxee As Double
Dim fries = Formsnacks.txtfries.Text
Dim friess As Double
Dim burger = Formsnacks.txtburger.Text
Dim burgerr As Double
Dim cupcake = Formsnacks.txtcupcake.Text
Dim cupcakee As Double
Dim pizza = Formsnacks.txtpizza.Text
Dim pizzaa As Double
Dim icedtea = Formdrinks.txticedtea.Text
Dim icedteaa As Double
Dim soda = Formdrinks.txtsoda.Text
Dim sodaa As Double
Dim soju = Formdrinks.txtsoju.Text
Dim sojuu As Double
Dim beer = Formdrinks.txtbeer.Text
Dim beerr As Double
Private Sub Formpreceipt_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnplaceorder.Click
partyy = party * 200
bdayy = bday * 300
vipp = vip * 400
deluxee = deluxe * 500
friess = fries * 40
burgerr = Val(burger) * 80
cupcakee = cupcake * 35
pizzaa = pizza * 150
icedteaa = icedtea * 20
sodaa = soda * 35
sojuu = soju * 80
beerr = beer * 100
txtotal.Text = "?" & Format(partyy bdayy vipp deluxee friess burgerr cupcakee pizzaa icedteaa sodaa sojuu beerr)
End Sub
End Class
uj5u.com熱心網友回復：
您的設計還有改進的余地，但根據 user9938 的建議，將分配移至按鈕的 Click() 事件。
改變：
partyy = party * 200
bdayy = bday * 300
vipp = vip * 400
deluxee = deluxe * 500
friess = fries * 40
burgerr = burger * 80
cupcakee = cupcake * 35
pizzaa = pizza * 150
icedteaa = icedtea * 20
sodaa = soda * 35
sojuu = soju * 80
beerr = beer * 100
到：
partyy = Formrooms.txtparty.Text * 200
bdayy = Formrooms.txtbday.Text * 300
vipp = Formrooms.txtvip.Text * 400
deluxee = Formrooms.txtdeluxe.Text * 500
friess = Formsnacks.txtfries.Text * 40
burgerr = Formsnacks.txtburger.Text * 80
cupcakee = Formsnacks.txtcupcake.Text * 35
pizzaa = Formsnacks.txtpizza.Text * 150
icedteaa = Formdrinks.txticedtea.Text * 20
sodaa = Formdrinks.txtsoda.Text * 35
sojuu = Formdrinks.txtsoju.Text * 80
beerr = Formdrinks.txtbeer.Text * 100
uj5u.com熱心網友回復：
如果我閱讀了您的代碼，Button1_Click首先burgherr = burger * 80
我建議您獲取變數 burger 的值，例如Val(burger) * 80
after than，在您的代碼中，我看不到您在哪里更新和使用總值...我希望您有類似的東西TextBoxTotalValue.Text = burgherr.ToString()
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/448300.html
標籤：VB.net
上一篇：PythonMD5函式到.Net