get font from combobox and apply it to richtextbox (vb.net)

Question

I am building a word pad clone with extra a few extra features. I am trying to get two combo boxes (one with font names, the other with font sizes) to apply their selected attribute to the selected text in a richtextbox. This was my latest attempt, and I think I'm starting to get close, but I still get an error for InvalidCastException - Conversion from string "" to type 'Integer' is not valid.

Private Sub FontToolStripComboBox_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles FontToolStripComboBox.DropDownClosed
    Dim ComboFonts As System.Drawing.Font
    ComboFonts = Pad.SelectionFont
    Pad.SelectionFont = New System.Drawing.Font(ComboFonts.Name(FontToolStripComboBox.SelectedText), Font.Size, Font.Style) '<--- this line is giving the exception for the FontToolStripComboBox.SelectedText entry'
    End Sub

I can't figure out how to use the string in the combobox with the font name to actually change the font to that name.

Answer 1

replace this

FontToolStripComboBox.SelectedText

with this

FontToolStripComboBox.text

Edit: because SelectedText means the text that is selected in the editable portion of a ComboBox check SelectedText at MSDN

Edit:

try replacing:

 Pad.SelectionFont = New System.Drawing.Font(ComboFonts.Name(FontToolStripComboBox.SelectedText), Font.Size, Font.Style)

with:

Pad.SelectionFont = New System.Drawing.Font(FontToolStripComboBox.Text, Font.Size, Font.Style)

Answer 2

Try this. The DropDownClosed event leaves you one font behind all the time. Also, you should assign the size and style somewhere. (Maybe this is already being done outside your function?)

Private Sub FontToolStripComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles FontToolStripComboBox.SelectedIndexChanged
  Dim ComboFonts As System.Drawing.Font
  ComboFonts = pad.SelectionFont
  pad.SelectionFont = New System.Drawing.Font(FontToolStripComboBox.Text, pad.SelectionFont.Size, pad.SelectionFont.Style)
End Sub