[Zuhare]

الطريقه منقوله

PHP كود :

Public Class Form1

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
        calc()
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox1.CheckedChanged
        calc()
    End Sub
    Private Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox2.CheckedChanged
        calc()
    End Sub
    Private Sub CheckBox3_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CheckBox3.CheckedChanged
        calc()
    End Sub

    Private Sub calc()

        Dim t1 As Double = Val(TextBox1.Text)

        Dim t2 As Double = 0
        If CheckBox1.Checked Then t2 += Val(CheckBox1.Text)
        If CheckBox2.Checked Then t2 += Val(CheckBox2.Text)
        If CheckBox3.Checked Then t2 += Val(CheckBox3.Text)
        TextBox2.Text = t2.ToString("0.00")

        Dim t3 As Double = t1 + t2
        TextBox3.Text = t3.ToString("0.00")

    End Sub

End Class