第四课百变文字..docVIP

第 四 课 百变文字 课 题 授课时间 课 型 课时安排 教 学 目 标 知识与技能： 过程与方法： 情感态度与价值观：激发学生对信息技术课的兴趣，培养学生互相协作的精神。教学重点 教学难点 教学准备 教学方法 学法指导 教 学 过 程 一、导入新课：复 备 二、教学新课 Private Sub OptSize12_Click() TxtInput.FontSize = 12 设置字号为12号字 End Sub Private Sub OptSize24_Click() TxtInput.FontSize = 24 设置字号为24号字 End Sub （5）完善“百变文字”程序运行界面，再添加效果“下划线”和“删除线”功能。 分析：在窗体中添加框架，在框架中创建两个复选框。 对象的属性设置表和代码见创作天地。 （6）为“百变文字”增加设置字体颜色的功能。 分析： 为文本设置颜色需要单选按钮。 ①设计用户界面。 在窗体中添加框架，在框架中创建三个单选按钮。 ②设置对象属性 设置其属性如下表。 对象 属性名 属性值 属性说明 Frame1（框架1） 名称 FraYanse Caption 颜色 颜色框架 OptionBotton1（单选按钮1） 名称 OptBlack Caption 黑色 OptionBotton2（单选按钮2） 名称 OptRed Caption 红色 OptionBotton3（单选按钮3） 名称 OptBlue Caption 蓝色 Frame2（框架2） 名称 FraXiaoguo Caption 效果 效果框架 CheckBox1（复选框1） 名称 ChkUnderLine Caption 下划线 CheckBox2（复选框2） 名称 ChkStrikethru Caption 删除线 ③编写事件过程代码 Private Sub ChkStrikethru_Click() TxtInput.FontStrikethru = ChkStrikethru.Value 删除线 End Sub Private Sub ChkUnderLine_Click() TxtInput.FontUnderline = ChkUnderLine.Value 下划线 End Sub Private Sub OptBlack_Click() TxtInput.ForeColor = RGB(0, 0, 0) 设置文字颜色为黑色 End Sub Private Sub OptRed_Click() TxtInput.ForeColor = RGB(255, 0, 0) 设置文字颜色为红色 End Sub Private Sub OptBlue_Click() TxtInput.ForeColor = RGB(0, 0, 255) 设置文字颜色为蓝色 End Sub ④保存、运行并调试程序。 三、课堂练习： 四、课堂小结： 五、布置作业： 六、板书设计： 七、教学后记