From cb5056f4f0efb8bb9f5a4f56c6a673e5766b3a99 Mon Sep 17 00:00:00 2001 From: Kamen Mladenov Date: Tue, 9 Mar 2021 12:59:36 +0200 Subject: Fixed row spacing --- VB.Net Projects/Bookstore/Bookstore/Form1.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'VB.Net Projects') 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 -- cgit v1.2.3