新課標青島版初中信息技術八年級下冊（Vb程序設計）部分精品教案

1、新課標青島版初中信息技術八年級下冊（vb程序設計）部分精品教案一、 八年級下冊教學內容安排建議八年級下冊有兩部分知識：1、算法思想初步；2、vb程序設計。教學中建議重點學習vb程序設計，基于兩點原因：1、教學時間；2、軟件的通適性。但應介紹算法基礎知識，建議用1課時完成，可參考第1單元第1課算法基礎知識安排教學，知識點有：算法概念，表示方法：自然語言、流程圖、計算機語言。其中算法的流程圖是重要的，要求學生能畫流程圖，老師舉例得出算法的三種結構：順序結構、分支結構、循環(huán)結構。二、 vb程序教學體驗1、 啟動vb2、vb界面認識：三欄：標題欄、菜單欄、工具欄（可類比學過的工具軟件） 一箱：工具箱（

2、類比畫圖、flash、photoshop）。重點認識:labelcommandbuttontextbox 一窗體設計器： 三窗口：資源管理器窗口、屬性窗口、窗體布局窗口3、界面的變動：通過視圖工具欄調整4、制作一個“問好.vbp”，體驗：（1）如何添加控件（2）屬性如何改變（3）代碼如何編寫通過制作這個程序，我們體驗到了vb程序開發(fā)的一般步驟 三、 vb程序教學的三維目標1、 知識目標2、 技能目標3、 情感態(tài)度和價值觀目標四、 教材中有關vb的8個實例分析第課大熊貓的兩個愿望（四個教學環(huán)節(jié)）一、 認識vb工作界面（解決兩個問題：界面的組成部分有幾個？如何修改？）1、啟動：類比其它軟件的啟動方

3、法1、程序菜單；2、雙擊快捷方式；3、右擊2、界面：（1）三欄：標題欄、菜單欄、工具欄（可類比學過的工具軟件） 一箱：工具箱（類比畫圖、flash、photoshop）。重點認識:labelcommandbuttontextbox 一窗體設計器： 三窗口：資源管理器窗口、屬性窗口、窗體布局窗口 （2）修改二、運行程序（解決怎樣運行程序的問題）1、讓學生打開文件，啟動程序（三種方法：工具欄按鈕、菜單、f5）2、在運行狀態(tài)時，引導學生觀察標題欄的變化，得到工程的三種狀態(tài)：設計、運行、中斷（break）三、修改界面（解決控件的五個問題：怎么加？怎么刪？怎么移？怎么縮放？怎么改？）1、控件的添加與刪除

4、（1）添加（兩種方法）：單擊控件畫出。引導學生回憶“畫圖”程序如何畫幾何圖形，完成控件添加 雙擊控件（2）如何刪除幾何圖形（三種方法）：delete右擊菜單2、控件的移動、縮放：3、修改控件的屬性值：（1）教學建議：引導學生發(fā)現(xiàn)修改方法（自學探究）（2）難點：添加一個commandbutton控件，修改其標題、文本字體、背景色。教學中注意區(qū)別：控件名稱（name）與控件標題（caption）的區(qū)別：控件名稱具有唯一性，可用身份證號碼與人的姓名類比。（可以分別修改控件名稱和控件標題試一試）commandbutton控件背景色在改變時，應將其style屬性修改為（1-graphical）模式。添加

5、一個label控件，修改fontforecolorbackcolorbackstyle設置控件屬性：label1.captionlabel1.backstylelabel1.forecolorcommand1.captioncommand1.backcolorcommand1.style屬性與屬性值什么是屬性？屬性值又是什么？在vb中屬性是用來描述對象特性的。比如，在現(xiàn)實生活中我們常常會問：“這位先生的姓名是什么？”，“年齡多少？”。我們會回答這位先生叫張三，年齡30歲。這種問題放在vb中就變成：這位先生的“姓名屬性”是什么？，“年齡屬性”是什么？其中，“張三”就是名字屬性的值，“30”就是年

