單元：填空題功能的設(shè)計(jì)與實(shí)現(xiàn)

《

VisualBasic程序設(shè)計(jì)項(xiàng)目化教程

》

單元七填空題功能的設(shè)計(jì)與實(shí)現(xiàn)教學(xué)目標(biāo)通過(guò)本課題的學(xué)習(xí)，使學(xué)生掌握文本框控件的基本設(shè)置和使用方法。掌握填空題的題目讀取、答案讀取和答案保存的方法。教學(xué)重點(diǎn)文本框控件的基本屬性、方法和事件。7.1任務(wù)描述7.2相關(guān)知識(shí)點(diǎn)7.3任務(wù)分析7.4任務(wù)設(shè)計(jì)7.5任務(wù)實(shí)現(xiàn)7.6任務(wù)拓展授課內(nèi)容7.1任務(wù)描述填空題界面由1個(gè)標(biāo)簽和1個(gè)文本框控件組成。當(dāng)單擊目錄樹填空題下的結(jié)點(diǎn)時(shí)，根據(jù)目錄樹控件選中的結(jié)點(diǎn)顯示該題的題目?jī)?nèi)容和考生答案。當(dāng)考生答案失去輸入焦點(diǎn)時(shí)，將對(duì)應(yīng)的答案保存到數(shù)據(jù)庫(kù)中。7.2相關(guān)知識(shí)點(diǎn)7.2.1電影(ActiveMovie)控件7.2.2動(dòng)畫(Animation)控件7.2.3多媒體(MMControl)控件7.2.4數(shù)據(jù)組合框(DataCombo)控件7.2.5數(shù)據(jù)型電子表格(DataGrid)控件7.2.6電子表格(MSFlexGrid)控件7.2.7數(shù)據(jù)列表(DataList)控件7.2.8圖像組合框(ImageCombo)控件7.2相關(guān)知識(shí)點(diǎn)7.2.9圖像列表(ImageList)控件7.2.10圖表(MSChard)控件7.2.11月視圖(MonthView)控件7.2.12進(jìn)度欄(ProgressBar)控件7.2.13RichTextBox控件7.2.14滑動(dòng)塊(Slider)控件7.2.15選項(xiàng)卡(SSTab)控件7.2.16UpDown控件7.2.1電影(ActiveMovie)控件屬性說(shuō)明(Name)ActiveMovie控件的名稱AutoRewind媒體播放完后是否自定重放。取值為：True或FalseAutoStart在打開媒體文件后是否自定播放。取值為：True或FalseVolume獲得或設(shè)置多媒體音量7.2.2動(dòng)畫(Animation)控件屬性說(shuō)明(Name)Animation框控件的名稱AutoPlay獲得或設(shè)置Animation控件是否自動(dòng)播放。取值為：True或FalseCenter獲得或設(shè)置.avi的播放是否居中。取值為：

True根據(jù)圖像的大小，在控件中心居中播放.avi文件，此為默認(rèn)值。

Falseavi文件定位在控件內(nèi)的(0,0)處。7.偷2.傳3多媒烘體(M姨MC辛on強(qiáng)tr鞏ol掌)控件屬性說(shuō)明(Name)多媒體(MMControl)控件的名稱AutoEnable決定多媒體MCI控件是否能自動(dòng)啟動(dòng)或禁止控件中的每個(gè)按鈕。取值為：True或FalseFileName以"打開"命令指定要打開的文件，或以"保存"命令指定要保存的文件。7.孫2.帆4數(shù)據(jù)勇組合查框(D弓at耍aC告om喜bo艘)控件屬性說(shuō)明(Name)數(shù)據(jù)組合框(DataCombo)控件的名稱(自定義)打開屬性頁(yè)DataField獲得或設(shè)置一個(gè)值，將控件綁定到當(dāng)前記錄的一個(gè)字段DataFormat返回?cái)?shù)據(jù)格式對(duì)象，用于該部件的可綁定性(打開屬性頁(yè))DataMember獲得或設(shè)置一個(gè)值，為數(shù)據(jù)連接描述數(shù)據(jù)成員DataSource設(shè)置一個(gè)數(shù)值，指出數(shù)據(jù)控件通過(guò)它將當(dāng)前控件綁定到數(shù)據(jù)庫(kù)Text獲得或設(shè)置控件中包含的文本7.借2.屆5數(shù)據(jù)織型電械子表齊格(D孤at登aG賊ri秤d)控件屬性說(shuō)明(Name)數(shù)據(jù)型電子表格控件的名稱(自定義)打開屬性頁(yè)Align獲得或設(shè)置一個(gè)值，決定對(duì)象在窗體上的位置。取值為：

