第9课使用滚动条控件.docVIP

三道岭一中教学案例 任课老师姓名：阿不都克热木 日期：2014.11.10-11.14 第--1-课时. 总-2------节 课题 第9课使用滚动条控件 课类 信息技术 教学目标 1、知识目标： 熟悉滚动条控件的用法 了解vb中的rgb（）函数 2、能力目标：培养学生的观察能力、自我探索、自主学习的能力和团体协作的能力。 3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知欲，在不断摸索中陶冶情操。 前提诊测 1、在定时器控件中添加beep语句的作用是什么？ 导入新课 大家在使用电脑时经常用到滚动条快速定位，今天我们就来学习在vb中使用滚动条控件的方法。 教学方法 任务驱动法、演示操作法 教学重点 滚动条控件、rgb（）函数 教学难点 编写代码、调试程序 教学过程 一、分析示例程序“显示数值” 二、设计程序“显示数值” 1、设计程序界面 1.1 创建新工程 1.2 绘制窗体界面：一个水平滚动条，三个标签和一个文本框 2、修改对象属性 对象 属性 属性值 Frm1 （名称） Frmdisplay caption 显示数值 Borderstyle 1-fixed single Label1 caption 小 Label2 caption 大 Label3 caption 当前数值是： Hscroll1 （名称） hsbdisplay Min 0 Max 100 Largechange 10 text1 （名称） Txtdisplay text ? 3、编写程序代码 Private Sub hsbDisplay_Change() txtDisplay.Text = hsbDisplay.Value End Sub 4、调试并保存程序 5、生成可执行程序 形成性测试 制作显示数值程序 小 结 这节课我们学习了滚动条控件的使用方法，希望大家课外熟悉它们。 板书设计 第九课 使用滚动条控件 一、分析示例程序 二、设计程序 作业 P68 1 课后反思 组长签字 三道岭一中教学案例 任课老师姓名：阿不都克热木 日期：2014.11.10-11.14 第--2课时. 总-2------节 课题 第9课使用滚动条控件 课类 信息技术 教学目标 1、知识目标： 熟悉滚动条控件的用法 了解vb中的rgb（）函数 2、能力目标：培养学生的观察能力、自我探索、自主学习的能力和团体协作的能力。 3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知欲，在不断摸索中陶冶情操。 前提诊测 1、在定时器控件中添加beep语句的作用是什么？ 导入新课 大家在使用电脑时经常用到滚动条快速定位，今天我们就来学习在vb中使用滚动条控件的方法。 教学方法 任务驱动法、演示操作法 教学重点 滚动条控件、rgb（）函数 教学难点 编写代码、调试程序 教学过程 一、分析示例程序“调色板” 二、设计程序“调色板” 1、设计程序界面 1.1 创建新工程 1.2 绘制窗体界面：三个水平滚动条，三个标签和一个图片框 2、修改对象属性 对象 属性 属性值 frm1 （名称） Frmpalette caption 调色板 borderstyle 1-fixed single label1 （名称） Lblred caption 红 label2 （名称） Lblblue caption 蓝 label3 （名称） Lblgreen caption 绿 hscrollbar1 （名称） Hsbred Max 255 largechange 10 hscrollbar1 （名称） Hsbblue Max 255 largechange 10 hscrollbar1 （名称） hsbgreen Max 255 largechange 10 picture （名称） picpreview 3、编写程序代码 Private Sub Form_Load() hsbRed.Value = 0 hsbGreen.Value = 0 hsbBlue.Value = 0 picPreview.BackColor = RGB(0, 0, 0) End Sub Private Sub hsbBlue_Change() picPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value) End Sub Private Sub hsbGreen_Change() picPreview.BackColor = RGB(hsbR