第9課使用滾動(dòng)條控件

1、三道嶺一中教學(xué)案例任課老師姓名：阿不都克熱木 日期：2014.11.10-11.14 第-1-課時(shí). 總-2-節(jié)課題第9課使用滾動(dòng)條控件課類信息技術(shù)教學(xué)目標(biāo)1、知識(shí)目標(biāo)：l 熟悉滾動(dòng)條控件的用法l 了解vb中的rgb（）函數(shù)2、能力目標(biāo)：培養(yǎng)學(xué)生的觀察能力、自我探索、自主學(xué)習(xí)的能力和團(tuán)體協(xié)作的能力。3、情感目標(biāo)：通過(guò)具體實(shí)例，讓學(xué)生自我展示、自我激勵(lì)、體驗(yàn)成功，在不斷嘗試中激發(fā)求知欲，在不斷摸索中陶冶情操。前提診測(cè)1、在定時(shí)器控件中添加beep語(yǔ)句的作用是什么？導(dǎo)入新課大家在使用電腦時(shí)經(jīng)常用到滾動(dòng)條快速定位，今天我們就來(lái)學(xué)習(xí)在vb中使用滾動(dòng)條控件的方法。教學(xué)方法任務(wù)驅(qū)動(dòng)法、演示操作法教學(xué)重點(diǎn)滾

2、動(dòng)條控件、rgb（）函數(shù)教學(xué)難點(diǎn)編寫(xiě)代碼、調(diào)試程序教學(xué)過(guò)程一、分析示例程序“顯示數(shù)值”二、設(shè)計(jì)程序“顯示數(shù)值” 1、設(shè)計(jì)程序界面 1.1 創(chuàng)建新工程 1.2 繪制窗體界面：一個(gè)水平滾動(dòng)條，三個(gè)標(biāo)簽和一個(gè)文本框2、修改對(duì)象屬性對(duì)象屬性屬性值Frm1（名稱）Frmdisplaycaption顯示數(shù)值Borderstyle1-fixed singleLabel1caption小Label2caption大Label3caption當(dāng)前數(shù)值是：Hscroll1（名稱）hsbdisplayMin0Max100Largechange10text1（名稱）Txtdisplaytext3、編寫(xiě)程序代碼 Pri

3、vate Sub hsbDisplay_Change()txtDisplay.Text = hsbDisplay.ValueEnd Sub4、調(diào)試并保存程序5、生成可執(zhí)行程序形成性測(cè)試制作顯示數(shù)值程序小 結(jié)這節(jié)課我們學(xué)習(xí)了滾動(dòng)條控件的使用方法，希望大家課外熟悉它們。板書(shū)設(shè)計(jì)第九課 使用滾動(dòng)條控件一、分析示例程序二、設(shè)計(jì)程序作業(yè)P68 1課后反思組長(zhǎng)簽字三道嶺一中教學(xué)案例任課老師姓名：阿不都克熱木 日期：2014.11.10-11.14 第-2課時(shí). 總-2-節(jié)課題第9課使用滾動(dòng)條控件課類信息技術(shù)教學(xué)目標(biāo)1、知識(shí)目標(biāo)：l 熟悉滾動(dòng)條控件的用法l 了解vb中的rgb（）函數(shù)2、能力目標(biāo)：培養(yǎng)學(xué)生的

4、觀察能力、自我探索、自主學(xué)習(xí)的能力和團(tuán)體協(xié)作的能力。3、情感目標(biāo)：通過(guò)具體實(shí)例，讓學(xué)生自我展示、自我激勵(lì)、體驗(yàn)成功，在不斷嘗試中激發(fā)求知欲，在不斷摸索中陶冶情操。前提診測(cè)1、在定時(shí)器控件中添加beep語(yǔ)句的作用是什么？導(dǎo)入新課大家在使用電腦時(shí)經(jīng)常用到滾動(dòng)條快速定位，今天我們就來(lái)學(xué)習(xí)在vb中使用滾動(dòng)條控件的方法。教學(xué)方法任務(wù)驅(qū)動(dòng)法、演示操作法教學(xué)重點(diǎn)滾動(dòng)條控件、rgb（）函數(shù)教學(xué)難點(diǎn)編寫(xiě)代碼、調(diào)試程序教學(xué)過(guò)程一、分析示例程序“調(diào)色板”二、設(shè)計(jì)程序“調(diào)色板” 1、設(shè)計(jì)程序界面 1.1 創(chuàng)建新工程 1.2 繪制窗體界面：三個(gè)水平滾動(dòng)條，三個(gè)標(biāo)簽和一個(gè)圖片框2、修改對(duì)象屬性對(duì)象屬性屬性值frm1（名稱

5、）Frmpalettecaption調(diào)色板borderstyle1-fixed singlelabel1（名稱）Lblredcaption紅label2（名稱）Lblbluecaption藍(lán)label3（名稱）Lblgreencaption綠hscrollbar1（名稱）HsbredMax255largechange10hscrollbar1（名稱）HsbblueMax255largechange10hscrollbar1（名稱）hsbgreenMax255largechange10picture（名稱）picpreview3、編寫(xiě)程序代碼 Private Sub Form_Load()hsb

6、Red.Value = 0hsbGreen.Value = 0hsbBlue.Value = 0picPreview.BackColor = RGB(0, 0, 0)End SubPrivate Sub hsbBlue_Change()picPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)End SubPrivate Sub hsbGreen_Change()picPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)End SubPrivate Sub hsbRed_Change()picPreview.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)End Sub4、調(diào)試并保存