VB教案-组合框的使用

1、学习好资料欢迎下载14-2组合框的使用【教学目标】1.了解组合框的组成及其主要属性2.掌握组合框添加删除项目的方法3.掌握通过改变组合框选项来改变文本框字体属性的方法【教学重点】1.在组合框添加删除项目的 2 种方法2.组合框的 Click 事件用法3.字体各种属性的回顾【教学难点】根据组合框的选项来更换字体颜色【教学手段】情境教学法、任务驱动法、演示法、讨论法【教学过程】一、引入让学生看已经编好的程序，激发学生兴趣，并引出 VB 的编程游戏。再让学生上来操作,进入创设的情境中，提高学生的注意力。激发学生的学习兴趣，让学生参与课堂中来二、正课1.建立如下图所示界面.能根据组合框选择的字体和字体

2、大小来改变文本框中的文字 属性.& Forml_ X处处处处闻啼鸟闻啼鸟 複来斑雨声複来斑雨声 花落花落知冬少知冬少诸选择字体诸选择字体- -学习好资料欢迎下载Private Sub Combo1_Click()Textl.FontName = Combol.Text End SubPrivate Sub Combo2_Click()Text1.FontSize = Combo2.TextEnd Sub2.建立如下图所示界面，要求文本框中的字体属性能根据组合框选项的变化而变化 要求 B,I,U这些按钮按下去之后文本框中字体变为粗体或斜体或下划线要求能根据字体颜色”红色” ”绿色”等改变

3、文本框字体的颜色口Foiml芋体文宇犬小FontBold FontU. . - Font工. 祥式U B IPrivate Sub Conbol Click。If ComLol. Text =証色Thn Text!. For eCol or = vbRed End SubPrivate Sub Combo1_Click()Text1.FontName = Combo1.TextEnd Sub建你型女瘁偏猶器学习好资料欢迎下载Private Sub Combo2_Click()Text1.FontSize = Combo2.TextEnd SubPrivate Sub Combo3_Click(

4、)If Combo3.Text =红色ThenText1.ForeColor = vbRedEnd IfIf Combo3.Text =绿色ThenTextl.ForeColor = vbGreenEnd IfIf Combo3.Text =蓝色ThenTextl.ForeColor = vbBlueEnd IfEnd SubPrivate Sub Command1_Click()Textl.FontUnderline = Not Text1.FontUnderlineEnd SubPrivate Sub Command2_Click()Text1.FontBold = Not Text1.FontBoldEnd SubPrivate Sub Command3_Click()Text1.Fontltalic = Not Text1.FontltalicEnd SubPrivate Sub Command4_Click()EndEnd Sub三、总结.为理清这节课所学的知识结构，教师进行引导，让学生自