信息技术人教版九年级全一册第9课《使用滚动条控件》教学设计

第9课 使用滚动条控件 [教学目的与要求]  （1） 熟悉滚动条控件的用法 （2） 了解VB中的RGB（函数。） [教学重点与难点]  （1） 重点：滚动条的理解。 （2） 难点：RGB（）函数的认识。 [教学过程]  一、引入 在默认form1上画一个文本框text1 和一个水平滚动条HScroll1 窗体上一切默认，不要改变，使用一下程序改变： Private Sub Form_Load（） '窗体加载时初始化 HScroll1.Min = 1 '滚动条最小值（即文本框最小值）是1  HScroll1.Max = 100 '滚动条最大值（即文本框最大值）是100  HScroll1.Value = 50 '滚动条默认值（即文本框默认值）取一个中数50  Text1.Text = HScroll1.Value '将滚动条上的值赋给文本框text1  End Sub  Private Sub HScroll1_Change（） '滚动条变化的事件 Text1.Text = HScroll1.Value '将滚动条的值动态赋给文本框text1  End Sub  如下图所示：你试试看  二、新授 用一个text控件和一个scrollbar控件来控制数据的递减 递增并显示在text中，就是text中显示某个数 当点击滚动条上方箭头时text中显示的该数加1 点击下方箭头时减1   Private Sub Form_Load（）  VScroll1.Value = 50  Text1 = VScroll1.Value  End Sub   Private Sub VScroll1_Change（）  Text1 = VScroll1.Value  End Sub  三、巩固 双击滚动条控件，打开【代码】窗口，将下列代码添加到HScrolll_Change事件过程中：Private Sub HScrolll_Change（） Labzhe.Caption=HScrolll.Value & “折”    Labzhe.Caption=Text1.Text* HScorlll.Value/10 & “元” End Sub  四、作业 P75习题  五、课后反思：    滚动条控件用Scroll和Change事件监视滚动块沿滚动条的移动。Change事件在滚动块移动后发生;Sc