CONTOH PENGGUNAAN CHECKBOX DAN RADIO BUTTON PADA VB.NET 2008

1. Buat project baru
2. Desain tampilan form seperti gambar dibawah ini :

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form1	Name Text	Form1 CheckBox dan RadioButton
Label1	Name	Lbl_Font
	Autosize BorderStyle Font TextAlign Text	False Fixed3D Microsoft Sans Serif, 16 Center CheckBox dan RadioButton
GroupBox1	Text	Efek
GroupBox2	Text	Font Style
CheckBox1	Text	StrikeOut
CheckBox2	Text	Underline
RadioButton1	Text	Regular
RadioButton2	Text	Italic
RadioButton3	Text	Bold
RadioButton4	Text	BoldItalic

4.  Klik ganda pada CheckBox1, kemudian ketikkan kode program berikut ini :

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _

    Lbl_Font.Font.Style Xor FontStyle.Strikeout)

End Sub

5.  Klik ganda pada CheckBox2, kemudian ketikkan kode program berikut ini :

Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged

    Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _

   Lbl_Font.Font.Style Xor FontStyle.Underline)

End Sub

6.   Klik ganda pada RadioButton1, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _

    Lbl_Font.Font.Style Xor FontStyle.Regular)

End Sub

7.  Klik ganda pada RadioButton2, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    Lbl_Font.Font = New Font("Microsoft sans Serif", Lbl_Font.Font.Size, _

    Lbl_Font.Font.Style Xor FontStyle.Italic)

End Sub

8.  Klik ganda pada RadioButton3, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged

    

    Lbl_Font.Font = New Font("Microsoft sans Serif", _

    Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold)

End Sub

9.  Klik ganda pada RadioButton4, kemudian ketikkan kode program berikut ini :

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged

     Lbl_Font.Font = New Font("Microsoft sans Serif", _

     Lbl_Font.Font.Size, Lbl_Font.Font.Style Xor FontStyle.Bold Xor 

     FontStyle.Italic)

End Sub

10. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
      toolbar, atau melalui menu Debug > Start Debuging.
11. Simpan aplikasi Anda.

Hasilnya akan terlihat seperti gambar dibawah ini :

Untuk mendownload projectnya klik disini