diff options
| -rw-r--r-- | VB.Net Projects/Bookstore/Bookstore/Form1.vb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/VB.Net Projects/Bookstore/Bookstore/Form1.vb b/VB.Net Projects/Bookstore/Bookstore/Form1.vb index dd8f7ba..56cadb4 100644 --- a/VB.Net Projects/Bookstore/Bookstore/Form1.vb +++ b/VB.Net Projects/Bookstore/Bookstore/Form1.vb @@ -32,7 +32,6 @@ Public Class Form1 MsgBox("Книгата е добавена!", MsgBoxStyle.DefaultButton1, "Успех!")
End Sub
-
Private Sub btnReport_Click(sender As Object, e As EventArgs) Handles btnReport.Click
If cbReport.SelectedItem Is Nothing Then
Return
@@ -93,6 +92,7 @@ Public Class Form1 Purchases.Clear()
txtAmountToBuy.ResetText()
End Sub
+
Private Sub UpdateSum(sender As Object, e As EventArgs) Handles btnPurchase.Click, btnClearPurchases.Click, btnLoad.Click, MyBase.Load
lblSum.Text = FormatCurrency(Purchases.Sum(Function(p) p.ItemPrice * p.Amount), 2)
End Sub
|
