VB課程設(shè)計(jì)報(bào)告記事本設(shè)計(jì)

VB課程設(shè)計(jì)題目：記事本程序~

指導(dǎo)教師：姓名：\2008-7-2目錄一、 預(yù)定功能 第3頁(yè)設(shè)計(jì)界面 第3頁(yè)運(yùn)行界面及主要功能說(shuō)明 第4頁(yè)操作流程圖 第7頁(yè)】程序設(shè)計(jì)過(guò)程 第12頁(yè)！預(yù)定功能新建：新建立一個(gè)記事本文檔。保存：重命名一個(gè)名字，保存文檔。打開(kāi)：將打開(kāi)一個(gè)已經(jīng)存儲(chǔ)在計(jì)算機(jī)中的文件（*工乂｛或*.^￡文件）。退出：指退出這個(gè)記事本程序。|編輯：能對(duì)文本進(jìn)行復(fù)制、剪切、粘貼，也可以改變文本字體、顏色、大小。查找：類似Word文檔的查找功能，通過(guò)輸入關(guān)鍵字，詞進(jìn)行查找。幫助：記事本簡(jiǎn)介以及功能的用法。設(shè)計(jì)界面記事本界面有以下幾部分組成：標(biāo)題欄：自定義圖標(biāo)和記事本標(biāo)題。菜單欄：包括文件、編輯、搜索和幫助主題。%工具欄：菜單欄中部分功能的快捷鍵。文本框：用于編輯、查看文本內(nèi)容。狀態(tài)欄：顯示編輯狀態(tài)、當(dāng)前日期和具體時(shí)間。具體設(shè)計(jì)界面如下圖：三、運(yùn)行界面及主要功能說(shuō)明雙擊“記事本.exe”出現(xiàn)如圖主界面:主要功能：（1）文本打開(kāi)、新建、保存等基本操作：?。?）文本編輯功能：（3）文本查找功能：￥(4)記事本幫助主題：功能說(shuō)明：基本操作：能夠打開(kāi)計(jì)算機(jī)中存儲(chǔ)的*.tχt或*.這￡文件，進(jìn)行讀寫操作，記事本擁有一個(gè)很好的優(yōu)點(diǎn)：就是打開(kāi)速度快，文件小。通過(guò)記事本可以很方便地打開(kāi)比較小文本文檔。編輯操作：對(duì)文本匡中的文檔內(nèi)容進(jìn)行編輯。通過(guò)對(duì)文本進(jìn)行復(fù)制、剪切、粘貼，方便了用戶的操作。使得記事本能夠像Word一樣，不僅可以查看文本，還能對(duì)其進(jìn)行修改。搜索操作：如果一篇文章太長(zhǎng)，使用搜索功能可以馬上找到要尋找的內(nèi)容，通過(guò)輸入關(guān)鍵字進(jìn)行查找。如果要查找多個(gè)相同文本內(nèi)容，可以通過(guò)“查找下一個(gè)”來(lái)逐一查找。￥使用說(shuō)明：一個(gè)簡(jiǎn)單的記事本使用指南?！瓣P(guān)于”的內(nèi)容一般都是作者的版權(quán)說(shuō)明以及程序版本。工具欄：對(duì)常用的幾個(gè)功能進(jìn)行了快捷鍵設(shè)置，方便用戶操作。四、操作流程圖1．基本操作新建：通過(guò)文件---新建，來(lái)打開(kāi)一個(gè)新文檔，新建后的文檔是以“未命名”為標(biāo)題的。打開(kāi)操作：文件 打開(kāi)，選擇要打開(kāi)的文檔打開(kāi)后的文檔：保存操作：文件----保存；另存為abc,txt保存在F盤。另存為?|MlHIg宣嚀ISF保存在（X）：：“本地磁盤空；）保存類型（?）； I文本文檔（X皿） 三］回I∣OWTlL0?∣1ξ∣lzhΓl∈'Λ'-ZΞZ∣1保存⑤）I取消I2．編輯操作：復(fù)制：打開(kāi)，選中第一段，復(fù)制到第二段中間。麒記事本：Lz?Ke?dBe.t?t文件編輯搜索幫助□∣U∣E∣H∣Ξ∣□∣□∣記事本程序軟件是1個(gè)具有簡(jiǎn)單文字編輯功能的程序，它能鵝實(shí)現(xiàn)段落的左右縮進(jìn)，字體的相關(guān)設(shè)置就Ι簡(jiǎn)單的打印功能等.記事本程序軟件是一個(gè)具有簡(jiǎn)單文字編輯功能的程序，它能帽實(shí)現(xiàn)段落的左右縮進(jìn)，字陣的相關(guān)設(shè)置和簡(jiǎn)單的打印功能等.本程序具有體積小，節(jié)省空間等特點(diǎn).而且附帶了打開(kāi)部分"期皿E附件的功能，用戶在對(duì)文檔操作時(shí)將會(huì)更方便，更快捷口打開(kāi)文件：將打開(kāi)一個(gè)已窿存儲(chǔ)在計(jì)篁機(jī)中的文件1*.?t或求.rtfjT件）保存文件：保存當(dāng)前編輯的文件到計(jì)算機(jī)中.關(guān)閉；關(guān)閉當(dāng)前活到窗體I如果文本笈生變化將餐提示保存口正在編輯文檔■L：?Readme.txt2008-7-2 15:18剪切和粘貼：把復(fù)制的內(nèi)容剪切掉，粘貼在最后一段后面。更改字體：選中第一段文字，把文字改為隸書、36號(hào)、綠色。,?點(diǎn)擊編輯 字體，出現(xiàn)字體編輯對(duì)話框，編輯字體屬性。如圖，修改后的文本。3．查找操作查找：搜索---查找，通過(guò)查找“程序”兩個(gè)字為例。單擊“確定”按鈕。如果要查找下一個(gè)“程序”，通過(guò)“查找下一個(gè)”查找。五、.程序設(shè)計(jì)過(guò)程六、第一步：界面設(shè)計(jì)新建一個(gè)標(biāo)準(zhǔn)EXE工程，將其CaptiOn屬性改為“記事本”，點(diǎn)擊Icon屬性給它找個(gè)合適的Icon圖標(biāo)。單擊菜單“工程”-“部件”，在彈出的“部件”對(duì)話框里找到MicroSoftRichTeXtBox和公共對(duì)話框MicroSoftCommonDialog并選中它們，單擊“確定”按鈕。這時(shí)左邊的工具欄上出現(xiàn)了剛才新添的兩個(gè)控件。在窗體上繪制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，可以在代碼中處理它，要把它的ScrollBar屬性設(shè)為2-rtfVertical，這樣在打開(kāi)和編輯文件時(shí)垂直滾動(dòng)條才可用。第二步：編輯菜單。調(diào)出菜單編輯器，做如下幾個(gè)菜單：文件菜單：文件（第一層）mnuFile新建（第二層） mnuNew Ctrl+N打開(kāi)（第二層） mnuOpen Ctrl+O保存（第二層） mnuSave Ctrl+S-（第二層）mnuFileSep （分隔線）退出（第二層） mnuExit Ctrl+X編輯菜單：編輯（第一層） mnuEdit復(fù)制（第二層） mnuCopy Ctrl+C剪切（第二層）mnuCutCtrl+T粘貼（第二層）mnuPasteCtrl+V-（第二層）mnuEditSep（分隔線）全選（第二層）mnuSelecAllCtrl+A三.搜索菜單：搜索（第一層）

