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


http://kodevb.wordpress.com/