《使用滚动条控件》参考教案.docVIP

课题

第9课使用滚动条控件（第1课时）

课类

信息技术

教学目标

1、知识目标：

熟悉滚动条控件的用法

了解vb中的rgb（）函数

2、能力目标：培养学生的观察能力、自我探索、自主学习的能力和团体协作的能力。

3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知欲，在不断摸索中陶冶情操。

前提诊测

1、在定时器控件中添加beep语句的作用是什么？

导入新课

大家在使用电脑时经常用到滚动条快速定位，今天我们就来学习在vb中使用滚动条控件的方法。

教学方法

任务驱动法、演示操作法

教学重点

滚动条控件、rgb（）函数

教学难点

编写代码、调试程序

教学过程

一、分析示例程序“显示数值”

二、设计程序“显示数值”

1、设计程序界面

1.1创建新工程

1.2绘制窗体界面：一个水平滚动条，三个标签和一个文本框

2、修改对象属性

对象

属性

属性值

Frm1

（名称）

Frmdisplay

caption

显示数值

Borderstyle

1-fixedsingle

Label1

caption

小

Label2

caption

大

Label3

caption

当前数值是：

Hscroll1

（名称）

hsbdisplay

Min

0

Max

100

Largechange

10

text1

（名称）

Txtdisplay

text

?

3、编写程序代码

PrivateSubhsbDisplay_Change()

txtDisplay.Text=hsbDisplay.Value

EndSub

4、调试并保存程序

5、生成可执行程序

形成性测试

制作显示数值程序

小结

这节课我们学习了滚动条控件的使用方法，希望大家课外熟悉它们。

板书设计

第九课使用滚动条控件

一、分析示例程序

二、设计程序

作业

P681

课后反思

组长签字

课题

第9课使用滚动条控件（第2课时）

课类

信息技术

教学目标

1、知识目标：

熟悉滚动条控件的用法

了解vb中的rgb（）函数

2、能力目标：培养学生的观察能力、自我探索、自主学习的能力和团体协作的能力。

3、情感目标：通过具体实例，让学生自我展示、自我激励、体验成功，在不断尝试中激发求知欲，在不断摸索中陶冶情操。

前提诊测

1、在定时器控件中添加beep语句的作用是什么？

导入新课

大家在使用电脑时经常用到滚动条快速定位，今天我们就来学习在vb中使用滚动条控件的方法。

教学方法

任务驱动法、演示操作法

教学重点

滚动条控件、rgb（）函数

教学难点

编写代码、调试程序

教学过程

一、分析示例程序“调色板”

二、设计程序“调色板”

1、设计程序界面

1.1创建新工程

1.2绘制窗体界面：三个水平滚动条，三个标签和一个图片框

2、修改对象属性

对象

属性

属性值

frm1

（名称）

Frmpalette

caption

调色板

borderstyle

1-fixedsingle

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、编写程序代码

PrivateSubForm_Load()

hsbRed.Value=0

hsbGreen.Value=0

hsbBlue.Value=0

picPreview.BackColor=RGB(0,0,0)

EndSub

PrivateSubhsbBlue_Change()

picPreview.BackColor=RGB(hsbRed.Value,hsbGreen.Value,hsbBlue.Value)

EndSub

PrivateSubhsbGreen_Change()

picPreview.BackColor=RGB(hsbRed.Value,hsbGreen.Value,hsbBlue.Value)

EndSub

PrivateSubhsbRed_Change()

picPreview.BackColor=RGB(hsbRed.Value,hsbGreen.Value,hsbBlue.Value)

EndSub