VB菜單編輯器教案

1、 計(jì)算機(jī) 科教案 200級(jí)14班 第二學(xué)期 備課時(shí)間：年月日課題菜單編輯器授課教師教學(xué)目的與要求認(rèn)識(shí)菜單編輯器掌握它掌握菜單編輯器使用編輯方法課型新授課教具基于計(jì)算機(jī)的多媒體投影設(shè)備教材分析重點(diǎn)1、下拉式菜單2、彈出式菜單 （或稱快捷菜單）難點(diǎn)1、 菜單的各個(gè)部件使用方法2、 在實(shí)際編程中對(duì)菜單的控制教學(xué)方法1、課件演示法：應(yīng)用多媒體課件進(jìn)行輔助教學(xué)，激發(fā)學(xué)生學(xué)習(xí)興趣2、講練結(jié)合法：教師講解一部分內(nèi)容后，引導(dǎo)學(xué)生進(jìn)行思考練習(xí)。3、啟發(fā)式教學(xué)法：引導(dǎo)、啟發(fā)學(xué)生（提出問題，解決問題）4、提問、點(diǎn)撥、對(duì)比學(xué)習(xí)教學(xué)時(shí)數(shù)1課時(shí)1 / 13板書安排復(fù)習(xí) 主要屬性，click事件新課1 掌握下拉式菜單的建立

2、方法2 掌握彈出式菜單的建立方法3 掌握簡單的菜單編程4 掌握菜單的控制方法5 知識(shí)小結(jié)課后作業(yè)計(jì)算機(jī) 科教案（乙）授課時(shí)間2007年4月12日星期四第4節(jié)班級(jí)05級(jí)14班第1頁時(shí)間安排教學(xué)內(nèi)容、教學(xué)過程教學(xué)方法與學(xué)習(xí)指導(dǎo)3分鐘打開一個(gè)典型的菜單例子，如記事本讓學(xué)生試著分析每一個(gè)菜單的部件和排版 1. 打開【菜單編輯器】的方法 通過以下四種方法可以打開【菜單編輯器】：（1） 在【工具】菜單中選擇【菜單編輯器】選項(xiàng)。（2） 在工具欄上單擊【菜單編輯器】按鈕。（3） 在當(dāng)前窗體上單擊鼠標(biāo)右鍵，將彈出一個(gè)快捷菜單，然后選擇【菜單編輯器】選項(xiàng)。（4）在當(dāng)前窗體上使用熱鍵“Ctrl + E”邊演示邊指出

3、例子中的幾個(gè)重要屬性和方法1、引入打開的方法計(jì)算機(jī) 科教案（乙）授課時(shí)間2007年4月12日星期四第4節(jié)班級(jí)05級(jí)14班第2頁時(shí)間安排教學(xué)內(nèi)容、教學(xué)過程教學(xué)方法與學(xué)習(xí)指導(dǎo)10分鐘2. 【菜單編輯器】的結(jié)構(gòu)【菜單編輯器】主要分為三個(gè)部分，即數(shù)據(jù)區(qū)、編輯區(qū)和菜單項(xiàng)顯示區(qū)。3、【菜單編輯器】的對(duì)話框選項(xiàng) 1“標(biāo)題” ：使用該選項(xiàng)可以輸入菜單名或命令名，這些名字出現(xiàn)在菜單條或菜單之中。 如果想在菜單中建立分隔符條，則應(yīng)在Caption 框中鍵入一個(gè)連字符 (-)。為了能夠通過鍵盤訪問菜單項(xiàng)，可在一個(gè)字母前插入 & 符號(hào)。在運(yùn)行時(shí)，該字母帶有下劃線（& 符號(hào)是不可見的），按 ALT 鍵和

4、該字母就可訪問菜單或命令。如果要在菜單中顯示 & 符號(hào)，則應(yīng)在標(biāo)題中連續(xù)輸入兩個(gè) & 符號(hào)。2 “名稱” ：用來為菜單項(xiàng)輸入控件名?？丶菢?biāo)識(shí)符，僅用于訪問代碼中的菜單項(xiàng)；它不會(huì)出現(xiàn)在菜單中。 3 “索引” ：可指定一個(gè)數(shù)字值來確定控件在控件數(shù)組中的位置。該位置與控件的屏幕位置無關(guān)。4 “快捷鍵” ：可在列表框中為每個(gè)命令選擇快捷鍵。 5 “幫助上下文 ID” 。允許為 context ID 指定唯一數(shù)值。在 HelpFile 屬性指定的幫助文件中用該數(shù)值查找適當(dāng)?shù)膸椭黝}。 6 “協(xié)調(diào)位置” ：該列表框中共有四個(gè)可選項(xiàng)，他們決定是否及如何在容器窗體中顯示菜單。 7 “復(fù)選”

5、 ：允許在菜單項(xiàng)的左邊設(shè)置復(fù)選標(biāo)記。通常用它來指出切換選項(xiàng)的開關(guān)狀態(tài)。 1、介紹編輯器的結(jié)構(gòu)2、提出問題：各個(gè)部件各有什么用處1、制作一個(gè)簡單的菜單計(jì)算機(jī) 科教案（乙）授課時(shí)間2007年4月12日星期四第四節(jié)班級(jí)05級(jí)14班第3頁時(shí)間安排教學(xué)內(nèi)容、教學(xué)過程教學(xué)方法與學(xué)習(xí)指導(dǎo)8 “有效” ：由此選項(xiàng)可決定是否讓菜單項(xiàng)對(duì)事件做出響應(yīng)，而如果希望該項(xiàng)失效并以淺灰色顯示出來，則也可取消對(duì)該復(fù)選框的選用。 9 “可見”：決定是否將菜單項(xiàng)顯示在菜單上。 10 “顯示窗口列表” ：在 MDI 應(yīng)用程序中，確定菜單控件是否包含一個(gè)打開的 MDI 子窗體列表。 11 “右箭頭” “”：每次單擊都把選定的菜單向右

