Question

I am really getting out of control with this small problem and unable to rectify it?

Can anyone help me in this!

Here is my code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim installed_fonts As New InstalledFontCollection
    lstFont.Items.Clear()
    For Each font_family As FontFamily In installed_fonts.Families
        lstFont.Items.Add(font_family.Name)
    Next font_family
    lstFont.SelectedIndex = 0
End Sub

 Private Sub txtSize_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSize.TextChanged, chkBold.Click, chkItalic.Click, chkUnderline.Click, chkStrikeout.Click, lstFont.SelectedIndexChanged
        ShowSample()
    End Sub

Private Sub ShowSample()

' Compose the font style.
Dim font_style As FontStyle = FontStyle.Regular
If Bold.Checked Then font_style = font_style Or FontStyle.Bold
If Italic.Checked Then font_style = font_style Or FontStyle.Italic
If Underline.Checked Then font_style = font_style Or FontStyle.Underline


' Get the font size.
Dim font_size As Single = 8
Try
    font_size = Single.Parse(DropFontSize.SelectedValue)
Catch ex As Exception
End Try

' Get the font family name.
Dim family_name As String = DropFont.SelectedIndex.ToString
If Not (DropFont.SelectedItem Is Nothing) Then
    family_name = DropFont.SelectedItem.ToString
End If
' Make the new font.
Dim new_font As New Font( _
    family_name, font_size, font_style)

' Set the sample's font.
TextBox1.Font.Name = new_font.Name
TextBox1.Font.Size = font_size
TextBox1.Font.Bold = Bold.Checked
TextBox1.Font.Italic = Italic.Checked
TextBox1.Font.Underline = Underline.Checked

End Sub

I am getting as Property font is read-only and I have tried many snippets to get rid of this problem but none worked!

Answer 1

you have to set like below, WebControl.Font Property is read only

Private Sub ShowSample()
    .....
    Dim new_font As New Font( _
        family_name, font_size, font_style)

    ' Set the sample's font.
    txtSample.Font.Name = new_font.Name
    txtSample.Font.Size = Font.Size
    txtSample.Font.Bold = chkBold.Checked
    txtSample.Font.Italic = chkItalic.Checked
    txtSample.Font.Underline = chkUnderline.Checked
    txtSample.Font.Strikeout= chkStrikeout.Checked

End Sub