Question

VISUAL BASIC| URGENT!| For this situation I need an app that provides a TextBox in which the user can type text. Allow the user to select TimesNewRoman, Arial or Courier New from a ComboBox. Provide a Bold CheckBox, which, if checked, makes the text bold. Include Increase Font Size and Decrease Font Size Buttons that allow the user to scale the size of the font up or down, respectively, by one point at a time. Start with a font size of 18 points. For the purposes of this exercise, set the font size on the ComboBox, Buttons and CheckBox to 20 points so that a person with low vision will be able to read the text on them. I need this by today 3/8/2020 by 8pm, PLEASE HELP!!

Answer 1

I have wrote the following snippet and tested it myself. I hope it helps:-

Form1.vb

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.CenterToScreen()
ComboBox2.Items.Add("8")
ComboBox2.Items.Add("9")
ComboBox2.Items.Add("10")
ComboBox2.Items.Add("11")
ComboBox2.Items.Add("12")
ComboBox2.Items.Add("14")
ComboBox2.Items.Add("16")
ComboBox2.Items.Add("18")
ComboBox2.Items.Add("20")
ComboBox2.Items.Add("22")
ComboBox2.Items.Add("24")
ComboBox2.Items.Add("26")
ComboBox2.Items.Add("28")
ComboBox2.Items.Add("36")
ComboBox2.Items.Add("48")
ComboBox2.Items.Add("72")
ComboBox2.SelectedItem = "18"
RichTextBox1.Font = New Font(RichTextBox1.Font.FontFamily, 18, FontStyle.Regular)
ComboBox1.Items.Add("Times New Roman")
ComboBox1.Items.Add("Arial")
ComboBox1.Items.Add("Courier New")
ComboBox1.SelectedItem = "Times New Roman"
RichTextBox1.Font = New Font("Times New Roman", 18, FontStyle.Regular)

End Sub

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

If CheckBox1.Checked = True Then

RichTextBox1.Font = New Font(RichTextBox1.Font.FontFamily, Integer.Parse(ComboBox2.Text), FontStyle.Bold)

End If

If CheckBox1.Checked = False Then

RichTextBox1.Font = New Font(RichTextBox1.Font.FontFamily, Integer.Parse(ComboBox2.Text), FontStyle.Regular)

End If

End Sub

Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

End Sub

Private Sub ComboBox1_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

Dim varFontLang As String

varFontLang = ComboBox1.Text
If varFontLang = "Times New Roman" Then
If CheckBox1.Checked = True Then

RichTextBox1.Font = New Font("Times New Roman", Integer.Parse(ComboBox2.Text), FontStyle.Bold)

End If

If CheckBox1.Checked = False Then

RichTextBox1.Font = New Font("Times New Roman", Integer.Parse(ComboBox2.Text), FontStyle.Regular)

End If

End If

If varFontLang = "Courier New" Then

If CheckBox1.Checked = True Then

RichTextBox1.Font = New Font("Courier New", Integer.Parse(ComboBox2.Text), FontStyle.Bold)

End If

If CheckBox1.Checked = False Then

RichTextBox1.Font = New Font("Courier New", Integer.Parse(ComboBox2.Text), FontStyle.Regular)

End If

End If

If varFontLang = "Arial" Then

If CheckBox1.Checked = True Then

RichTextBox1.Font = New Font("Arial", Integer.Parse(ComboBox2.Text), FontStyle.Bold)

End If

If CheckBox1.Checked = False Then

RichTextBox1.Font = New Font("Arial", Integer.Parse(ComboBox2.Text), FontStyle.Regular)

End If

End If

End Sub

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

If CheckBox1.Checked = True Then

RichTextBox1.Font = New Font(RichTextBox1.Font.FontFamily, Integer.Parse(ComboBox2.Text), FontStyle.Bold)

End If

If CheckBox1.Checked = False Then

RichTextBox1.Font = New Font(RichTextBox1.Font.FontFamily, Integer.Parse(ComboBox2.Text), FontStyle.Regular)

End If

End Sub
End Class

Place the material at design time inside Form1 with name as :-

RichTextBox1

CheckBox1

ComboBox1

ComboBox2

Don' forget to set the font size to 20points while design time. You can set that under design properties->Appearance of combo box and checkbox.