6、移一個(gè)等級(jí)。一共可以創(chuàng)建四個(gè)子菜單等級(jí)。 12 “左箭頭” “”：每次單擊都把選定的菜單向上移一個(gè)等級(jí)。一共可以創(chuàng)建四個(gè)子菜單等級(jí)。 13 “上箭頭” “ ：每次單擊都把選定的菜單項(xiàng)在同級(jí)菜單內(nèi)向上移動(dòng)一個(gè)位置。 14 “下箭頭” “”：“下箭頭” 。每次單擊都把選定的菜單項(xiàng)在同級(jí)菜單內(nèi)向下移動(dòng)一個(gè)位置。 15 “菜單列表” ：該列表框顯示菜單項(xiàng)的分級(jí)列表。將子菜單項(xiàng)縮進(jìn)以指出它們的分級(jí)位置或等級(jí)。 15 “下一個(gè)” ：將選定項(xiàng)移動(dòng)到下一行，往往是為建立下一個(gè)菜單項(xiàng)準(zhǔn)備。 16 “插入” ：在列表框的當(dāng)前選定行上方插入一行。 17 “刪除” ：刪除當(dāng)前選定行。 18 “確定” ：關(guān)閉菜單編輯器

7、，并對(duì)選定的最后一個(gè)窗體進(jìn)行修改。菜單可以在設(shè)計(jì)時(shí)使用，但在設(shè)計(jì)時(shí)可以通過選定一個(gè)菜單，來打開菜單單擊事件的“代碼”窗口，而不是執(zhí)行事件代碼。 19 “取消” ：關(guān)閉菜單編輯器，取消所有修改。1、讓學(xué)生理解style屬性，并根據(jù)需要設(shè)置該屬性值。2、組合框的輸入的另外兩種方法，兩種方法可以混合使用。3、定義組合框顯示內(nèi)容的兩種方法：Listindex屬性、text屬性4、索引值與字符串?dāng)?shù)組的下標(biāo)相對(duì)應(yīng)。5、對(duì)比學(xué)習(xí)屬性、方法計(jì)算機(jī) 科教案（乙）授課時(shí)間2007年4月12日星期四第4節(jié)班級(jí)05級(jí)14班第4頁時(shí)間安排教學(xué)內(nèi)容、教學(xué)過程教學(xué)方法與學(xué)習(xí)指導(dǎo)12分鐘舉例演示：例題1（加減運(yùn)算）要求：建立

8、一個(gè)如圖所示的菜單，用戶可以通過選擇菜單中的菜單項(xiàng)改變文本框中內(nèi)容的外觀。步驟一：完成界面設(shè)計(jì)使用的控件有：3個(gè)文本框、2個(gè)標(biāo)簽框、下拉式菜單步驟二：設(shè)計(jì)設(shè)置：（1）建立控件 在窗體上添加一個(gè)文本框，將它的Text屬性置為空。（2）設(shè)計(jì)菜單在窗體設(shè)計(jì)狀態(tài)下選擇“工具”菜單下的“菜單編輯器”命令，調(diào)出菜單設(shè)計(jì)窗口。在菜單設(shè)計(jì)窗口中，按下表設(shè)計(jì)菜單項(xiàng)。 步驟三：代碼設(shè)置1、組合框內(nèi)容輸入的第四種方法。2提醒學(xué)生養(yǎng)成良好的編程習(xí)慣，書寫時(shí)注意配對(duì)對(duì)齊3、黑體部分請(qǐng)學(xué)生填空。計(jì)算機(jī) 科教案（乙）授課時(shí)間2007年4月12日星期四第4節(jié)班級(jí)05級(jí)14班第5頁時(shí)間安排教學(xué)內(nèi)容、教學(xué)過程教學(xué)方法與學(xué)習(xí)指導(dǎo)1

9、2分鐘3分鐘Private Sub ht_Click() Text1.FontName = ht.Caption End SubPrivate Sub HWCY_Click() '"華文彩云" Text1.FontName = HWCY.Caption End SubPrivate Sub st_Click() Text1.FontName = st.Caption End SubPrivate Sub ct_Click() Text1.FontBold = Not Text1.FontBoldEnd SubPrivate Sub xt_Click() Text1.

10、FontItalic = Not Text1.FontItalicEnd Sub二、項(xiàng)目二：創(chuàng)建彈出式菜單1、模仿練習(xí)在模仿中學(xué)習(xí)和鞏固2、觀察學(xué)生的完成情況3請(qǐng)一名同學(xué)上臺(tái)操作。6、分析與總結(jié)完成情況。7、回答問題：組合框和列表框的區(qū)別，引導(dǎo)學(xué)生進(jìn)一步獨(dú)立思考和總結(jié)計(jì)算機(jī) 科教案（乙）授課時(shí)間2007年4月12日星期四第4節(jié)班級(jí)05級(jí)14班第5頁時(shí)間安排教學(xué)內(nèi)容、教學(xué)過程教學(xué)方法與學(xué)習(xí)指導(dǎo)12分鐘3分鐘步驟一：完成界面設(shè)計(jì)步驟二：代碼設(shè)置：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Po