6、齡屬性的值。此外，為了描述一個人，光有前面兩項屬性是不夠的，往往還需要另外一些屬性，如性別、身高、體重、學歷等等。這時要注意的是，每一種對象所具有的屬性是不同的，比花與人兩種不同的對象，人具有“學歷”屬性而花沒有，花具有“香味”屬性而人沒有。 在vb中每種對象有若干個屬性。例如命令按鈕有名稱、標題以及按鈕的尺寸等，不同的對象可能有不同的屬性類型和屬性值，用戶可以根據(jù)需要對它們賦予各種不同的值。 四、修改代碼體驗（解決三個問題：分清有幾個模型架？每個模型架表示的哪個對象的什么事件？修改的是哪個對象的什么屬性？）vb過程的組成1、觀看代碼窗口的構成：（雙擊控件就可添加過程的模型架）以command

7、1_click()過程的模型架為例private sub command1_click()label2.caption = 我希望能天天有竹子可吃！label2.forecolor = rgb(244, 12, 56)end sub解讀：private：私有過程，表示該過程只能在本窗體文件中被調用，應用程序中的其他窗體或模塊不可調用它。 sub：過程開始的標志。 command1_click()：過程名，由兩部分組成，對象名和事件名，兩者之間用下劃線連接。 endsub：過程結束的標志。 2、修改：（1）雙擊“愿望一”按鈕，打開代碼窗口，修改label1.caption（2）試探修改label

8、a.forecolor=rgb（244，12，56）顏色值。進入代碼窗口的方法（1）雙擊當前窗體 （2）單擊“工程”窗口的“查看代碼”按鈕 （3）在菜單欄中選擇“視圖”菜單中的“代碼窗口”命令1、愿望一command1的click事件代碼private sub command1_click()label2.caption = 我希望能天天有竹子可吃！label2.forecolor = rgb(244, 12, 56)end sub2、愿望二command2的click事件代碼private sub command2_click()label2.caption = 我希望能安靜地生活！labe

9、l2.forecolor = rgb(244, 12, 56)end sub五、實踐創(chuàng)新用好評價表六、總結（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應用。總結獲）開發(fā)vb應用程序的步驟 總結上述幾個例題，開發(fā)一個vb應用程序有三個步驟： 1、設計用戶界面 2、屬性設置 3、編寫事件過程代碼 第2課 自我介紹（七個環(huán)節(jié)）一、 分析問題（解決兩個問題：對程序整體的感知、分析有幾個事件）讓學生運行“自我介紹.frm”，運行過程中思考幾個問題：1、在文本框中輸入個人信息后，單擊“顯示”按鈕，會在最下面文本框中顯示什么內

10、容？什么字體被選中？2、單擊另一個字體單選按鈕，自我介紹的內容有什么變化？二、界面設計（解決三個問題：控件的添加、調整、設置屬性）1、分析界面上有幾種控件？分別是什么？“自我介紹”程序中用到的控件圖標名稱數(shù)量2、添加控件（學會添加控件的兩種方法）3、調整布局（學會一次設置多個控件的方法）4、設置對象屬性（1）、如何設置文本框多行顯示(text1.multiline=true)（2）、如何使文本框置空(選中文本框，text1.text=”)（3）、如何使單選按鈕選中（optionbutton1.value=true）（4）、如何修改label的字體屬性（修改label.font）設置控件屬性：l

11、abel1.captionlabel1.fonttext1.texttext1.multilinecommand1.captionoption1.captionoption1.value三、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）1、退出2、三個optionbutton(text6.font.size=”14”,text6.font=”楷體_gb2312”)3、續(xù)行符“_”的用法4、字符串運算符“+”1、顯示command1的click事件代碼private sub command1_click()option1.setfocustext6.fo

12、nt = 宋體text6.fontsize = 14text6.text = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點： + text4.text + ；需要改進的地方： + text5.textend sub2、退出command2的click事件代碼private sub command2_click()endend sub3、option1的click事件代碼private sub option1_click()text6.font = 宋體text6.fontsize = 14text6.tex

13、t = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點： + text4.text + ；需要改進的地方： + text5.textend sub4、option2的click事件代碼private sub option2_click()text6.font = 黑體text6.fontsize = 14text6.text = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點： + text4.text + ；需要改進的地方

