《使用滾動條控件》參考教案

課題第9課使用滾動條控件（第1課時）課類信息技術(shù)教學(xué)目標(biāo)1、知識目標(biāo)：熟悉滾動條控件的用法了解vb中的rgb（）函數(shù)2、能力目標(biāo)：培養(yǎng)學(xué)生的觀察能力、自我探索、自主學(xué)習(xí)的能力和團(tuán)體協(xié)作的能力。3、情感目標(biāo)：通過具體實例，讓學(xué)生自我展示、自我激勵、體驗成功，在不斷嘗試中激發(fā)求知欲，在不斷摸索中陶冶情操。前提診測1、在定時器控件中添加beep語句的作用是什么？導(dǎo)入新課大家在使用電腦時經(jīng)常用到滾動條快速定位，今天我們就來學(xué)習(xí)在vb中使用滾動條控件的方法。教學(xué)方法任務(wù)驅(qū)動法、演示操作法教學(xué)重點滾動條控件、rgb（）函數(shù)教學(xué)難點編寫代碼、調(diào)試程序教學(xué)過程一、分析示例程序“顯示數(shù)值”二、設(shè)計程序“顯示數(shù)值”1、設(shè)計程序界面1.1創(chuàng)建新工程1.2繪制窗體界面：一個水平滾動條，三個標(biāo)簽和一個文本框2、修改對象屬性對象屬性屬性值Frm1（名稱）Frmdisplaycaption顯示數(shù)值Borderstyle1-fixedsingleLabel1caption小Label2caption大Label3caption當(dāng)前數(shù)值是：Hscroll1（名稱）hsbdisplayMin0Max100Largechange10text1（名稱）Txtdisplaytext

3、編寫程序代碼PrivateSubhsbDisplay_Change()txtDisplay.Text=hsbDisplay.ValueEndSub4、調(diào)試并保存程序5、生成可執(zhí)行程序形成性測試制作顯示數(shù)值程序小結(jié)這節(jié)課我們學(xué)習(xí)了滾動條控件的使用方法，希望大家課外熟悉它們。板書設(shè)計第九課使用滾動條控件一、分析示例程序二、設(shè)計程序作業(yè)P681課后反思組長簽字課題第9課使用滾動條控件（第2課時）課類信息技術(shù)教學(xué)目標(biāo)1、知識目標(biāo)：熟悉滾動條控件的用法了解vb中的rgb（）函數(shù)2、能力目標(biāo)：培養(yǎng)學(xué)生的觀察能力、自我探索、自主學(xué)習(xí)的能力和團(tuán)體協(xié)作的能力。3、情感目標(biāo)：通過具體實例，讓學(xué)生自我展示、自我激勵、體驗成功，在不斷嘗試中激發(fā)求知欲，在不斷摸索中陶冶情操。前提診測1、在定時器控件中添加beep語句的作用是什么？導(dǎo)入新課大家在使用電腦時經(jīng)常用到滾動條快速定位，今天我們就來學(xué)習(xí)在vb中使用滾動條控件的方法。教學(xué)方法任務(wù)驅(qū)動法、演示操作法教學(xué)重點滾動條控件、rgb（）函數(shù)教學(xué)難點編寫代碼、調(diào)試程序教學(xué)過程一、分析示例程序“調(diào)色板”二、設(shè)計程序“調(diào)色板”1、設(shè)計程序界面1.1創(chuàng)建新工程1.2繪制窗體界面：三個水平滾動條，三個標(biāo)簽和一個圖片框2、修改對象屬性對象屬性屬性值frm1（名稱）Frmpalettecaption調(diào)色板borderstyle1-fixedsinglelabel1（名稱）Lblredcaption紅label2（名稱）Lblbluecaption藍(lán)label3（名稱）Lblgreencaption綠hscrollbar1（名稱）HsbredMax255largechange10hscrollbar1（名稱）HsbblueMax255largechange10hscrollbar1（名稱）hsbgreenMax255largechange10picture（名稱）picpreview3、編寫程序代碼PrivateSubForm_Load()hsbRed.Value=0hsbGreen.Value=0hsbBlue.Value=0picPreview.BackColor=RGB(0,0,0)EndSubPrivateSubhsbBlue_Change()picPreview.BackColor=RGB(hsbRed.Value,hsbGreen.Value,hsbBlue.Value)EndSubPrivateSubhsbGreen_Change()picPreview.BackColor=RGB(hsbRed.Value,hsbGreen.Value,hsbBlue.Value)EndSubPrivateSubhsbRed_Change()picPreview.BackColor=RGB(hsbRed.Value,hsbGreen.Value,hsbBlue.Value)EndSub4、調(diào)試并保存程序5、生