《 Visual basic程序设计》精品课程电子教案 Labell Fontsize =10 Labell ForeColor bRed End sub Private Sub Checkl Click If Check Value 1 Then abell. Font bold true Labe ll Font Bold False End if End sub Private Sub Check2 Click O If Check2 Value =1 Then Labell. fontitalic true Labell. Fontitalic False End if End sub Private Sub Optionl Click Labell Fontsize =10 End sub
《Visual Basic 程序设计》精品课程电子教案 6 Label1.FontSize = 10 Label1.ForeColor = vbRed End Sub Private Sub Check1_Click() If Check1.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub Option1_Click() Label1.FontSize = 10 End Sub
《 Visual basic程序设计》精品课程电子教案 Private Sub Option2 Click O Labell Fontsize =20 Private Sub Option 3 Click Labell ForeColor vbRed Sub Option Click O Labell Fore Color vbGreen End sub IV.保存程序 保存程序 运行程序 行程序,界面如图4-4。 a Form1 字型设置 大小 颜色 字形 C10号 粗体 20号 C绿色 v下划线 图4-4程序运行结果 六、小结
《Visual Basic 程序设计》精品课程电子教案 7 Private Sub Option2_Click() Label1.FontSize = 20 End Sub Private Sub Option3_Click() Label1.ForeColor = vbRed End Sub Private Sub Option4_Click() Label1.ForeColor = vbGreen End Sub IV.保存程序 保存程序。 V.运行程序 运行程序，界面如图 4-4。 图 4-4 程序运行结果 六、小结
《 Visual basic程序设计》精品课程电子教案 学会使用 Frame、 Option、 CheckBox编写程序 五、作业 PI114.2
《Visual Basic 程序设计》精品课程电子教案 8 学会使用 Frame、Option、CheckBox 编写程序。 五、作业 P111 4.2