14、： + text5.textend sub5、option3的click事件代碼private sub option3_click()text6.font = 楷體_gb2312text6.fontsize = 14text6.text = 姓名： + text1.text + ；email： + text2.text + _；愛好： + text3.text + ；優(yōu)點： + text4.text + ；需要改進的地方： + text5.textend sub四、調試與運行（解決程序的修正問題）程序的三種狀態(tài)：設計、運行、break五、保存文件保存窗體文件（*.frm）和保存工程文件(*.v

15、bp)六、生成可執(zhí)行文件保存可執(zhí)行文件（*.exe）:可執(zhí)行文件有什么作用七、實踐與創(chuàng)新八、總結拓展（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應用?？偨Y獲）1、屬性設置和編寫代碼中的問題2、拓展：多余代碼的去除第3課謎語大擂臺（一）一、引入新課我們來做一個猜謎游戲，看哪位同學能用最快的時間猜出來。這個游戲的設計特點讓學生總結一下： 三個commandbotton“謎語”、“答案”、“退出” 單擊事件發(fā)生后，程序運行結果怎樣？如何制作這一程序呢？二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是

16、什么對象的何種屬性？如何做？）程序有三個事件：謎語、答案、退出三個按鈕的_click事件三個事件改變的控件屬性： 謎語：text1 顯示出現(xiàn)謎語的時間 text2 顯示現(xiàn)在時間 text3 顯示耗時 答案：text2 將出現(xiàn)答案的時間定格 text3 將從出謎語到顯示答案的時間定格 text4 顯示答案 退出：退出程序分析：textbox需要幾個？ lable需要幾個？ commandbutton需要幾個？還要用到timer控件，image控件。三、界面設計（解決五個問題：控件的添、刪、移、縮、設置屬性。界面怎樣做？）用到的控件和屬性設置（對于常用的label、textbox、commandb

17、utton，基本的是兩項：修改標題、美化）label1.captionlabel1.fontlabel1.forecolor text1.fonttext1.forecolorimage1.pictureimage1.stretchtimer1.intervaliimer1.enabledcommand1.caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）1、謎語command1的click事件代碼private sub command1_click()text1.text = time$timer1.enabled = truelabe

18、l5.caption = 高山不見一寸土， + vbcrlf + 平地不見半畝田， + vbcrlf + 江河湖海沒有水， + _ vbcrlf + 世界各國在眼前。 + vbcrlf + vbcrlf + (打一學習工具)end sub2、答案command2的click事件代碼private sub command2_click()timer1.enabled = falsetext4.text = 地圖end sub3、退出command3的click事件代碼private sub command3_click()end sub4、timer1控件的代碼private sub timer

19、1_timer()text2.text = cstr(time$)text3.text = cstr(val(text3.text) + 1) + 秒end sub教師講授timer1程序控件代碼以及在程序中的作用。教師引導val()、cstr()、timer$的使用方法，vbcrlf常數(shù)的作用。五、修正調試（解決程序的修正問題）增加一個清除按扭，將使謎語、計時信息都返回到初始態(tài)。分組討論，小組合作完成任務。六、實踐與創(chuàng)新（大顯身手）設計一個程序，用來顯示系統(tǒng)時間。分組討論，互助合作，完成任務七、總結拓展（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸

20、，這個程序的進一步完善，或其它方面的應用?？偨Y獲）1、編寫程序過程中用到的控件的屬性設置及用法2、用到的函數(shù)val()、cstr()、timer$的使用方法，vbcrlf常數(shù)的作用3、字符串的概念，字符串合并運算。拓展：程序的缺陷第課 節(jié)約用水算水價一、導入新課為了提高節(jié)水意識，促進人們形成良好的用水習慣，物價部門對居民用水實行階梯式水價：若用水量小于或等于12噸，價格為2.85元/噸；若用水量大于12噸，大于12噸的部分，價格為：2.852元/噸?，F(xiàn)在我們就替物價部門設計一個這樣的計算水費的程序。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？

21、）分析收取水費問題，畫出其流程圖。學生分組討論畫出流程圖。三、界面設計（解決五個問題：控件的添、刪、移、縮、設置屬性。界面怎樣做？）1、構建界面：學生操作，添加控件，完成界面設計。2、設置對象屬性：根據(jù)程序界面，在屬性窗口中設置每個控件的屬性值。采用自主探究和合作學習形式。設置控件屬性：label1.caption text1.text text1.locked command1.caption form1.caption 四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）代碼編寫，調試，運行。學生參考課本，自主學習探究。教師引導學生理解if語句的用法

22、，引導學生理解賦值語句，總結vb中常見的數(shù)據(jù)類型。教師準備幾個if條件語句小程序，讓學生去讀程序，引導學生加深對if 語句的理解。1、計算command1的click事件代碼private sub command1_click()dim x, y as singlex = val(text1.text)if x = 12 theny = 2.85 * xelsey = 12 + 2.85 * 2 * xend iftext2.text = cstr(y)end sub2、清空command2的click事件代碼private sub command2_click()text1.text = t

