vb教案-组合框的使用

《vb教案-组合框的使用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB6.0----结构化程序设计[14-2]组合框的使用【教学目标】1.了解组合框的组成及其主要属性2.掌握组合框添加删除项目的方法3.掌握通过改变组合框选项来改变文本框字体属性的方法【教学重点】1.在组合框添加删除项目的2种方法2.组合框的Click事件用法3.字体各种属性的回顾【教学难点】根据组合框的选项来更换字体颜色【教学手段】情境教学法、任务驱动法、演示法、讨论法【教学过程】一、引入让学生看已经编好的程序，激发学生兴趣，并引出VB的编程游戏。再让学生上来操作，进入创设的情境中，提高学生的注意力。[激发学生的学

2、习兴趣，让学生参与课堂中来]二、正课1.建立如下图所示界面.能根据组合框选择的字体和字体大小来改变文本框中的文字属性.Page3VB6.0----结构化程序设计PrivateSubCombo1_Click()Text1.FontName=Combo1.TextEndSubPrivateSubCombo2_Click()Text1.FontSize=Combo2.TextEndSub2.建立如下图所示界面,要求文本框中的字体属性能根据组合框选项的变化而变化.要求B,I,U这些按钮按下去之后文本框中字体变为粗体或斜体或下

3、划线要求能根据字体颜色”红色””绿色”等改变文本框字体的颜色PrivateSubCombo1_Click()Text1.FontName=Combo1.TextEndSubPrivateSubCombo2_Click()Text1.FontSize=Combo2.TextEndSubPrivateSubCombo3_Click()IfCombo3.Text="红色"ThenText1.ForeColor=vbRedPage3VB6.0----结构化程序设计EndIfIfCombo3.Text="绿色"ThenText

4、1.ForeColor=vbGreenEndIfIfCombo3.Text="蓝色"ThenText1.ForeColor=vbBlueEndIfEndSubPrivateSubCommand1_Click()Text1.FontUnderline=NotText1.FontUnderlineEndSubPrivateSubCommand2_Click()Text1.FontBold=NotText1.FontBoldEndSubPrivateSubCommand3_Click()Text1.FontItalic=N

5、otText1.FontItalicEndSubPrivateSubCommand4_Click()EndEndSub三、总结.为理清这节课所学的知识结构，教师进行引导，让学生自己归纳总结，完成课堂小结部分。四、课堂作业B,I,U这些按钮,如何做到当文本框字体已经为粗体或斜体或下划线格式时按下他们,字体恢复正常.Page3