0vbAlignNone(自選)、1vbAlignTop(頂端)、2vbAlignBottom(底端)、3vbAlignLeft(左端)、4vbAlignRight(右端)AllowAddNew允許添加交互紀(jì)錄。取值為：True或FalseAllowDelete允許刪除交互紀(jì)錄。取值為：True或FalseAllowUpdate允許或禁止紀(jì)錄更新。取值為：True或FalseCaption獲得或設(shè)置網(wǎng)絡(luò)標(biāo)題文本DataMember獲得或設(shè)置一個(gè)值，為數(shù)據(jù)連接描述數(shù)據(jù)成員DataSource獲得或設(shè)置控件的數(shù)據(jù)源7.咐2.疫6電子柏表格(M導(dǎo)SF蜻le拿xG廚ri揚(yáng)d)控件屬性說(shuō)明(Name)電子表格控件的名稱(自定義)打開屬性頁(yè)Clos決定FlexGrid中的總列數(shù)FillStyle決定是否設(shè)置FlexGrid的文本屬性或單元格屬性之一可以應(yīng)用到全部已選的單元。取值為：

0flexFillSingle或1flexFillRepeatFixedCols獲得或設(shè)置FlexGrid的固定（不可滾動(dòng)）列的總數(shù)FixedRows獲得或設(shè)置FlexGrid的固定（不可滾動(dòng)）行的總數(shù)PictureType獲得或設(shè)置應(yīng)由Picture屬性生成的圖片類型。取值為：

0flexPictureColor

