《visual_c#_2010程序》課程設(shè)計(jì)報(bào)告

瓊州學(xué)院電子信息工程學(xué)院VISUALC2010程序課程設(shè)計(jì)報(bào)告項(xiàng)目名稱NET程序設(shè)計(jì)實(shí)驗(yàn)課程建設(shè)專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)年級(jí)2010級(jí)姓名李欣徐嘉學(xué)號(hào)1023705810237070指導(dǎo)老師熊志斌2013年6月實(shí)驗(yàn)實(shí)驗(yàn)1C語法基礎(chǔ)實(shí)驗(yàn)?zāi)康模?）掌握VISUALSTUDIO2010集成開發(fā)環(huán)境的使用方法；（2）掌握C應(yīng)用程序的基本結(jié)構(gòu)、開發(fā)過程和方法；（3）掌握C語言的基礎(chǔ)知識(shí)及使用。實(shí)驗(yàn)要求編寫簡(jiǎn)單C控制臺(tái)應(yīng)用程序（1）定義學(xué)生成績(jī)的數(shù)組；（2）對(duì)學(xué)生成績(jī)排序；（3）按照從高分到低分順序輸出，并判斷等級(jí)。實(shí)驗(yàn)準(zhǔn)備和說明（1）具備知識(shí)數(shù)組定義，排序算法，選擇結(jié)構(gòu)的使用。（2）準(zhǔn)備本次上機(jī)所需要的程序。（3）創(chuàng)建本次實(shí)驗(yàn)項(xiàng)目文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)1”實(shí)驗(yàn)內(nèi)容和步驟1啟動(dòng)VISUALSTUDIO2010打開計(jì)算機(jī)，啟動(dòng)MICROSOFTVISUALSTUDIO2010系統(tǒng)。2創(chuàng)建工程并添加代碼選擇“文件”“新建項(xiàng)目”菜單命令，顯示出“新建項(xiàng)目”對(duì)話框。單擊“已安裝的模版”選項(xiàng)，在左邊的列表框中選擇VISUALC語言，在右邊的列表框中選擇“控制臺(tái)應(yīng)用程序”在項(xiàng)目名稱框中輸入TEXT。單擊瀏覽按鈕將項(xiàng)目定位到文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)3”。USINGSYSTEMUSINGSYSTEMCOLLECTIONSGENERICUSINGSYSTEMLINQUSINGSYSTEMTEXTNAMESPACETESTCLASSPROGRAMSTATICVOIDMAINSTRINGARGSINTI,J,TEMP0INTSCONEWINT856,77,90,76,88,57,94,81/定義、初始化成績(jī)的數(shù)組STRINGGRADENEWSTRING8/定義成績(jī)等級(jí)數(shù)組FORI0I“CC1C2CONSOLEWRITELINECREALTOSTRING“CIMAGETOSTRING“I“CC1C2CONSOLEWRITELINECREALTOSTRING“CIMAGETOSTRING“I“CC1C2CONSOLEWRITELINECREALTOSTRING“CIMAGETOSTRING“I“CC1/C2CONSOLEWRITELINECREALTOSTRING“CIMAGETOSTRING“I“CONSOLEREADLINE3運(yùn)行并測(cè)試運(yùn)行程序，結(jié)果如圖21所示。圖21復(fù)數(shù)的加減乘除示例圖實(shí)驗(yàn)3繼承與多態(tài)實(shí)驗(yàn)?zāi)康模?）初步掌握面向?qū)ο蟪绦蛟O(shè)計(jì)繼承和多態(tài)的概念；（2）掌握繼承和多態(tài)的C實(shí)現(xiàn)方法；（3）了解繼承和多態(tài)的作用。實(shí)驗(yàn)要求設(shè)計(jì)基本幾何圖形的繼承層次結(jié)構(gòu)，并編程實(shí)現(xiàn)其中的類，封裝類中的所有字段，通過屬性提供對(duì)外的接口；使用繼承實(shí)現(xiàn)幾何圖形的層次結(jié)構(gòu)（3層）；計(jì)算各種圖形的面積和周長(zhǎng)；實(shí)驗(yàn)準(zhǔn)備和說明（1）具備知識(shí)C繼承、接口、抽象方法、虛方法、多態(tài)。（2）準(zhǔn)備本次上機(jī)所需要的程序。（3）創(chuàng)建本次實(shí)驗(yàn)項(xiàng)目文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)3”實(shí)驗(yàn)內(nèi)容和步驟1啟動(dòng)VISUALSTUDIO2010打開計(jì)算機(jī)，啟動(dòng)MICROSOFTVISUALSTUDIO2010系統(tǒng)。2創(chuàng)建工程并添加代碼選擇“文件”“新建項(xiàng)目”菜單命令，顯示出“新建項(xiàng)目”對(duì)話框。單擊“已安裝的模版”選項(xiàng)，在左邊的列表框中選擇VISUALC語言，在右邊的列表框中選擇“控制臺(tái)應(yīng)用程序”在項(xiàng)目名稱框中輸入JI_CHENG。單擊瀏覽按鈕將項(xiàng)目定位到文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)3”。在打開的文檔窗口中輸入下面的代碼2USINGSYSTEMUSINGSYSTEMCOLLECTIONSGENERICUSINGSYSTEMLINQUSINGSYSTEMTEXTNAMESPACEJI_CHENGCLASSPROGRAMPUBLICABSTRACTCLASSSHAPE/抽象類PUBLICABSTRACTDOUBLEAREAPUBLICABSTRACTDOUBLELENGTHPUBLICCLASSCIRCLESHAPE/圓繼承SHAPE類PUBLICDOUBLER/半徑PUBLICDOUBLER/屬性RGETRETURNRSETRVALUEPUBLICOVERRIDEDOUBLEAREA/面積RETURNMATHPIMATHPOWR,2PUBLICOVERRIDEDOUBLELENGTH/周長(zhǎng)RETURNMATHPI2RPUBLICCIRCLEDOUBLERTHISRRPUBLICCLASSSQUARESHAPE/正方形繼承SHAPE類PUBLICDOUBLEEDGE/邊長(zhǎng)PUBLICDOUBLEEDGE/屬性EDGEGETRETURNEDGESETEDGEVALUEPUBLICOVERRIDEDOUBLEAREA/重載AREA方法RETURNMATHPOWEDGE,2PUBLICOVERRIDEDOUBLELENGTH/重載LENGTH方法RETURN4EDGEPUBLICSQUAREDOUBLEEDGETHISEDGEEDGECLASSTESTSTATICVOIDMAINSTRINGARGSCONSOLEWRITELINE“請(qǐng)輸入圓的半徑“DOUBLERDOUBLEPARSECONSOLEREADLINESHAPEPNEWCIRCLERCONSOLEWRITELINE“圓的周長(zhǎng)0N圓的面積1“,PLENGTH,PAREACONSOLEWRITELINE“請(qǐng)輸入正方形的邊長(zhǎng)“DOUBLEEDGEDOUBLEPARSECONSOLEREADLINESHAPEENEWSQUAREEDGECONSOLEWRITELINE“正方形的周長(zhǎng)0N正方形的面積1“,ELENGTH,EAREACONSOLEREADLINE3運(yùn)行并測(cè)試編譯并運(yùn)行程序，在提示命令符下輸入圓的半徑為5，按ENTER鍵，輸入正方形的邊長(zhǎng)為4，按ENTER鍵，結(jié)果如圖31所示。圖31圓和正方形的周長(zhǎng)及面積示例圖4寫出實(shí)驗(yàn)報(bào)告實(shí)驗(yàn)4事件編程實(shí)驗(yàn)?zāi)康模?）掌握事件的聲明；（2）掌握事件處理程序的原理及應(yīng)用；（3）定義事件處理函數(shù)。實(shí)驗(yàn)要求設(shè)計(jì)一個(gè)賬戶類，包括賬號(hào)，姓名，余額及密碼等變量；定義成員變量的讀寫訪問函數(shù)；定義一個(gè)事件，當(dāng)余額發(fā)生改變時(shí)觸發(fā)事件；設(shè)計(jì)一個(gè)類測(cè)試賬戶類中的事件。實(shí)驗(yàn)準(zhǔn)備和說明（1）具備知識(shí)方法的重載、事件的聲明與訂閱。（2）準(zhǔn)備本次上機(jī)所需要的程序。（3）創(chuàng)建本次實(shí)驗(yàn)項(xiàng)目文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)4”實(shí)驗(yàn)內(nèi)容和步驟1啟動(dòng)VISUALSTUDIO2010打開計(jì)算機(jī)，啟動(dòng)MICROSOFTVISUALSTUDIO2010系統(tǒng)。2創(chuàng)建工程并添加代碼選擇“文件”“新建項(xiàng)目”菜單命令，顯示出“新建項(xiàng)目”對(duì)話框。在左邊的列表框中選擇VISUALC語言，在右邊的列表框中選擇“控制臺(tái)應(yīng)用程序”在項(xiàng)目名稱框中輸入CHANGED。單擊瀏覽按鈕將項(xiàng)目定位到文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)4”。在打開的文檔窗口中輸入下面的代碼2USINGSYSTEMUSINGSYSTEMCOLLECTIONSGENERICUSINGSYSTEMLINQUSINGSYSTEMTEXTNAMESPACECHANGEDCLASSACCOUNTPRIVATESTRINGNUMBER/定義成員變量域PRIVATESTRINGNAMEPRIVATEDOUBLEBALANCEDPRIVATESTRINGPASSWORDPUBLICDELEGATEVOIDCHANGEDEVENTHANDEROBJECTSENDER,EVENTARGSE/定義委托代表類型PUBLICEVENTCHANGEDEVENTHANDERCHANGED/聲明事件PROTECTEDVIRTUALVOIDONCHANGEDEVENTARGSE/用以觸發(fā)事件IFTHISCHANGEDNULLTHISCHANGEDTHIS,EPUBLICDOUBLEBALANCE/定義BALANCE屬性GETRETURNTHISBALANCEDSETTHISBALANCEDVALUE/當(dāng)BALANCE屬性被修改時(shí)，觸發(fā)CHANGED事件THISONCHANGEDNEWEVENTARGSPUBLICVOIDACCOUNT1STRINGNUMBER,STRINGNAME,DOUBLEBALANCED,STRINGPASSWORD/存款THISNUMBERNUMBERTHISNAMENAMETHISBALANCEDBALANCEDTHISPASSWORDPASSWORDPUBLICVOIDACCOUNT2STRINGNUMBER,DOUBLEBALANCED,STRINGPASSWORD/取款THISNUMBERNUMBERTHISBALANCEDBALANCEDTHISPASSWORDPASSWORDPUBLICVOIDOUTBCONSOLEWRITELINE“帳號(hào)0“,NUMBERCONSOLEWRITELINE“姓名0“,NAMECONSOLEWRITELINE“密碼0“,PASSWORDCONSOLEWRITELINE“餘額0“,BALANCEDCLASSTESTPUBLICSTATICVOIDMAINSTRINGARGSACCOUNTDNEWACCOUNT/將事件處理程序添加到事件的調(diào)用列表中即訂閱事件DCHANGEDNEWACCOUNTCHANGEDEVENTHANDERD_CHANGEDDACCOUNT1“12345678567887112“,“陳好“,20000,“543221“DOUTBDACCOUNT2“12345678567887112“,3000,“543221“DOUTBSTRINGSTR“WHILESTR“0“CONSOLEWRITELINE“PLEASEENTERASTRING“STRCONSOLEREADLINEDBALANCESYSTEMCONVERTTODOUBLESTRDOUTB/事件處理函數(shù)PRIVATESTATICVOIDD_CHANGEDOBJECTSENDER,EVENTARGSECONSOLEWRITELINE“此人的余額已改變?yōu)?N“,ACCOUNTSENDERBALANCE3運(yùn)行并測(cè)試編譯并運(yùn)行程序，在提示命令符中輸入5000，顯示結(jié)果如圖41所示。圖41賬戶信息變動(dòng)圖實(shí)驗(yàn)5文本編輯器的設(shè)計(jì)與實(shí)現(xiàn)實(shí)驗(yàn)?zāi)康囊竽康恼莆彰嫦驅(qū)ο蟪绦蛟O(shè)計(jì)方法以及WINFORM開發(fā)技術(shù)。要求設(shè)計(jì)并實(shí)現(xiàn)一個(gè)文本編輯器（1）實(shí)現(xiàn)新建文件、打開文件、保存文件、選擇字體、設(shè)置顏色功能；（2）添加下拉菜單和彈出菜單，用于選擇不同復(fù)制、粘貼、查找等文本編輯功能；（3）添加工具欄，工具欄設(shè)置若干按鈕，用于選擇不同的文本編輯功能；（4）添加狀態(tài)欄，顯示狀態(tài)提示信息。實(shí)驗(yàn)準(zhǔn)備和說明（1）具備知識(shí)WINFORM的應(yīng)用、菜單、工具欄、狀態(tài)欄。（2）準(zhǔn)備本次上機(jī)所需要的程序。（3）創(chuàng)建本次實(shí)驗(yàn)項(xiàng)目文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)5”實(shí)驗(yàn)內(nèi)容和步驟1啟動(dòng)VISUALSTUDIO2010打開計(jì)算機(jī)，啟動(dòng)MICROSOFTVISUALSTUDIO2010系統(tǒng)。2創(chuàng)建一個(gè)默認(rèn)的對(duì)話框用用程序FORM1選擇“文件”“新建項(xiàng)目”菜單命令，顯示出“新建項(xiàng)目”對(duì)話框。在左邊的列表框中選擇VISUALC語言，在右邊的列表框中選擇“WINDOWS窗體應(yīng)用程序”，在項(xiàng)目名稱框中輸入WEN_BEN。單擊瀏覽按鈕將項(xiàng)目定位到文件夾“VISUALSTUDIO2010PROJECTS實(shí)驗(yàn)5”。3添加菜單在左邊的“工具箱”中選擇，在FORM1窗體上單擊即可顯1示出菜單欄，在MENUSTRIP1屬性窗口中選擇“ITEMS”屬性，點(diǎn)擊打開“項(xiàng)集合編輯器”，在左上方下拉條中選擇MENUITEM，點(diǎn)擊“添加”，然后選中被添加的TOOLSTRIPMENUITEM1，將其TEXT屬性更改為“文件（F）”。在項(xiàng)集合編輯器中按照上述步驟一次添加“編輯（E）”、“格式（O）”、2“查看（V）”、“幫助（H）”菜單項(xiàng)，顯示效果如圖下圖。選中“文件”，單擊DROPDOWNITEMS屬性，打開項(xiàng)集合編輯器，在左上方3選擇MENUITEM，單擊“添加”，在成員列表中出現(xiàn)“TOOLSTRIPMENUITEM1”，在右邊的屬性列表中選擇TEXT屬性，將TOOLSTRIPMENUITEM1改為“新建”，在SHORTCUTKEYS屬性中添加CTRLN快捷鍵。根據(jù)表51所示菜單項(xiàng)，參照?qǐng)D51設(shè)計(jì)“文件”菜單。4表51“文件”菜單添加的成員成員NAMETEXTSHORTCUTKEYS新建（N）新建TOOLSTRIPMENUITEM新建CTRLN打開（O）打開OTOOLSTRIPMENUITEM打開CTRLO保存（S）保存STOOLSTRIPMENUITEM保存CTRIS另存為另存為TOOLSTRIPMENUITEM另存為頁面屬性頁面屬性TOOLSTRIPMENUITEM頁面屬性打印（P）打印PTOOLSTRIPMENUITEM打印退出退出TOOLSTRIPMENUITEM退出CTRLE根據(jù)表52所示菜單項(xiàng)，參照?qǐng)D52設(shè)計(jì)“編輯”菜單。5表52“編輯”菜單添加的成員成員NAMETEXTSHORTCUTKEYS撤銷U退出TOOLSTRIPMENUITEM撤銷CTRIU復(fù)制C復(fù)制CTOOLSTRIPMENUITEM復(fù)制CTRLC剪切X剪貼XTOOLSTRIPMENUITEM剪貼CTRLX粘貼P粘貼TOOLSTRIPMENUITEM粘貼CTRLP刪除L刪除LTOOLSTRIPMENUITEM刪除DELETE查找F查找TOOLSTRIPMENUITEM查找CTRLF替換R替換TOOLSTRIPMENUITEM替換CTRLH全選A全選ATOOLSTRIPMENUITEM全選CTRLA時(shí)間/日期D時(shí)間/日期TOOLSTRIPMENUITEM時(shí)間/日期F5根據(jù)表53所示菜單項(xiàng)，參照?qǐng)D53設(shè)計(jì)“格式”菜單。6表53“格式”菜單添加的成員成員NAMETEXTSHORTCUTKEYS自動(dòng)換行W自動(dòng)換行TOOLSTRIPMENUITEM自動(dòng)換行字體F字體TOOLSTRIPMENUITEM字體顏色顏色TOOLSTRIPMENUITEM顏色根據(jù)表54所示菜單項(xiàng)，參照?qǐng)D54設(shè)計(jì)“查看”菜單。7表54“查看”菜單添加的成員成員NAMETEXTSHORTCUTKEYS狀態(tài)欄狀態(tài)欄TOOLSTRIPMENUITEM狀態(tài)欄根據(jù)表55所示菜單項(xiàng)，參照?qǐng)D55設(shè)計(jì)“幫助”菜單。8表55“幫助”菜單添加的成員成員NAMETEXTSHORTCUTKEYS關(guān)于記事本A關(guān)于記事本TOOLSTRIPMENUITEM關(guān)于記事本圖51文件菜單項(xiàng)圖52編輯菜單項(xiàng)圖53格式菜單項(xiàng)圖54查看菜單項(xiàng)圖55幫助菜單項(xiàng)4添加文本框在左邊的“工具箱”中選擇，在FORM1窗體上單擊即可顯示出來。5添加窗體在FORM1窗體中添加一個(gè)窗體命名為FORMFIND，TEXT屬性為“查找”，1參看圖56的控件布局，為FORMFIND對(duì)話框添加表56的一些控件圖56“查看”對(duì)話框布局添加的控件NAMETEXTLABEL1LABEL1查找內(nèi)容TEXTBOX1TEXTBOX1BUTTON1BUTTON1查找BUTTON2BUTTON2取消表56“查看”對(duì)話框添加的控件A在FORMFIND中添加如下代碼PUBLICPARTIALCLASSFORMFINDFORMPUBLICFORMFINDINITIALIZECOMPONENTPUBLICRICHTEXTBOXRTBINTSTART0/查找的起始位置STRINGNR“/查找的內(nèi)容RICHTEXTBOXFINDSF0B雙擊“查找”按鈕，添加如下代碼PRIVATEVOIDBUTTON1_CLICKOBJECTSENDER,EVENTARGSENRTHISTEXTBOX1TEXT/查找STARTRTBFINDNR,START,FIFSTART1MESSAGEBOXSHOW“對(duì)不起查找不到與“NR“相符的內(nèi)容“,“（記事本查找提示“,MESSAGEBOXBUTTONSOK,MESSAGEBOXICONASTERISKSTART0ELSESTARTSTARTNRLENGTH/找到后從找到位置之后開始下一次RTBFOCUS/給予焦點(diǎn)C雙擊“取消”按鈕，添加如下代碼PRIVATEVOIDBUTTON2_CLICKOBJECTSENDER,EVENTARGSECLOSE為FORM1窗體添加一個(gè)窗體，命名為TIHUAN,TEXT屬性為“替換”，參2看圖57的控件布局，為TIHUAN對(duì)話框添加表57的一些控件。圖57“替換”對(duì)話框添加的控件NAMETEXTLABEL1LABEL1查找內(nèi)容TEXTBOX1TEXTBOX1LABEL2LABEL2替換為TEXTBOX2TEXTBOX2BUTTON1BUTTON1查找下一個(gè)BUTTON2BUTTON2替換BUTTON3BUTTON3全部替換BUTTON4BUTTON4取消表57“替換”對(duì)話框添加的控件A為TIHUAN對(duì)話框添加如下代碼PUBLICPARTIALCLASSTIHUANFORMPUBLICTIHUANINITIALIZECOMPONENTPUBLICRICHTEXTBOXRTBINTSTART0/開始位置STRINGNR“/定義內(nèi)容字符串STRINGTH“/定義轉(zhuǎn)換字符串RICHTEXTBOXFINDSF0INTI0B雙擊“查找下一個(gè)”按鈕，添加下列代碼PRIVATEVOIDBUTTON1_CLICKOBJECTSENDER,EVENTARGSENRTHISTEXTBOX1TEXT/將TEXTBOX1中的內(nèi)容賦值給STARTRTBFINDNR,START,F/開始的位置是找到的內(nèi)容IFSTART1/找不到啊MESSAGEBOXSHOW“對(duì)不起查找不到與“NR“內(nèi)容相匹配的信息“,“記事本查找提示信息“,MESSAGEBOXBUTTONSOK,MESSAGEBOXICONASTERISKSTART0/返回開始位置ELSESTARTSTARTNRLENGTH/找到后從找到位置之后開始下一次RTBFOCUS/給予焦點(diǎn)，此處不解C雙擊“替換”按鈕，添加下列代碼PRIVATEVOIDBUTTON2_CLICKOBJECTSENDER,EVENTARGSENRTHISTEXTBOX1TEXT/找的內(nèi)容THTHISTEXTBOX2TEXT/替換的內(nèi)容/RTBSELECTEDTEXTTH/STARTRTBFINDNR,START,FIFSTART1MESSAGEBOXSHOW“對(duì)不起查找不到與“NR“內(nèi)容相匹配的信息“,“記事本查找提示信息“,MESSAGEBOXBUTTONSOK,MESSAGEBOXICONASTERISKELSERTBSELECTEDTEXTTH/STARTSTARTTHLENGTH/找到后從找到位置之后開始下一次/RTBFOCUS/給予焦點(diǎn)D雙擊“全部替換”按鈕，添加下列代碼PRIVATEVOIDBUTTON3_CLICKOBJECTSENDER,EVENTARGSENRTHISTEXTBOX1TEXT/找的內(nèi)容THTHISTEXTBOX2TEXTSTARTRTBFINDNR,START,FWHILESTART1RTBSELECTEDTEXTTHSTARTSTARTNRLENGTHSTARTRTBFINDNR,START,FIMESSAGEBOXSHOW“全部替換完畢,全部一共替換了“ITOSTRING“次“,“記事本替換完畢信息“START0E雙擊“取消”按鈕，添加如下代碼PRIVATEVOIDBUTTON4_CLICKOBJECTSENDER,EVENTARGSETHISCLOSE為FORM1窗體添加一個(gè)新窗體，命名為FORMABOUT，TEXT屬性為關(guān)于3“記事本”，參看圖58的控件布局，為FORMABOUT對(duì)話框添加表58的一些控件。圖58“關(guān)于記事本”布局添加的控件NAMETEXTLABEL1LABEL1LABEL1BUTTON1BUTTON1關(guān)閉表58“關(guān)于記事本”添加的控件A為FORMABOUT對(duì)話框添加如下代碼PRIVATEVOIDFORMABOUT_LOADOBJECTSENDER,EVENTARGSEMAXIMIZEBOXFALSE/沒有最大化MINIMIZEBOXFALSE/沒有最小化LABEL1TEXT“MICROSOFTR文本文檔版本模擬WINDOWS記事本，添加部分OFFCEN功能版權(quán)所有嚴(yán)禁盜版本產(chǎn)品最終解釋權(quán)歸冰點(diǎn)所有?！癇雙擊“關(guān)閉”按鈕，添加下列代碼PRIVATEVOIDBUTTON1_CLICKOBJECTSENDER,EVENTARGSECLOSE6添加成員響應(yīng)代碼雙擊“新建”，輸入如下代碼1PRIVATEVOID新建TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFRICHTEXTBOX1MODIFIEDTRUEDIALOGRESULTWWMESSAGEBOXSHOW“是否將更改保存到DT新建文本文檔TXT“,“記事本“,MESSAGEBOXBUTTONSYESNOCANCEL,MESSAGEBOXICONWARNINGSWITCHWW/使SWITCH用語句判斷CASEDIALOGRESULTYESTHIS保存STOOLSTRIPMENUITEM_CLICKSENDER,EBREAKCASEDIALOGRESULTNORICHTEXTBOX1CLEARBREAKCASEDIALOGRESULTCANCELBREAK雙擊“打開”，輸入下列代碼2PRIVATEVOID打開OTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEOPENFILEDIALOGOFDNEWOPENFILEDIALOGOFDADDEXTENSIONTRUEOFDCHECKFILEEXISTSTRUEOFDTITLE“打開“OFDFILTER“文本文檔|TXT|所有文件|“OFDFILTERINDEX4OFDINITIALDIRECTORY“D“OFDMULTISELECTTRUEOFDRESTOREDIRECTORYTRUEOFDSHOWREADONLYTRUEOFDSHOWHELPTRUEOFDSHOWDIALOGTHISRICHTEXTBOX1TAGOFDFILENAME/文本文檔名，可無RICHTEXTBOX1LOADFILEOFDFILENAME,RICHTEXTBOXSTREAMTYPEPLAINTEXT/加載文本中的內(nèi)容雙擊“保存”，輸入下列代碼3PRIVATEVOID保存STOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSETRY/使用語句處理異常情況STREAMWRITERBCNEWSTREAMWRITERNAME,FALSE,ENCODINGGETENCODING“GB2312“/字節(jié)流GB2312國(guó)標(biāo)STRINGBAOCUNRICHTEXTBOX1TEXTBCWRITEBAOCUNBCCLOSECATCHSAVEFILEDIALOGSAVEFILEDIALOG1NEWSAVEFILEDIALOGSAVEFILEDIALOG1FILTER“文本文檔（TXT|TXT|所有文件|“SAVEFILEDIALOG1OVERWRITEPROMPTTRUE/如果文件名已經(jīng)存在警告IFRICHTEXTBOX1TEXT“MESSAGEBOXSHOW“當(dāng)前文本中沒有任何內(nèi)容“,“提示“ELSEIFSAVEFILEDIALOG1SHOWDIALOGDIALOGRESULTOKSTREAMWRITERCNEWSTREAMWRITERSAVEFILEDIALOG1FILENAME,FALSE,ENCODINGGETENCODING“GB2312“NAMESAVEFILEDIALOG1FILENAMESTRINGDRICHTEXTBOX1TEXT/將文本中的字符串賦值給局部變量CWRITED/將字符串重載CCLOSE雙擊“另存為”，輸入下列代碼4PRIVATEVOID另存為TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFRICHTEXTBOX1MODIFIEDTRUEDIALOGRESULTCLOSEMESSAGEBOXSHOW“是否保存已修改的內(nèi)容“,“提示“,MESSAGEBOXBUTTONSYESNO,MESSAGEBOXICONWARNINGSWITCHCLOSECASEDIALOGRESULTYESTHIS保存STOOLSTRIPMENUITEM_CLICKSENDER,ETRY/使用語句處理異常情況STREAMWRITERSWWNEWSTREAMWRITERNAME,FALSE,ENCODINGGETENCODING“GB2312“STRINGDATARICHTEXTBOX1TEXTSWWWRITEDATASWWCLOSECATCHSAVEFILEDIALOGSAVEFILEDIALOG1NEWSAVEFILEDIALOGSAVEFILEDIALOG1FILTER“文件|TXT“SAVEFILEDIALOG1FILENAME“新建文本文檔TXT“SAVEFILEDIALOG1OVERWRITEPROMPTTRUE/已經(jīng)存在文件名警告IFSAVEFILEDIALOG1SHOWDIALOGDIALOGRESULTOKSTREAMWRITERSWWNEWSTREAMWRITERSAVEFILEDIALOG1FILENAME,FALSE,ENCODINGGETENCODING“GB2312“NAMESAVEFILEDIALOG1FILENAMESTRINGDATARICHTEXTBOX1TEXTSWWWRITEDATASWWCLOSEBREAKCASEDIALOGRESULTNOBREAK雙擊“頁面屬性”，輸入下列代碼5PRIVATEVOID頁面屬性TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEPAGESETUPDIALOGPAGESETUPDIALOG1NEWPAGESETUPDIALOGSYSTEMDRAWINGPRINTINGPRINTDOCUMENTPAGNEWSYSTEMDRAWINGPRINTINGPRINTDOCUMENTPAGESETUPDIALOG1SHOWNETWORKFALSEPAGESETUPDIALOG1DOCUMENTPAGIFPAGESETUPDIALOG1SHOWDIALOGDIALOGRESULTCANCELPAGPRINT雙擊“打印”，輸入下列代碼6PRIVATEVOID打印PTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEPRINTDIALOGPDNEWPRINTDIALOGSYSTEMDRAWINGPRINTINGPRINTDOCUMENTPDDNEWSYSTEMDRAWINGPRINTINGPRINTDOCUMENTPDSHOWNETWORKFALSEPDPRINTTOFILEFALSEPDDOCUMENTPDDIFPDSHOWDIALOGDIALOGRESULTCANCELPDDPRINT雙擊“退出”，輸入下列代碼7PRIVATEVOID退出TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFTHISRICHTEXTBOX1MODIFIEDTRUEDIALOGRESULTTCMESSAGEBOXSHOW“文件“THISTEXT“的內(nèi)容已經(jīng)修改是否要保存“,“提示“,MESSAGEBOXBUTTONSYESNOCANCEL,MESSAGEBOXICONEXCLAMATIONIFTCDIALOGRESULTYES另存為TOOLSTRIPMENUITEM_CLICKSENDER,ETHISRICHTEXTBOX1CLEARTHISTEXT“IFTCDIALOGRESULTNOAPPLICATIONEXITELSEAPPLICATIONEXIT雙擊“撤銷”，輸入下列代碼8PRIVATEVOID撤銷UTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1UNDO雙擊“剪切”，輸入下列代碼9PRIVATEVOID剪切XTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1CUT雙擊“復(fù)制”，輸入下列代碼10PRIVATEVOID復(fù)制CTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1COPY雙擊“粘貼”，輸入下列代碼11PRIVATEVOID粘貼TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1PASTE雙擊“刪除”，輸入下列代碼12PRIVATEVOID刪除LTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1SELECTEDTEXT“雙擊“查找”，輸入下列代碼13PRIVATEVOID查找TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSE/FINDPOSITION0/FORMFINDFINDREPLACEDIALOGNEWFORMFIND/FINDREPLACEDIALOGSHOWFORMFINDFNEWFORMFINDFRTBTHISRICHTEXTBOX1/傳值（從主窗口傳到FINDFORM）FOWNERTHIS/懸浮于當(dāng)前窗體FSHOW雙擊“全選”，輸入下列代碼14PRIVATEVOID全選ATOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1SELECTALL雙擊“替換”，輸入下列代碼15PRIVATEVOID替換RTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSETIHUANNEWTHNEWTIHUAN/NEWTHSHOWNEWTHRTBTHISRICHTEXTBOX1/傳值（從主窗口傳到FINDFORM）NEWTHOWNERTHIS/懸浮于當(dāng)前窗體NEWTHSHOW/TIHUANNEWTHNEWTIHUAN/NEWTHSHOW雙擊“時(shí)間/日期”，輸入下列代碼16PRIVATEVOID時(shí)間日期TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1TEXTRICHTEXTBOX1TEXTDATETIMENOWTOSTRING雙擊“自動(dòng)換行”，輸入下列代碼17PRIVATEVOID自動(dòng)換行WTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSERICHTEXTBOX1WORDWRAPTRUE雙擊“字體”，輸入下列代碼18PRIVATEVOID字體FTOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEFONTDIALOGFDNEWFONTDIALOGFDALLOWSCRIPTCHANGETRUEFDSHOWCOLORTRUEFDALLOWSIMULATIONSTRUEFDALLOWVECTORFONTSTRUEFDFONTMUSTEXISTTRUEFDMAXSIZE30FDMINSIZE6FDSHOWAPPLYTRUEFDSHOWCOLORTRUEFDSHOWEFFECTSTRUEIFFDSHOWDIALOGDIALOGRESULTOK/獲取對(duì)話框的返回值是確定RICHTEXTBOX1SELECTIONFONTFDFONT/獲取系統(tǒng)的字體RICHTEXTBOX1SELECTIONCOLORFDCOLOR雙擊“顏色”，輸入下列代碼19PRIVATEVOID顏色TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSECOLORDIALOGCDNEWCOLORDIALOGCDALLOWFULLOPENTRUECDFULLOPENTRUECDCOLORCOLORBLACKCDSOLIDCOLORONLYFALSECDSHOWHELPTRUECDSHOWDIALOGRICHTEXTBOX1SELECTIONCOLORCDCOLOR雙擊“狀態(tài)欄”，輸入下列代碼20PRIVATEVOID狀態(tài)欄TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEIFK1STATUSSTRIP1SHOW狀態(tài)欄TOOLSTRIPMENUITEMCHECKEDTRUEK0ELSESTATUSSTRIP1HIDE狀態(tài)欄TOOLSTRIPMENUITEMCHECKEDFALSEK1雙擊“關(guān)于記事本”，輸入下列代碼21PRIVATEVOID關(guān)于記事本TOOLSTRIPMENUITEM_CLICKOBJECTSENDER,EVENTARGSEFORMABOUTABOUTNEWFORMABOUTABOUTSHOWDIALOG在FORM1加載時(shí)，添加如下代碼22PRIVATEVOIDFORM1_LOADOBJECTSENDER,EVENTARGSE撤銷UTOOLSTRIPMENUITEMENABLED