CheckBox

Memberikan nilai pada saat Checkbox dicentang dan mengurangi nilai total pada saat Checkbox tidak dicentang.

Contoh Code:

Public Class frmSelectItem

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

        If CheckBox1.Checked = True Then

            lblTotal.Text += 1000

        ElseIf CheckBox1.Checked = False Then

            lblTotal.Text -= 1000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

        If CheckBox2.Checked = True Then

            lblTotal.Text += 2000

        ElseIf CheckBox2.Checked = False Then

            lblTotal.Text -= 2000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

        If CheckBox3.Checked = True Then

            lblTotal.Text += 3000

        ElseIf CheckBox3.Checked = False Then

            lblTotal.Text -= 3000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

        If CheckBox4.Checked = True Then

            lblTotal.Text += 4000

        ElseIf CheckBox4.Checked = False Then

            lblTotal.Text -= 4000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged

        If CheckBox5.Checked = True Then

            lblTotal.Text += 5000

        ElseIf CheckBox5.Checked = False Then

            lblTotal.Text -= 5000

        Else

            lblTotal.Text = lblTotal.Text

        End If

    End Sub

End Class