23、ext2.text = end sub3、退出command3的click事件代碼private sub command3_click()endend sub4、窗體form1的load事件代碼private sub form_load()label3.caption = 說明： & vbcr & 小于或等于12噸，價格為2.85元/噸； & vbcrlf & _大于12噸的部分，價格為：2.852元/噸。end sub五、實踐與創(chuàng)新設計一個程序“我怎么樣？”輸入學生成績，如果成績大于等于96分，就輸出“very good!”，如果成績小于96分，就輸出“dont give up”。分組討論，

24、互助合作，完成任務六、總結拓展（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應用?？偨Y獲）1、編寫程序過程中用到的控件的屬性設置及用法 2、程序中用的到分支結構if語句3、用到的函數(shù)、數(shù)據(jù)類型、變量、定義變量、變量賦值、算術運算符第五課 謎語大擂臺（二）一、導入新課（解決一個問題：做什么？）本單元第3課我們設計過一個猜謎游戲，但那個游戲不夠完善。讓學生說出不完善的地方。這節(jié)課我們開發(fā)一個改進程序，教師把做好的程序展示給同學們看。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？

25、如何做？）教師演示程序，學生理解這個謎語玩的過程。分組討論用流程圖描述程序。三、界面設計（解決五個問題：控件的添、刪、移、縮、設置屬性。界面怎樣做？）1、構建界面：學生操作，添加控件，完成界面設計。2、設置對象屬性：根據(jù)程序界面，在屬性窗口中設置每個控件的屬性值。采用自主探究和合作學習形式。設置控件屬性：label1.captiontext1.texttext1.visiblecommand1.captionform1.caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學生參考課本自主學習探究，輸入程序運行調試。完成任務的同學當老師小助手