1flexPictureMonochromeRows決定電子表格中的行的總數(shù)。7.答2.只7數(shù)據(jù)授列表(D耍at浮aL般is龜t)控件屬性說(shuō)明(Name)數(shù)據(jù)列表(DataList)控件的名稱DataBindings獲得或設(shè)置一數(shù)據(jù)綁定集合對(duì)象，他收集開發(fā)人員可利用的可綁定屬性。DataField獲得或設(shè)置一個(gè)值，將控件綁定到當(dāng)前記錄的一個(gè)字段DataFormat返回?cái)?shù)據(jù)格式對(duì)象，用于該部件的可綁定性DataMember獲得或設(shè)置一個(gè)值，為數(shù)據(jù)連接描述數(shù)據(jù)成員DataSource設(shè)置一個(gè)數(shù)值，指出數(shù)據(jù)控件通過(guò)它將當(dāng)前控件綁定到數(shù)據(jù)庫(kù)RowMember獲得或設(shè)置RowSource的數(shù)據(jù)成員名RowSource返回或設(shè)置列表項(xiàng)數(shù)據(jù)源7.濤2.統(tǒng)8圖像目組合瓣框(I薦ma露ge繞Co強(qiáng)mb督o)控件屬性說(shuō)明(Name)圖像組合框(ImageCombo)控件的名稱DataBindings獲得或設(shè)置一數(shù)據(jù)綁定集合對(duì)象，他收集開發(fā)人員可利用的可綁定屬性。DataField獲得或設(shè)置一個(gè)值，將控件綁定到當(dāng)前記錄的一個(gè)字段DataFormat返回?cái)?shù)據(jù)格式對(duì)象，用于該部件的可綁定性(打開屬性頁(yè))DataMember獲得或設(shè)置一個(gè)值，為數(shù)據(jù)連接描述數(shù)據(jù)成員DataSource設(shè)置一個(gè)數(shù)值，指出數(shù)據(jù)控件通過(guò)它將當(dāng)前控件綁定到數(shù)據(jù)庫(kù)Text獲得或設(shè)置控件中包含的文本7.共2.抵9圖像膨列表(I擱ma暮ge錫Li鉛st燙)控件屬性說(shuō)明(Name)圖像列表控件的名稱ImageHeight圖像列表控件控件的高度ImageWidth圖像列表控件控件的寬度Index在對(duì)象數(shù)組中的編號(hào)MaskColor獲得或設(shè)置一個(gè)值，決定在圖像列表的圖形操作中透明的顏色?？蓮膹棾龅恼{(diào)色板選擇。UseMaskColor獲得或設(shè)置一個(gè)值，決定圖像列表控件是否使用MaskColor屬性。取值為：True或False7.少2.櫻10圖表(M智SC已ha槐rd仁)控件屬性說(shuō)明MaxDate獲得或設(shè)置能被顯示或者通過(guò)控件接受的最近的日期。MaxSelCount獲得或設(shè)置限制在用戶能多重選擇日期的數(shù)量。MinDate獲得或設(shè)置能被顯示或者通過(guò)控件接受的最早期的日期。MonthColumns獲得或設(shè)置顯示水平控件的月的數(shù)量。MonthRows獲得或設(shè)置顯示在控件中垂直的月的數(shù)量。ScrollRate返回或設(shè)置某個(gè)值來(lái)決定當(dāng)用戶單擊滑動(dòng)按鈕時(shí)控件移動(dòng)的月的數(shù)量。ShowToday返回或設(shè)置某個(gè)值來(lái)決定控件是否在MonthView的底部顯示‘Todayxx/xx/xx’文字。取值為：True或FalseShowWeekNumbers返回或設(shè)置某個(gè)值來(lái)決定控件是否在每一天的行的左邊顯示星期數(shù)。取值為：True或FalseStartOfWeek返回或設(shè)置某個(gè)值來(lái)決定控件是否在每一天的縱列的左邊顯示星期數(shù)[Mon-Sun]。Value獲得或設(shè)置當(dāng)前選擇日期Week獲得或設(shè)置當(dāng)前選定日期的星期數(shù)量[1-52]7.脹2.箏11月視叢圖(M線on舊th策Vi燙ew押)控件屬性說(shuō)明(Name)圖表控件的名稱chartType獲得或設(shè)置用于圖示數(shù)據(jù)網(wǎng)格中數(shù)據(jù)的圖表類型。Column獲得或設(shè)置數(shù)據(jù)網(wǎng)格的活動(dòng)列。Data獲得或設(shè)置數(shù)據(jù)網(wǎng)格中由Column和Row標(biāo)識(shí)的指定數(shù)據(jù)點(diǎn)的值。DataMember獲得或設(shè)置一個(gè)值，為數(shù)據(jù)連接描述數(shù)據(jù)成員DataSource獲得或設(shè)置控件的數(shù)據(jù)源Row獲得或設(shè)置數(shù)據(jù)網(wǎng)格活動(dòng)行。SeriesType獲得或設(shè)置用于顯示由Column屬性標(biāo)識(shí)的系列的圖表類型。ShowLegend決定圖表中是否顯示圖例。取值為：True或FalseTitleText獲得或設(shè)置圖表標(biāo)題文本7.兔2.絞12進(jìn)度植欄(P甘ro峽gr腰es免sB哪ar彈)控件屬性說(shuō)明(Name)進(jìn)度欄(ProgressBar)控件的名稱Align獲得或設(shè)置一個(gè)值，決定對(duì)象在窗體上的位置。Height進(jìn)度欄(ProgressBar)控件的高度Max獲得或設(shè)置控件的最大值Min獲得或設(shè)置控件的最小值Scrolling獲得或設(shè)置一個(gè)值，決定該控件顯示進(jìn)度時(shí)是使用標(biāo)準(zhǔn)的分段進(jìn)度欄，還是使用平滑的進(jìn)度欄。7.插2.異13Ri軍ch毛Te寸xt鹿Bo狼x控件屬性說(shuō)明(Name)RichTextBox控件的名稱FileName獲得或設(shè)置設(shè)計(jì)時(shí)加載到RichTextBox控件的文件的文件名。HeightRichTextBox控件的高度MaxLength獲得或設(shè)置一個(gè)值，指出RichTextBox控件是否有該控件能夠包含的最大字符數(shù)，如果有，指定該最大數(shù)。MultiLine返回或設(shè)置一個(gè)值，指出RichTextBox控件是否能接受和顯示多行文本。取值為：

True或FalseRightMargin設(shè)置文本換行、居中對(duì)齊等情況下的右邊距。ScrollBars返回或設(shè)置一個(gè)值，指出RichTextBox控件是否有水平或垂直滾動(dòng)條。Text獲得或設(shè)置一個(gè)對(duì)象所包含的文本。WidthRichTextBox控件寬度7.粒2.瞧14滑動(dòng)悔塊(S踢li言de私r)控件屬性說(shuō)明(Name)滑動(dòng)塊控件對(duì)象的名稱BorderStyle獲得或設(shè)置邊界樣式。Height滑動(dòng)塊控件對(duì)象的高度Max獲得或設(shè)置控件的最大值Min獲得或設(shè)置控件的最小值SelectRange獲得或設(shè)置滑動(dòng)控件是否能有選定區(qū)域。取值為：

True或FalseSelLength獲得或設(shè)置選定的長(zhǎng)度SelStart獲得或設(shè)置選定起始位置的值。SmallChange獲得或設(shè)置按下左箭頭或右箭頭時(shí)增加的值。TextPosition獲得或設(shè)置一個(gè)值，決定有關(guān)滑塊改變位置的工具提示所顯示的位置。Value獲得或設(shè)置對(duì)象的值。Width設(shè)置該對(duì)象的寬度7.捎2.腹15選項(xiàng)判卡(S益ST催ab偉)控件屬性說(shuō)明Caption獲得或設(shè)置活動(dòng)選項(xiàng)卡中顯示的文本Picture指定一個(gè)在當(dāng)前選項(xiàng)卡位置顯示的位圖。Style獲得或設(shè)置選項(xiàng)卡的樣式。Tab獲得或設(shè)置活動(dòng)的選項(xiàng)卡號(hào)TabHeight獲得或設(shè)置選項(xiàng)卡的高度TabIndex獲得或設(shè)置父窗體中對(duì)象響應(yīng)Tab鍵的順序。TabMaxWidth獲得或設(shè)置每個(gè)選項(xiàng)卡最大寬度TabOrientation獲得或設(shè)置一個(gè)值，決定選項(xiàng)卡出現(xiàn)在控件的哪一邊。Tabs獲得或設(shè)置選項(xiàng)卡數(shù)目TabsPerRow獲得或設(shè)置在每一行中出現(xiàn)的選項(xiàng)卡號(hào)。7.患2.潛16Up考Do繡wn控件屬性說(shuō)明(Name)UpDown控件的名稱Alignment獲得或設(shè)置該控件與它的綁定控件的對(duì)齊方式。Increment獲得或設(shè)置每一次單擊時(shí)改變的值Max獲得或設(shè)置滾動(dòng)范圍的上界值Min獲得或設(shè)置滾動(dòng)范圍的下界值Value獲得或設(shè)置控件的當(dāng)前值7.3任務(wù)展分析要完木成任柱務(wù)描旺述的肌功能彼，應(yīng)鉤該實(shí)蝦現(xiàn)以爸下功徒能：1．顯俱示題養(yǎng)目?jī)?nèi)典容；2．顯爬示考薪生答鵝案；3．保鹿存考挽生答繩案。7.4嫌.1功能描述7.4棵.2界面設(shè)計(jì)7.4捕.3屬性監(jiān)設(shè)計(jì)7.4任務(wù)蛛設(shè)計(jì)7.4酷.1功能牧描述填空晶題界厚面由1個(gè)標(biāo)獅簽和1個(gè)文炮本框?qū)O控件游組成裂。當(dāng)策單擊哭目錄渴樹填栽空題計(jì)下的傲結(jié)點(diǎn)話時(shí)，裹根據(jù)龜目錄條樹控宰件選請(qǐng)中的僚結(jié)點(diǎn)墾顯示許該題獸的題研目?jī)?nèi)惰容和腸考生響答案參。當(dāng)足考生幼答案桿失去抵輸入極焦點(diǎn)第時(shí)，馳將對(duì)艘應(yīng)的捐答案薪保存苗到數(shù)耕據(jù)庫(kù)跡中。運(yùn)行溫情況芝：運(yùn)旗行界致面如姿圖7-醋1所示。7.縱4.蒼1功能秀描述圖7-壁1填空持題運(yùn)電行界旁面7.懂4.羨2界面壤設(shè)計(jì)填空嶼題界儉面由1個(gè)標(biāo)券簽和1個(gè)文擦本框往控件惱組成炮，界榴面如忘圖7-培2所示雪。圖7-終2填空膜題設(shè)犬計(jì)界誦面7.壟4.橋3屬性腰設(shè)計(jì)控件類型控件名稱控件屬性FramefrmClozeCaption=”填空題”FontSize=”小四”Visible=FalseLabellblClozeTopicHeight=750BackColor=&H80000010&FontSize=”小四”TextBoxtxtClozeKeyHeight=750Text=””FontSize=”小四”7.汁5任務(wù)實(shí)現(xiàn)①胃修改淡主界圾面代列碼，昌實(shí)現(xiàn)拐單選葵題各蝴控件麗的位板置和恰大小朝的自津動(dòng)排戀列。Pr駝iv途at攔e役Su魚b堡Fo湖rm諒_R峽es監(jiān)iz誤e(誓)……魂(略)'填空薪題控漏件fr貸mC申lo長(zhǎng)ze酸.L燙ef厲t=治tv毅wT遷op惡ic米.L先ef頂t+生tv眨wT休op周ic供.W垂id照th瓶+1再0fr降mC動(dòng)lo牽ze請(qǐng).T同op瞧=t物vw姥To喝pi龍c.誓To啄pfr擠mC賺lo念ze公.H吸ei脂gh頁(yè)t=止tv貓wT掠op皇ic幣.H悟ei沸g(shù)h臭tlb情lC去lo浮ze查To避pi現(xiàn)c.貨To廁p=討20椒*吸1跪5lb塞lC膜lo韻ze坐To搞pi銅c.揪Le折ft例=2援0繁*陵15lb召lC坦lo嗓ze突To校pi媽c.塌Wi帳dt乘h=窩(f焰rm印Cl售oz呀e.劑Wi瓜dt拌h-似40昨)*15tx系tC彈lo鉆ze床Ke融y.艘To文p=輩lb關(guān)lC某lo語(yǔ)ze委To彩pi霧c.滋To羊p藏+寨lb避lC盡lo練ze剛To策pi憐c.旗He感ig芳ht里+2費(fèi)0tx短tC眾lo豪ze就Ke忙y.闖Le枕ft崗=l大bl樹Cl愉oz圣eT鋼op億ic拍.L忌ef泊ttx高tC龍lo銳ze浴Ke領(lǐng)y.卵Wi備dt害h=母lb徒lC騰lo膏ze蹦To苦pi籃c.慘Wi用dt北hEn毫d挖Su裹b7.5任務(wù)實(shí)現(xiàn)②盛修改固主界眉面代渡碼，項(xiàng)讀取淋填空彼題的踐題目散內(nèi)容屠、考臨生答腫案。Pr患iv裕at趙e徐Su漿b察tv嘩wT壤op氣ic工_C籌li備ck駕()If觀N裙ot片(扔tv摘wT區(qū)op緒ic列.S棒el福ec立te御dI萬(wàn)te衫m(xù).掉Pa文re島nt斜I撥s諷No凳th壘in崖g)啄T胖he難n……莖(略)If谷t焦vw昌To輝pi逮c.樸Se餅le斑ct對(duì)ed茅It菊em洞.P侄ar紐奉en咱t.仇Te怪xt認(rèn)="填空物題"謀Th菌enAd謀od夾c1肢.R缸ec速or乖dS述ou齡rc蛾e=低"s痛el稀ec廣t寄*滅fr咽om缺c顆lo扭ze捆w匯he菊re籮s向tu扶de旬nt眼co認(rèn)de搏='閉"+S遲tu脅de摔nt坑Co輸de+艱"'塔"Ad盼od翻c1懂.R案ef偶re述sh'定位懼記錄Fo叨r梁i=路1拐To寸M甘id稠(t災(zāi)vw色To范pi爭(zhēng)c.啄Se帖le晌ct氏ed膠It舅em踐.K頂ey殺,唱6)許-1Ne園xti'讀取猛試題lb轉(zhuǎn)lC頓lo錫ze婚To欠pi嫂c.寺Ca口pt隔io識(shí)n徹=廊"第,穗6)+"題："魯+和Ad盤od慚c1梢.R巡壽ec仆or球ds航et識(shí).F屠ie播ld印s.享It鴉em買("岡to遙pi厘c"列).Va眾lu彩e7.撈5任務(wù)實(shí)現(xiàn)'讀取碑答案tx臘tC堵lo遺ze胃Ke專y.底Te丟xt層=A抓do戲dc對(duì)1.山Re甚co悲rd姥se謀t.啦Fi嬸el蝴ds勒("恰st乒uK程ey辦")湯.V踢al皆u(píng)e'顯示代填空抗題控?fù)渭r她mC胸lo皆ze勾.V旦is挎ib水le殃=扒T勸ru余eEl亂