FontSyles?

Private Sub FontChange()
Dim font_style As FontStyle = FontStyle.Regular

If ckbBold.Checked Then font_style = FontStyle.Bold
If ckbItalic.Checked Then font_style = FontStyle.Italic
If ckbUnderline.Checked Then font_style = FontStyle.Underline
If ckbStrike.Checked Then font_style = FontStyle.Strikeout

' Get the font size.
Dim font_size As Single = 10
Try
font_size = Single.Parse(cmbSize.SelectedItem)
Catch ex As Exception
End Try

' Get the font family name.
Dim family_name As String = "Times New Roman"
If Not (lstbxFonts.SelectedItem Is Nothing) Then
family_name = lstbxFonts.SelectedItem.ToString
End If

' Make the new font.
Dim new_font As New Font(family_name, font_size, font_style)

' Show the Changed font.
txtShow.Font = new_font
End Sub

Whoisit at 2007-8-30 >

Thanks for that.

Whoisit at 2007-8-30 >

C#

this.theTextBox.Font = new Font(this.theTextBox.Font, FontStyle.Bold | FontStyle.Underline);

ahmedilyas at 2007-8-30 >