查找（第二層）mnuSearchmnuFindCtrl+F查找下一個(gè)（第二層）mnuFindOnCtrl+Z四.幫助菜單：幫助（第一層）mnuHelp使用說(shuō)明（第二層）mnuUsage關(guān)于（第二層）mnuAbout第三步：編寫代碼'聲明查找變量DimsFindAsString、'聲明文件類型DimFileType,FiTypeAsString'初始化程序PrivateSubForm_Load（）'設(shè)置程序啟動(dòng)時(shí)的大小=6000=9000、EndSub'設(shè)置編輯框的位置和大小PrivateSubForm_Resize()OnErrorResumeNext'出錯(cuò)處理=380=20=ScaleHeight-400)=ScaleWidth-40EndSub'新建文件PrivateSubmnuNew_Click()=""'清空文本框FileName="未命名"=FileName,EndSub'打開(kāi)文件PrivateSubmnuOpen_Click()="文本文檔(*.txt)∣*.txt∣RTF文檔(*.rtf)∣*.rtf∣所有文件(*.*)|*.*=""'清空文本框FileName=、FileName="記事本："&FileNameEndSub'保存文件PrivateSubmnuSave_Click()="文本文檔(*.txt)∣*.txt∣RTF文檔(*.rtf)∣*.rtf∣所有文件(*.*)|*.*】FileType=FiType=LCase(Right(FileType,3))FileName=SelectCaseFiTypeCase"txt"FileName,rtfTextCase"rtf"FileName,rtfRTF?Case"*.*"FileNameEndSelect="記事本："&FileNameEndSub'退出PrivateSubmnuExit_Click()EndEndSub'復(fù)制PrivateSubmnuCopy_Click()EndSub【'剪切PrivateSubmnuCut_Click()EndSub'全選)PrivateSubmnuSelectAll_Click()=0=LenEndSub'粘貼PrivateSubmnuPaste_Click()@EndSub'查找PrivateSubmnuFind_Click()SFind=InputBox("請(qǐng)輸入要查找的段落："，"查找內(nèi)容"，SFind)sFindEndSub》'繼續(xù)查找PrivateSubmnuFindOn_Click()=++1SFind,,Len(RichTextBox1)EndSub'使用說(shuō)明PrivateSubmnuReadme_Click()、OnErrorGoTohandler"",rtfTeXt'請(qǐng)寫好文件并存入程序所在文件夾中="記事本："&"使用說(shuō)明"EXitSubhandler:MSgBoX"使用說(shuō)明文檔可能已經(jīng)被移除，請(qǐng)與作者聯(lián)系。",vbOKOnly,"錯(cuò)誤信息"EndSub'關(guān)于PrivateSubmnuAbout_Click()MSgBoX"超級(jí)記事本版權(quán)所有(C)2008yys3434",vbOKOnly,"關(guān)于"EndSub第四步：制作工具欄單擊“工程”-“部件”，選中MicrosoftWindowsCommonControl并確定。要用到的控件就出現(xiàn)在左邊的工具欄上。首先用ImageList控件來(lái)裝載圖像。在程序界面上添加它，然后右鍵單擊此控件，左鍵單擊“屬性”，彈出“屬性頁(yè)”對(duì)話框的“圖像”，再單擊“插入圖片”可以一次性裝載圖片。在插入圖片時(shí)給每一張圖片注明關(guān)鍵字。接下來(lái)在程序界面添加工具欄(ToolBar)。添加后工具欄就出現(xiàn)在菜單下面，右鍵單擊，選擇“屬性”，在彈出的“屬性頁(yè)”對(duì)話框中的“通用”項(xiàng)作些設(shè)置如下兩項(xiàng)：.“圖像列表”：選擇ImageLiStI.“樣式”：選擇1-trbStandard繼續(xù)點(diǎn)擊“屬性頁(yè)”的“按鈕”選項(xiàng)，插入若干按鈕。按鈕有多種樣式，每一個(gè)與用戶操作有關(guān)的按鈕都必須注明關(guān)鍵字、裝載圖片，在“圖像”項(xiàng)鍵入ImageLiStI中的圖片關(guān)鍵字。然后編寫工具欄的代碼：PrivateSubToolbar1_ButtonClick(ByValButtonAsOnErrorResumeNextSelectCaseCase"新建"mnuNew_ClickCase"打開(kāi)"mnuOpe