将文本转换为单一类型

Question

        Dim fontsize As Single = CSng(SynopsisTSCmbFontSize.Text)
        rtbSynopsis.Font = New Font(SynopsisTSCmbFonts.Text, fontsize)

要将字体大小更改为在组合框中选择的值，该值必须是 Single 类型。

组合框填充了在设计模式下输入的数字，范围为 7-78。我知道这些是作为字符串输入的。

错误是：

我尝试了很多方法来将文本（数字，没有字母）从组合框转换为单个，但都无济于事。尝试parse不行，trimming不行，先转INT或者DBL，再转SNG也不行。

此处正确的语法是什么？

我原以为更改字体大小是非常标准的事情。

Answer 1

我找到了一个解决方案：我没有在设计时填充组合框，而是在运行我可以完全控制类型的时候填充它。

    Dim i As Single
    For i = 5 To 70
        SynopsisTSCmbFontSize.Items.Add(i)
        TreatmentTSCmbFontSize.Items.Add(i)
    Next

一旦组合框被正确填充，我就可以运行没有错误的其余代码

谢谢大家的宝贵时间！

convert text to single type