Question

用VB编制一个设置文字字体的程序怎么设置？主要用到的工具箱里的哪些东西？

Answer 1

用VB编制一个设置文字字体的程序主要用到的工具箱里的OptionButton 控件对显示字体文本控件的Fnot属性进行设置。用ComboBox 控件或ListBox控件设置显示字体及它的尺寸。

1. OptionButton 控件，OptionButton 控件显示一个可以打开或者关闭的选项。

2. ComboBox 控件，组合框控件将文本框和列表框的功能结合在一起。有了这个控件，用户可通过在组合框中输入文本来选定项目，也可从列表中选定项目。

3. 组合框的样式

   此处有三种组合框样式。每种样式都可在设计时或运行时来设置，而且每种样式都使用数值或相应的 Visual Basic
   常数来设置组合框的样式。

   

4. Font 属性，返回一个 Font 对象。

5. 为了标识一个具体的要使用其属性的 Font 对象应使用一个对象的 Font 属性。例如，下面的代码将改变一个 Font
   对象的 Bold 属性设置，该Font 对象被 TextBox 对象的 Font
   属性所标识：

   txtFirstName.Font.Bold = True
   

Answer 2

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text
End Sub
Private Sub Combo2_Click()
Text1.FontSize = Val(Combo2.Text)
End Sub
Private Sub Form_Load()
Combo1.AddItem "宋体"
Combo1.AddItem "黑体"
Combo1.AddItem "楷体_GB2312"
Combo1.Text = "宋体"
For i = 12 To 72 Step 2
Combo2.AddItem Str(i)
Next i
Combo2.Text = "12"
End Sub