vb.net RichTextBox中，如何对字体字号不一样的文字设置统一的字号和字体？

[boghda]

vb.net RichTextBox中可以使用combox控件，里面设好10，20，30，40........当用户选择相应的值时，richtextbox中的字体大小size变为选择的值的大小。
如果选择的文本的字体、字号都是一样，通过下面的代码可以实现，但是选择文本中如果有字体、字号不一样的文字，每次到这出现错误，无法继续运行。
RichTextBox1.SelectionFont = New Font(Me.RichTextBox1.SelectionFont.Name, Val(Me.gongjulan_zihao.SelectedItem))
麻烦，朋友们给点建议，最好是几行代码，谢谢

[水哥阿乐]

贴出调试中出错部分的运行代码和调试中出错提示

[weixin_41801583]

遇到同样困难了，同时选中两种字体，再设置新字体时不能操作。

[qq_37140682]

https://zhidao.baidu.com/question/152645956.html

[奇奇怪怪的键盘侠]

不知道你是不是要这个

  Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        RichTextBox1.SelectionFont = New Font("Arial", CType(ComboBox1.Text, Integer), FontStyle.Bold)
    End Sub