Halaman

Rabu, 04 April 2012

Menggunakan Checkbox pada VB2010

Checkbox merupakan objek control yang sangat berguna pada VB2010. Checkbox memungkinkan user untuk memilih 1 atau lebih pilihan dengan meng-klik pilihan tersebut.

Contoh1:
Masukkan 1 buah label, 6 buah checkbox dan 1 buah button ke dalam form, kemudian ketikkan code berikut:


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const LX As Integer = 100
        Const BN As Integer = 500
        Const SD As Integer = 200
        Const HD As Integer = 80
        Const HM As Integer = 300
        Const AM As Integer = 150
        Dim sum As Integer
        If CheckBox1.Checked = True Then
            sum += LX
        End If
        If CheckBox2.Checked = True Then
            sum += BN
        End If
        If CheckBox3.Checked = True Then
            sum += SD
        End If
        If CheckBox4.Checked = True Then
            sum += HD
        End If
        If CheckBox5.Checked = True Then
            sum += HM
        End If
        If CheckBox6.Checked = True Then
            sum += AM
        End If
        Label1.Text = sum.ToString("c")
    End Sub
End Class
Contoh2:
Masukkan 3 buah checkbox dan 1 buah textbox ke dalam form, kemudian ketik code berikut:


Public Class Form1

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked Then
            TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Bold)
        Else
            TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Bold)
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked Then
            TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Italic)
        Else
            TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Italic)
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox2.Checked Then
            TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style Or FontStyle.Underline)
        Else
            TextBox1.Font = New Font(TextBox1.Font, TextBox1.Font.Style And Not FontStyle.Underline)

        End If
    End Sub

End Class
untuk mendapatkan file pdf-nya, klik download

1 komentar: