Question

一道VB程序设计题 设计可以变化字体字号的文件

题目：设计一个标签文字，字体和字号变化的窗体程序，字号使用水平滚动条控制，字体使用单选按钮控制，同时使用复选框设置相应的颜色。
急！！！

Answer 1

添加如下代码：
Private Sub Check1_Click()
Text1.FontUnderline = Not Text1.FontUnderline
End Sub
Private Sub Check2_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub
Private Sub Check3_Click()
Text1.FontBold = Not Text1.FontBold
End Sub
Private Sub Option1_Click()
Text1.FontName = "黑体"
End Sub
Private Sub Option2_Click()
Text1.FontName = "楷体_GB2312"
End Sub
Private Sub Option3_Click()
Text1.FontName = "隶书" '我的电脑没有隶书字体，所以调试时出错
End Sub
Private Sub Option4_Click()
Text1.FontSize = 12
End Sub
Private Sub Option5_Click()
Text1.FontSize = 16
End Sub
Private Sub Option6_Click()
Text1.FontSize = 20
End Sub