[VB.NET] Font Property pada visual basic

Mencoba berlatih untuk membuat font property semisal  untuk mengubah huruf menjadi tebal, italic, atau underline seperti contoh yang terlihat pada gambar berikut ini semisal kita memberikan nama teks yang akan ditampilkan dan diubah untuk memberikan font properti untuk penambahan tersebut sudah ada yang disediakan dalam checkbox atau juga bila ingin merubah warna pada teks yang ditampilkan bisa melalui RadioButton berikut contohnya ,

Font Property pada visual basic

Desain Form

program untuk mengatur Font Property pada visual basic

Komponen yang dibutuhkan

• TextBox
• Button
• RadioButton
• CheckBox
• Label

Untuk code program bisa dilihat dibawah ini

Public Class Form1

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

Label1.ForeColor = Color.Red

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = TextBox1.Text

End Sub

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

Label1.ForeColor = Color.Green

End Sub

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

Label1.ForeColor = Color.Blue

End Sub

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

Label1.ForeColor = Color.Black

End Sub

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

If CheckBox1.Checked Then

Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Italic)

Else

Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Italic)

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

Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Bold)

Else

Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Bold)

End If

End Sub

Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged

If CheckBox3.Checked Then

Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Strikeout)

Else

Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Strikeout)

End If

End Sub

Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged

If CheckBox4.Checked Then

Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Underline)

Else

Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Underline)

End If

End Sub

End Class