Public Class Inventory
Private Sub Inventory_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub totalresult_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles totalresult.Click
'dispaly input entered into txtCartons in lbltotalresult
Dim intCartons As Integer
Dim intitem As Integer
Dim intresult As Integer
intCartons = Val(txtCartons.Text)
intitem = Val(txtitem.Text)
intresult = intCartons * intitem
lbltotalresult.Text = intresult
'lbltotalresult.Text = Val(txtCartons.Text) * Val(txtitem.Text)
End Sub 'end butten
Private Sub txtCartons_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCartons.TextChanged
lbltotalresult.Text = "" ' clear output lable
End Sub
Private Sub txtitem_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtitem.TextChanged
lbltotalresult.Text = "" ' clear output lable
End Sub
End Class
VB.NET