巨獸 逆襲

Public Class Form1
    Private Sub txtQtyL_TextChanged(sender As Object, e As EventArgs) Handles txtQtyL.TextChanged
        If txtQtyL.Text <> "" Then
            lblSumL.Text = CInt(txtQtyL.Text * 250)
        End If
    End Sub

    Private Sub txtQtyQ_TextChanged(sender As Object, e As EventArgs) Handles txtQtyS.TextChanged
        If txtQtyS.Text <> "" Then
            lblSumS.Text = CInt(txtQtyS.Text * 150)
        End If

    End Sub

    Private Sub CB1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CB1.SelectedIndexChanged
        lblSumL.Text = CInt(CB1.Text * 250)
    End Sub

    Private Sub CB2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CB2.SelectedIndexChanged
        lblSumS.Text = CInt(CB2.Text * 150)
        lblTotal.Text = CInt(lblSumL.Text) + CInt(lblSumS.Text)
    End Sub
End Class