Implementasi CheckBox dan RadioButton Pada Visual Basic .Net

Untuk membangun aplikasi tentulah Anda harus memahami dasarnya dulu, ChekBox ya artinya pilihan yang multiple dan RadioButton pilih salah satu. Kegunaannya untuk input data tanpa menginput maksudnya hanya memilih misalkan untu ChekBox digunakan untuk Hobby sedangkan untuk RadioButton untuk jenis kelamin masih banyak lagi dapat dikembangkan. Silahkan Anda Rancang seperti Form berikut

Kemudian silahkan tambahkan kode program

Public Class Form1 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbStrikeOut.CheckedChanged lblTulis.Font = New Font("Microsoft Sans Serif", _ lblTulis.Font.Size, _ lblTulis.Font.Style Xor FontStyle.Strikeout) End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbUnderline.CheckedChanged lblTulis.Font = New Font("Microsoft Sans Serif", _ lblTulis.Font.Size, _ lblTulis.Font.Style Xor FontStyle.Underline) End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbReguler.CheckedChanged lblTulis.Font = New Font("Microsoft Sans Serif", _ lblTulis.Font.Size, lblTulis.Font.Style Xor FontStyle.Regular) End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbItalic.CheckedChanged lblTulis.Font = New Font("Microsoft Sans Serif", _ lblTulis.Font.Size, lblTulis.Font.Style Xor FontStyle.Italic) End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbBold.CheckedChanged lblTulis.Font = New Font("Microsoft Sans Serif", _ lblTulis.Font.Size, lblTulis.Font.Style Xor FontStyle.Bold) End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbBoldItalic.CheckedChanged lblTulis.Font = New Font("Microsoft Sans Serif", _ lblTulis.Font.Size, _ lblTulis.Font.Style Xor _ FontStyle.Bold Xor FontStyle.Italic) End Sub End Class