Question

如何用vb option控件数组编写各种字体之间变换的程序

Text1.Font = Option1.Caption
End Sub
Private Sub Option2_Click()
Text1.Font = Option2.Caption
End Sub
Private Sub Option3_Click()
Text1.Font = Option3.Caption
End Sub

Answer 1

1 创建option控件
2 复制并粘贴这个option控件，提示创建数组选是，再重复一次
3 修改option的caption属性，比如，option1(0)的caption改为宋体，option1(1)的caption改为隶书，option1(2)的caption改为黑体，并修改option1(0)的value属性为true
4 添加文本框text1
5 加入代码
Private Sub Option1_Click(Index As Integer)
Text1.Font = Option1(Index).Caption
End Sub