使用组合框

现在的任务在菜单中增加一个组合框，用以改变当前字体的字号。

设计步骤

1、在功能组中加入一个组合框，名称设为“FontSize”，内容设为“9”。
2、在列表项目集合增加9个标准按钮，按钮的标题分别为： 8、9、10、11、12、14、16、18、20。
3、将组合框的ChangeCommitted事件设置为：

Dim fnt As Font = CurrentTable.Font
Dim Size As Integer
'尝试将组合框的内容转换为整数,成功则将字体大小设为此整数
If Integer.TryParse(e.ComboBox.Text, Size) Then
    CurrentTable.Font = New Font(fnt.Name, Size, Fnt.Style)
End If

ComboBox是组合框事件e参数的唯一属性，表示触发事件的组合框，Text属性表示组合框中输入的内容。
有关事件和属性，我们会在菜单编程篇介绍。

下图就是我们的设计结果，既可以手工输入字号，也可以通过下拉列表来选择字号：