初中九年級信息技術(shù)編寫調(diào)色板程序

第1單元

VisualBasic初步第九課

使用滾動條控件二編寫調(diào)色板程序?yàn)跆K市第六中學(xué)岳彩霞編寫調(diào)色板程序課題引入

網(wǎng)絡(luò)瀏覽、編輯文字時(shí)常常會利用滾動條查看窗口中顯示的內(nèi)容，除此以外，它還可以用于輸入數(shù)據(jù)。滾動條有水平和垂直兩種。教學(xué)目標(biāo)1.熟悉VB編程軟件的結(jié)構(gòu)和功能，體會設(shè)計(jì)、開發(fā)VB程序的基本過程。

2.利用滾動條控件編寫簡單的程序，體會事件驅(qū)動的特點(diǎn)。

3.感受編寫VB程序的樂趣，能通過小組合作，自主編寫“調(diào)色板”程序。1.創(chuàng)建工程動手實(shí)踐①雙擊②雙擊“標(biāo)準(zhǔn)EXE”

雙擊VB圖標(biāo)啟動程序在彈出菜單中，選擇“標(biāo)準(zhǔn)EXE”雙擊12動手實(shí)踐水平滾動條圖片框2.設(shè)計(jì)窗體參照下圖設(shè)計(jì)窗體標(biāo)簽拖動可調(diào)整窗體大小合作交流2.設(shè)計(jì)窗體（操作步驟）①選擇保存位置②更改文件名稱③點(diǎn)擊保存

選定窗體，適當(dāng)調(diào)整它的大小單擊工具箱中的,選定標(biāo)簽控件。然后在窗體中拖動鼠標(biāo)指針，繪制一個(gè)長方形框(連續(xù)添加3個(gè)標(biāo)簽框)。

選定水平滾動條控件，然后在標(biāo)簽框右側(cè)繪制一個(gè)水平的長方形框(連續(xù)添加3個(gè)滾動條框)。選定圖片框控件,在水平滾動條右側(cè)繪制一個(gè)矩形框。單擊，參照以下提示進(jìn)行保存。提示：在彈出的“文件另存為”對話框中，以“調(diào)色板程序”為文件名將窗體文件保存到桌面上；在再次出現(xiàn)的“工程另存為”對話框中，再次以“調(diào)色板程序”為文件名保存工程文件到同一位置。45123點(diǎn)擊保存合作交流3.設(shè)置屬性：參照下表設(shè)置控件對象的屬性對象屬性屬性值說

明Form1（名稱）frm_tsb程序的窗口Caption調(diào)色板Label1（名稱）lbl_hong顯示文字“紅”Caption紅HScroll1（名稱）hsc_hong水平滾動條，用于調(diào)整顏色組成中，紅色的比例Max255Min0Value0Label2（名稱）lbl_lv顯示文字“綠”Caption綠HScroll2（名稱）hsc_lv水平滾動條，用于調(diào)整顏色組成中，綠色的比例Max255Min0Value0對象屬性屬性值說

明Label3（名稱）lbl_lan顯示文字“藍(lán)”Caption藍(lán)HScroll3（名稱）hsc_lan水平滾動條，用于調(diào)整顏色組成中，藍(lán)色的比例Max255Min0Value0Picture（名稱）pic_tsb展示選定的顏色合作交流3.設(shè)置屬性（設(shè)置對象Form1屬性）

單擊鼠標(biāo)選定窗體，在Form1屬性窗口選中(名稱)屬性，將其默認(rèn)屬性值修改為frm_tsb

在屬性窗口選中Caption屬性，其默認(rèn)屬性值為“調(diào)色板”，該屬性是窗體標(biāo)題欄中的標(biāo)識。

12修改為frm_tsb單擊鼠標(biāo)選定窗體修改為“調(diào)色板”合作交流3.設(shè)置屬性（設(shè)置對象Label1屬性）單擊鼠標(biāo)選定標(biāo)簽框1修改為lbl_hong修改為“紅”拓展提升3.設(shè)置屬性（設(shè)置對象Label2，Label3屬性）小組合作探究實(shí)踐設(shè)置Label2，Label3屬性（參照下圖）對象屬性屬性值說

明Label2（名稱）lbl_lv顯示文字“綠”Caption綠Label3（名稱）lbl_lan顯示文字“藍(lán)”Caption藍(lán)合作交流3.設(shè)置屬性（設(shè)置對象HScroll1屬性）單擊鼠標(biāo)選定滾動條1修改為hsc_hong修改為255修改為0修改為0拓展提升3.設(shè)置屬性（設(shè)置對象HScroll2，HScroll3屬性）小組合作實(shí)踐探究設(shè)置HScroll2，HScroll3屬性（參照下圖）對象屬性屬性值說

明HScroll2（名稱）hsc_lv水平滾動條，用于調(diào)整顏色組成中，綠色的比例Max255Min0Value0HScroll3（名稱）hsc_lan水平滾動條，用于調(diào)整顏色組成中，藍(lán)色的比例Max255Min0Value0合作交流3.設(shè)置屬性（設(shè)置對象Picture屬性）單擊鼠標(biāo)選定圖片框修改為Pic_tsb4.編寫代碼：參照下表為水平滾動條Change事件編寫代碼，要求拖動滾動滑塊時(shí)，重新設(shè)置圖片框的背景色。對象事件代

碼hsc_hongChangePrivateSubhsc_hong_Change()pic_tsb.BackColor=RGB(hsc_hong.Value,hsc_lv.Value,hsc_lan.Value)EndSub合作交流雙擊滾動條1控件為hsc_hong類型事件為Change事件錄入代碼pic_tsb.BackColor=RGB(hsc_hong.Value,hsc_lv.Value,hsc_lan.Value)5.測試與運(yùn)行：運(yùn)行程序，在菜單欄點(diǎn)擊“運(yùn)行”，選擇“啟動”，或者直接點(diǎn)擊先調(diào)整綠或藍(lán)滾動條，后調(diào)整紅色滾動條，觀察圖片框的背景色。合作交流討論交流5.測試與運(yùn)行

思考為什么篇頭的VB程序可以直接打開運(yùn)行，不用啟動VB程序?

執(zhí)行“文件—生成工程1.exe”命令，創(chuàng)建EXE可執(zhí)行文件。

小提示：創(chuàng)建EXE可執(zhí)行文件后，把它和所用到的圖