26、輔導其他同學。教師引導學生讀程序，理解select語句的用法、三個函數(shù)int(),rnd() msgbox()的用法。教師總結分支結構if語句和select語句的用法，區(qū)別。兩者可替代。教師準備兩個if 和select語句的小程序，讓學生讀程序，看哪組同學說出正確結果，加深對兩個分支結構語法的理解。1、謎語command1的click事件代碼private sub command1_click()dim x as integerx = int(1 + 3 * rnd()text2.text = cstr(x)select case xcase 1label1.caption = 哥倆一般高，

27、& vbcr & 每天三出操， & vbcr & _團結互助好， & vbcr & 人人都需要。 & vbcr & vbcr & （打一生活用具）case 2label1.caption = 身體細又長， & vbcr & 肚里黑心腸， _& vbcr & 尖嘴多靈巧， & vbcr & 寫字畫畫它幫忙。 & vbcr & vbcr & （打一學習用具）case 3label1.caption = 兩腳尖尖， & vbcr & 一走一站， _& vbcr & 看看腳印， & vbcr & 盡是圈圈。 & vbcr & vbcr & （打一學習用具）end selectend sub2、退出co

28、mmand3的click事件代碼private sub command3_click()endend sub3、確認command2的click事件代碼private sub command2_click()dim x as integerx = val(text2.text)select case xcase 1if text1.text = 筷子 thenmsgbox 對了！你真聰明！, vbokonly, 祝賀elsemsgbox 不對！請再試一次！, vbokonly, 很遺憾end ifcase 2if text1.text = 鉛筆 thenmsgbox 對了！你真聰明！, vbo

29、konly, 祝賀elsemsgbox 不對！請再試一次！, vbokonly, 很遺憾end ifcase 3if text1.text = 圓規(guī) thenmsgbox 對了！你真聰明！, vbokonly, 祝賀elsemsgbox 不對！請再試一次！, vbokonly, 很遺憾end ifend selectend sub4、謎底command4的click事件代碼private sub command4_click()dim x as integerx = val(text2.text)select case xcase 1msgbox 筷子, vbokonly, 答案case 2m

30、sgbox 鉛筆, vbokonly, 答案case 3msgbox 圓規(guī), vbokonly, 答案end selectend sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）六、總結拓展（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應用?？偨Y獲）1、編寫程序過程中用到的控件的屬性設置及用法 2、程序中用的到分支結構select語句，并與if 語句的區(qū)別，兩種語句的替換用法。3、程序中用到的int(),rnd() msgbox()函數(shù)。第6課 會計小助理一、導入新課（解決一個問題：做什么？）算盤是我

31、國古代偉大發(fā)明之一，由于它的獨特優(yōu)勢今天而仍然成為會計人員的必修課，他們經常用算盤練習計算從1開始連續(xù)加到某個整數(shù)的和，他們計算的結果是否正確？現(xiàn)在我們設計一個程序求“從1連續(xù)加到某個整數(shù)的和”，來驗證打算盤的準確度。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）師生討論分析問題，用流程圖描述“會計小助手”程序。三、界面設計（解決五個問題：控件的添、刪、移、縮、設置屬性。界面怎樣做？）1、構建界面：學生操作，添加控件，完成界面設計。2、設置對象屬性：根據(jù)程序界面，在屬性窗口中設置每個控件的屬性值。設置控件屬性：label1.captionte

32、xt1.texttext1.lockedcommand1.captionform1.caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學生參考課本自主學習探究，for next語句，累加器z=z+x的用法. 把原程序修改為1到100之間奇數(shù)的和。分組討論，看哪個小組的同學先做出來。合小組交流合作完成任務。1、求和command1的click事件代碼private sub command1_click()dim x, y, z as longy = val(text1.text)z = 0for x = 1 to yz = z + xnex

33、t xtext2.text = cstr(z)end sub2、清空command2的click事件代碼private sub command2_click()text1.text = text2.text = end sub3、退出command3的click事件代碼private sub command3_click()endend sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）設計一個程序，求從10加到1000的和六、總結拓展（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應用?？偨Y獲）1、編寫

34、程序過程中用到的控件的屬性設置及用法 2、程序中用的到循環(huán)結構for next語句。第7課 欲與珠峰試比高一、導入新課（解決一個問題：做什么？）珠穆朗瑪峰海撥8844.43米，如果你將一張紙不斷地對折，經過若干次的對折就能高于珠穆朗瑪峰的高度，對折多少次就能做到呢？今天我們就開發(fā)這樣一個程序，來計算一下需要對折的次數(shù)。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）師生討論分析問題，畫出程序流程圖。三、界面設計（解決五個問題：控件的添、刪、移、縮、設置屬性。界面怎樣做？）1、構建界面：學生操作，添加控件，完成界面設計。2、設置對象屬性：根據(jù)程序

35、界面，在屬性窗口中設置每個控件的屬性值。設置屬性：label1.captiontext1.texttext1.lockedtext1.backcolorcommand1.caption四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學生參考課本自主學習探究，分組討論do loop語句的用法。1、對折command1的click事件代碼private sub command1_click()dim i as integerdim h1, h2 as singleh1 = val(text1.text)h2 = 8844.43 * 10000if h1

36、= h2text2.text = cstr(i)end sub2、退出command2的click事件代碼private sub command2_click()endend sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）從1連續(xù)累加到某個最小的數(shù)，使它們的和不小于10000.六、總結拓展（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應用。總結獲）1、編寫程序過程中用到的控件的屬性設置及用法 2、程序中用的到循環(huán)結構do loop 語句用法。第8課 我的媒體播放器一、導入新課（解決一個問題：做什么？

37、）在計算機上你們用什么軟件播放歌曲，用什么軟件播放vcd視頻？我們利用vb來制作一個既能播放歌曲又能聽歌的播放器。二、分析問題（解決對程序感知的兩個問題：程序有幾個事件？分別改變的是什么對象的何種屬性？如何做？）教師展示做好的播放器。師生討論要使用的7個控件。三、界面設計（解決五個問題：控件的添、刪、移、縮、設置屬性。界面怎樣做？）1、構建界面：學生操作，添加控件，完成界面設計。2、設置對象屬性。四、編寫代碼（解決兩個問題：要有幾個對象的什么事件？每個事件要修改的是哪些對象的什么屬性？）學生自主學習，分組討論參考課本來完成。完成任務的同學當老師小助手輔導其他同學。教師引導學生理解commond

38、ialog控件、mmcontrol控件的使用。1、打開command1的click事件代碼private sub command1_click()mmcontrol1.command = closecommondialog1.showopenif option1.value = true then mmcontrol1.devicetype = if option1.value = true then mmcontrol1.devicetype = waveaudioif option1.value = true then mmcontrol1.devicetype = mmcontrol1.

39、filename = commondialog1.filenamemmcontrol1.command = openmmcontrol1.hwnddisplay = picture1.hwndmmcontrol1.command = playend sub2、退出command2的click事件代碼private sub command2_click()endend sub3、form1的dblclick事件代碼private sub form_dblclick()mmcontrol1.command = closemmcontrol1.shareable = trueend sub4、for

40、m1的加載事件代碼private sub form_load()commondialog1.filter = mp3|*.mp3end sub5、option1的click事件代碼private sub option1_click()commondialog1.filter = mp3|*.mp3end sub6、option2的click事件代碼private sub option2_click()commondialog1.filter = wav|*.wavend sub7、option1的click事件代碼private sub option3_click()commondialog1

41、.filter = mpg|*.mpgend sub五、實踐與創(chuàng)新（運用中體驗成功，進一步激發(fā)興趣。用所獲）利用commondialog控件，調出font設置對話框。并評價。六、總結拓展（解決兩個問題：一是梳理總結：是幫助學生梳理本節(jié)所學知識，建構起新的知識體系；二是拓展延伸，這個程序的進一步完善，或其它方面的應用?？偨Y獲）編寫程序過程中用到的控件的屬性設置及用法commondialog控件、mmcontrol控件、pictrue控件和frame控件一、標簽屬性1、name，這是每個控件都有的，即設置標簽對象的名稱。2、alignment，用于設置標簽中文字顯示的對齊方式。0、標簽文字左對齊，

42、這是缺省值；1、標簽文字向右對齊；2、標簽居中。3、autosize，用于設置標簽的外框尺寸是否隨標題大小自動改變。true表示標簽的尺寸將隨標題的更改而更改。false表示不更改，這是默認值。建議一般情況下都盡量設置為true。注意：一旦設置了該屬性為true，則前面的alignment屬性自動失效。道理相信不用我說大家也一定會明白。4、backcolor，上一章已經說過，就是設置背景顏色。5、bordstyle，用于設置背景顏色是否透明顯示。0為以透明方式顯示，1是不以透明方式顯示（缺省值）。一般情況下建議設置為0，這樣就不會因為別人的電腦設置不同而顯示出不用。6、borderstyle，

43、用于設置標簽的邊框形式，當為0時表示不含邊框，這是默認值，1顯示為立體下陷的固定邊框。7、caption，這是標簽的最重要屬性了，因為它的作用就是顯示要表達的文字，即標題。8、forecolor，設置前景色。通過設置這個屬性，標簽顯示才能多姿多彩。9、font，設置標簽字體。10、wordwrap，決定標簽控件是否擴大以顯示標簽文字。二、文本框屬性1、name，這是每個控件的基本屬性，用來設置文本框對象的名稱。2、alignment，用于設置文本框中文字顯示的對齊方式。0、標簽文字左對齊，這是缺省值；1、標簽文字向右對齊；2、標簽居中。3、backcolor，就是設置背景顏色。4、foreco

44、lor，設置前景色。5、multiline，設置文本框是否允許多行文本，如果設置為true，則允許多行文本輸入，false為不允許（默認值）。一般情況下，多數(shù)文本框是應用于單行輸入，如輸入口令、姓名、簡短信息等等，但如果是大篇文章輸入的話，如制作文本編輯器就應該設置為true。注意：文本框是有大小限制的，如果超過64k的話就會出錯。6、passwordchar，用于設置替代用戶輸入的密碼字符，通常用于密碼輸入。一般情況下多數(shù)設置為“*”號，缺省值為空。如果你想讓用戶輸入密碼的話，可要記得設置該屬性哦。7、scrollbars，用于設置文本框是否含有滾動條。共有四個值：0為不含滾動條（默認值），1為水平滾動條，2為垂直滾動條，3為水平、垂直滾動條都有。一般與multiline配合使用。8、maxlength，用于設置文本框中可以容納的字符數(shù)，缺省值為0，表示無限制，如果是其他整數(shù)值，則表示文本框最多可以容納的字符數(shù)。9、borderstyle，用于設置文本框的邊框形式，默認值為1，表示有邊框，0為無邊框，這時跟標簽差不多了吧。10、text，這是文本框最重要的屬性，也就是文本框里面的文本內容。大部分利用文本框編程的都是利用這個屬性來進行編程。按鈕(command)屬性1、name，用來標識按鈕的名稱。一般建議用cmd+用途的英文單詞來起名，如確定按鈕就起名：cmdok