vb編輯器課程設(shè)計(jì)報(bào)告

1、<p><b>　　課程設(shè)計(jì)報(bào)告書(shū)</b></p><p>　　課程名稱： VB課程設(shè)計(jì) </p><p>　　題 目： 編制文本編輯器 </p><p>　　系 名： 信息工程系 </p><p>　　2011 年 12 月 30 日</p>

2、;<p><b>　　課程設(shè)計(jì)任務(wù)書(shū)</b></p><p>　　設(shè)計(jì)題目：編制文本編輯器</p><p>　　初始條件：要求具備VB語(yǔ)言基礎(chǔ)；順序、選擇、循環(huán)結(jié)構(gòu)；界面設(shè)計(jì)、RichTextBox等相關(guān)知識(shí)。要求電腦配置Visual Basic 6.0集成開(kāi)發(fā)環(huán)境。</p><p>　　要求完成的主要任務(wù)：</p>

3、<p><b>　　主要任務(wù)：</b></p><p>　　1．使用VB的控件（RichTextBox)編寫(xiě)一個(gè)文本編輯器。</p><p>　　2．實(shí)現(xiàn)打開(kāi)/保存/新建/查找/替換字符，能改變文字的大小/字體/著色等功能。</p><p>　　3．要求外觀類似于Windows系統(tǒng)自帶的記事本。</p><p&g

4、t;　　設(shè)計(jì)報(bào)告撰寫(xiě)格式要求：</p><p>　　1. 設(shè)計(jì)題目與要求；</p><p>　　2. 設(shè)計(jì)思想、系統(tǒng)總體框架說(shuō)明；</p><p>　　3. 數(shù)據(jù)結(jié)構(gòu)、系統(tǒng)各模塊功能說(shuō)明及具體實(shí)現(xiàn)的算法；</p><p>　　4. 用戶界面的設(shè)計(jì)步驟；寫(xiě)出涉及的主要控件的名稱及作用；</p><p>　　5. 運(yùn)行結(jié)果

5、、系統(tǒng)關(guān)鍵界面的截圖；</p><p>　　6. 調(diào)試記錄（靜態(tài)檢查、動(dòng)態(tài)檢查過(guò)程中所遇到的問(wèn)題、解決的辦法）、心得體會(huì)（即程序 設(shè)計(jì)過(guò)程中的經(jīng)驗(yàn)、體會(huì)）；</p><p>　　7. 該系統(tǒng)的運(yùn)行條件（系統(tǒng)支撐環(huán)境），運(yùn)行該系統(tǒng)的方法；</p><p>　　8. 附錄：源程序，要求源代碼中要有清晰的注釋。</p><p><b>　

6、　時(shí)間安排：</b></p><p>　　12月19日上午布置課程設(shè)計(jì)任務(wù)；分配題目后，查閱資料、 準(zhǔn)備程序；</p><p>　　12月 20日～12月22 日上機(jī)編寫(xiě)、調(diào)試程序、書(shū)寫(xiě)課程設(shè)計(jì)報(bào)告；</p><p>　　12月23 日上午答辯并提交課程設(shè)計(jì)報(bào)告及相關(guān)文檔。</p><p>　　指 導(dǎo) 教 師 簽 字：

7、 2011年 12 月 15 日</p><p>　　系 主 任 簽 字： 2011年 12 月 15 日</p><p>　　一、VB課程設(shè)計(jì)目的</p><p>　　通過(guò)一學(xué)期的VisualBasic程序設(shè)計(jì)學(xué)習(xí)，以及平時(shí)的上機(jī)實(shí)驗(yàn)，初步掌握了VB程序設(shè)計(jì)的各種方法，學(xué)會(huì)了編輯最基本的VB程序；對(duì)于完整的VB程序設(shè)計(jì)來(lái)講

8、是很不足的，平時(shí)掌握的只是單獨(dú)的窗體（Form）程序編寫(xiě)，以及各種簡(jiǎn)單控件的使用，沒(méi)有做到很好連貫性，所以有必要做一次完整的VB程序設(shè)計(jì)，結(jié)合所學(xué)的基本知識(shí)，使用多個(gè)窗體自成一套系統(tǒng)，加上各種控件的綜合運(yùn)用，初步設(shè)計(jì)一個(gè)合格的VB應(yīng)用程序。</p><p>　　自從接到我們要上課程設(shè)計(jì)課開(kāi)始，我們知道word的文本編輯器，當(dāng)然眾所周知word是當(dāng)今最流行最常用的文本編輯器，用來(lái)日常對(duì)工作生活中的文本進(jìn)行編輯，它的

9、功能強(qiáng)大，也在軟件設(shè)計(jì)業(yè)成為了一種流行的標(biāo)準(zhǔn)。我們這次設(shè)計(jì)的就是以word的一些基本功能為基礎(chǔ)，由于我們的能力有限我們把一些特殊功能刪除了，只留下了一些簡(jiǎn)單的功能例如：剪切、新建、復(fù)制、粘貼、查找等。此次設(shè)計(jì)課主要是鍛煉我們的vb設(shè)計(jì)能力和思維考慮能力使我們的vb 學(xué)習(xí)真正的用到實(shí)處，無(wú)論在將來(lái)工作還是學(xué)習(xí)有著重要作用 </p><p><b>　　二、設(shè)計(jì)題目與要求</b></p&

10、gt;<p><b>　　文本編輯器</b></p><p>　　1．使用VB的控件（RichTextBox)編寫(xiě)一個(gè)文本編輯器。</p><p>　　2．實(shí)現(xiàn)打開(kāi)/保存/新建/查找/替換字符，能改變文字的大小/字體/著色等功能。</p><p>　　3．要求外觀類似于Windows系統(tǒng)自帶的記事本。</p><

11、;p>　　三、設(shè)計(jì)思想、系統(tǒng)總體框架說(shuō)明</p><p>　　題目為文本編輯器，既是最基本的文本編輯程序，首先必須做好文本編輯器本身的功能，然后對(duì)其完善做成一個(gè)完整的小程序，基本功能和我們平時(shí)用的記事本差不多。</p><p>　　基本功能說(shuō)明：功能是這個(gè)文本編輯器的核心內(nèi)容，也就是程序的作用，它是用來(lái)做什么的；本程序就是用來(lái)編寫(xiě)文本的，編寫(xiě)過(guò)程中要用到窗體（Form）一個(gè)，控件包括

12、：RichTextBox（超文本框）、CommonDialog（通用對(duì)話框），以及InputBox（消息框）、菜單編輯器等。要做的工作就是編寫(xiě)代碼把這些控件和窗體等結(jié)合為一體，使得程序能夠成為一體，順參運(yùn)行。</p><p><b>　　1、典型功能</b></p><p><b>　?。?）查找和替換</b></p><p&

13、gt;　　在一個(gè)文本文件中查找一個(gè)詞或者一個(gè)字符串，把一個(gè)字符串替換成另一個(gè)字符串。可采取各種方式進(jìn)行：全局查找替換、條件查找替換、無(wú)條件查找替換。 </p><p>　?。?）剪切、復(fù)制、粘貼</p><p>　　大多數(shù)文本編輯器都支持文件內(nèi)的或者文件間的復(fù)制或者移動(dòng)。 字體設(shè)置大多數(shù)文本編輯器都有字體設(shè)置這一個(gè)功能</p><p>　　（3）打開(kāi)、保存、新建、&

14、lt;/p><p>　　這也是文本編輯器的一個(gè)最簡(jiǎn)單的功能</p><p><b>　　總體框架</b></p><p><b>　　2、繪制界面</b></p><p>　　新建一個(gè)標(biāo)準(zhǔn)EXE工程，將其Caption屬性改為“易記本”，點(diǎn)擊Icon屬性給它找個(gè)合適的Icon圖標(biāo)。單擊菜單“工程”-“部

15、件”，在彈出的“部件”對(duì)話框里找到MicrosoftRichTextBox 6.0和公共對(duì)話框Microsoft CommonDialog6.0并選中它們，單擊“確定”按鈕。這時(shí)左邊的工具欄上出現(xiàn)了我們剛才新添的兩個(gè)控件了。在窗體上繪制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我們將在代碼中處理它，當(dāng)然，有必要把它的ScrollBar屬性設(shè)為2-rtfVertical，這樣在打開(kāi)和

16、編輯文件時(shí)垂直滾動(dòng)條才可用。 </p><p><b>　　3、編輯菜單</b></p><p>　　點(diǎn)擊右鍵，打開(kāi)菜單編輯器，設(shè)置標(biāo)題（文件、編輯、格式、查看、幫助）</p><p>　?。?）文件菜單（File）：</p><p>　　新建———New （Ctrl+N）</p><p>　　打

17、開(kāi)———Open （Ctrl+O）</p><p>　　保存———Save （Ctrl+S）</p><p>　　- ———FileSep (分隔線） </p><p>　　退出———Exit （Ctrl+E）</p><p>　　（2）編輯菜單（Edit）：</p><p>　　復(fù)制———Copy （Ctrl+C

18、）</p><p>　　剪切———Cut （Ctrl+X）</p><p>　　粘貼———Paste （Ctrl+V）</p><p>　　- ———EditSep （分隔線） </p><p>　　全選———SelecAll （Ctrl+A）</p><p>　　（3）格式菜單（Format）：</p>

19、<p><b>　　字體———Font</b></p><p>　?。?）搜索菜單（Search）：</p><p>　　查找———Find </p><p>　　查找下一個(gè)———Findnext</p><p>　?。?）幫助菜單（Help）： </p><p>　　使用說(shuō)明———

20、Usage </p><p>　　關(guān)于 ———About </p><p><b>　　4、程序代碼：</b></p><p>　　(1)聲明查找變量 </p><p>　　Dim sFind As String </p><p>　　(2)聲明文件類型 </p><p>

21、;　　Dim FileType, FiType As String </p><p><b>　　(3)初始化程序 </b></p><p>　　Private Sub Form_Load() </p><p>　　(4)設(shè)置程序啟動(dòng)時(shí)的大小 </p><p>　　Me.Height = 6000 </p>

22、<p>　　Me.Width = 9000 </p><p><b>　　End Sub </b></p><p>　　(5)設(shè)置編輯框的位置和大小 </p><p>　　Private Sub Form_Resize() </p><p>　　On Error Resume Next '出錯(cuò)處理 &

23、lt;/p><p>　　RichTextBox1.Top=20 </p><p>　　RichTextBox1.Left=20 </p><p>　　RichTextBox1.Height = ScaleHeight-40 </p><p>　　RichTextBox1.Width = ScaleWidth-40 </p><

24、p><b>　　End Sub </b></p><p><b>　　文件菜單</b></p><p><b>　　“新建”</b></p><p>　　Private Sub New_Click() </p><p>　　RichTextBox1.Text = &quo

25、t;" '新建文本時(shí)清空文本框 </p><p>　　FileName = "未命名" </p><p>　　Me.Caption = FileName </p><p><b>　　End Sub </b></p><p><b>　　“打開(kāi)”</b><

26、/p><p>　　Private Sub Open_Click() </p><p>　　CommonDialog.Filter = "文本文檔(*.txt)|*.Txt|RTF 文檔（*.rtf）|*.rtf所有文件（*.*）|*.*"</p><p>　　CommonDiolag.ShowOpen</p><p>　　Ri

27、chTextBox 1.Text="" '打開(kāi)新的文件時(shí)清空原來(lái)的文本框 X001（1前的空格去掉）</p><p>　　FileName = CommonDialog.FileName</p><p>　　RichTextBox1.LoadFile FileName</p><p>　　Me.Caption="易記本"

28、;：&FileName</p><p><b>　　End Sub </b></p><p><b>　　“保存”</b></p><p>　　Private Sub Save_Click()</p><p>　　CommonDialog.Filter = "文本文檔(*.txt)

29、|*.Txt|RTF 文檔（*.rtf）|*.rtf所有文件（*.*）|*.*"</p><p>　　CommonDiolag.ShowSave</p><p>　　FileType=CommonDialog1.FileTitle</p><p>　　FileType=LCase（Right（FileType，3））</p><p>

30、;　　FileName=CommonDialog1.FileName</p><p>　　Select Case FileType</p><p>　　Case "txt"</p><p>　　RichTextBox|.SaveFile FileName，rtfText</p><p><b>　　Case&qu

31、ot;rtf"</b></p><p>　　RichTextBox|.SaveFile FileName，rtfRTF</p><p><b>　　Case"*.*"</b></p><p>　　RichTextBox|.SaveFile FileName，rtfName</p><

32、p>　　End Select</p><p>　　Me.Caption="易記本：" &FileName</p><p><b>　　End Sub</b></p><p><b>　　“退出”</b></p><p>　　Private Sub Exit_Clic

33、k()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p><b>　　編輯菜單</b></p><p><b>　　“復(fù)制”</b></p><p>　　Private

34、Sub Copy_Click() </p><p>　　Clipboard.Clear </p><p>　　Clipboard.SetText RichTextBox1.SelText </p><p><b>　　End Sub </b></p><p><b>　　“剪切”</b></p

35、><p>　　Private Sub Cut_Click() </p><p>　　Clipboard.Clear </p><p>　　Clipboard.SetText RichTextBox1.SelText </p><p>　　RichTextBox1.SelText = "" </p><p&g

36、t;<b>　　End Sub </b></p><p><b>　　“粘貼”</b></p><p>　　Private Sub Paste_Click() </p><p>　　RichTextBox1.SelText = Clipboard.GetText </p><p><b>

37、　　End Sub </b></p><p><b>　　“全選”</b></p><p>　　Private Sub SelectAll_Click() </p><p>　　RichTextBox1.SelStart = 0 </p><p>　　RichTextBox1.SelLength = Len(

38、RichTextBox1.Text) </p><p><b>　　End Sub </b></p><p><b>　　格式菜單</b></p><p><b>　　“字體”</b></p><p>　　Private Sub Font_Click()</p>

39、<p>　　With Form1.Edit_Frame</p><p>　　.SelFontName = "宋體" </p><p>　　.SelFontSize = "30" </p><p>　　.SelBold = True </p><p>　　.SelIta

40、lic = True </p><p>　　.SelColor = vbRed </p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p><b>　　搜索菜單</b></p>

41、<p><b>　　“查找”</b></p><p>　　Private Sub Find_Click()</p><p>　　inputbox()</p><p>　　content = InputBox("輸入要查找的字符：", "查找內(nèi)容", content)</p>&l

42、t;p>　　Edit_Frame.Find content</p><p><b>　　End Sub</b></p><p><b>　　“查找下一個(gè)”</b></p><p>　　Private Sub FindNext_Click()</p><p>　　Edit_Frame.SelSt

43、art = Edit_Frame.SelStart + Edit_Frame.SelLength + 1X002</p><p>　　Edit_Frame.Find content, , Len(Edit_Frame)</p><p><b>　　End Sub</b></p><p><b>　　幫助菜單</b><

44、/p><p><b>　　“使用說(shuō)明”</b></p><p>　　Private Sub Usage_Click() </p><p>　　On Error GoTo handler </p><p>　　RichTextBox1.LoadFile "Readme.txt", rtfText '

45、請(qǐng)寫(xiě)好Readme.txt文件并存入程序所在文件夾中 </p><p>　　Me.Caption = "易記本：" & "使用說(shuō)明" </p><p><b>　　Exit Sub </b></p><p><b>　　handler: </b></p><

46、;p>　　MsgBox "使用說(shuō)明文檔可能已經(jīng)被移除，請(qǐng)?jiān)?編程天堂 www.bctt.com官網(wǎng)下載！", vbOKOnly, " 錯(cuò)誤信息" </p><p><b>　　End Sub </b></p><p><b>　　“關(guān)于”</b></p><p>　　Priva

47、te Sub About_Click() </p><p>　　MsgBox "超級(jí)記事本 Ver1.0 版權(quán)所有(C) 2001 土人",vbOKOnly,"關(guān)于 記事本" </p><p><b>　　End Sub </b></p><p>　　設(shè)置彈出式菜單（即在編輯框中單擊鼠標(biāo)右鍵時(shí)彈出的動(dòng)態(tài)菜

48、單） </p><p>　　Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) </p><p>　　If Button = 2 Then </p><p>　　PopupMenu mnuEdit, vbPopupMenuL

49、eftAlign </p><p><b>　　Else </b></p><p><b>　　Exit Sub </b></p><p><b>　　End If </b></p><p><b>　　End Sub </b></p>&

50、lt;p>　　防止在切換輸入法時(shí)字體自變</p><p>　　Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) </p><p>　　If KeyCode = vbKeySpace Then </p><p>　　RichTextBox1.SelFontName = Com

51、monDialog1.FontName </p><p><b>　　End If </b></p><p><b>　　End Sub </b></p><p>　　四、用戶界面的設(shè)計(jì)步驟；寫(xiě)出涉及的主要控件的名稱及作用；</p><p>　　多數(shù)字處理軟件都有工具欄和狀態(tài)欄。工具欄和狀態(tài)欄除了能

52、美化我們的程序使其更具有專業(yè)性質(zhì)外，還給用戶帶來(lái)操作上的便利。現(xiàn)在我們就來(lái)做一做這兩樣?xùn)|西。 </p><p><b>　　(一)制作工具欄 </b></p><p>　　單擊“工程”-“部件”，選中Microsoft Windows Common Control 6.0并確定。這時(shí)，我們要用到的控件就出現(xiàn)在左邊的工具欄上了。 </p><p>

53、;　　要做工具欄，首先需要一個(gè)叫ImageList的控件來(lái)裝載圖像。在程序界面上添加它，然后右鍵單擊此控件，左鍵單擊“屬性”，彈出“屬性頁(yè)”對(duì)話框的“圖像”，再單擊“插入圖片”就可以一次性裝載圖片了（如不滿意，以后還可以添加）。圖片可在C:\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95下選擇(這里假設(shè)你的VB安裝在C盤(pán)下)。注意了：在插入圖片時(shí)給每一張圖片注明關(guān)鍵字，以

54、便在引用圖片時(shí)不至于混亂。如插入“新建”的圖片，我們?cè)凇瓣P(guān)鍵字”欄注明“New”。 </p><p>　　圖片有了，接下來(lái)在程序界面添加工具欄(ToolBar)。添加后工具欄就出現(xiàn)在菜單下面，右鍵單擊它，選擇“屬性”，在彈出的“屬性頁(yè)”對(duì)話框中的“通用”項(xiàng)作些設(shè)置，主要如下兩項(xiàng)： </p><p>　　1.“圖像列表”：選擇ImageList1 </p><p>　

55、　2.“樣式”：根據(jù)喜愛(ài)選擇1-trbStandard或者2-trbFlat </p><p>　　繼續(xù)點(diǎn)擊“屬性頁(yè)”的“按鈕”選項(xiàng)，插入若干按鈕。按鈕有多種樣式，請(qǐng)根據(jù)需要設(shè)置。這里請(qǐng)一定注意：每一個(gè)與用戶操作有關(guān)的按鈕都必須注明關(guān)鍵字、裝載圖片，如“新建”按鈕，在“關(guān)鍵字”項(xiàng)注明“新建”，在“圖像”項(xiàng)鍵入“New”（即ImageList1中的圖片關(guān)鍵字）,需要的話還可以在“工具提示文本”項(xiàng)填入適當(dāng)?shù)奶崾菊Z(yǔ)。&

56、lt;/p><p>　　(二)編寫(xiě)工具欄的按鈕代碼 </p><p>　　工具欄按鈕的代碼編輯很簡(jiǎn)單，可以按照下面的格式去編寫(xiě)： </p><p>　　Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button) </p><p>　　On Error Resume Ne

57、xt '出錯(cuò)處理 </p><p>　　Select Case Button.Key '按關(guān)鍵字選擇 </p><p>　　Case "新建" </p><p>　　mnuNew_Click '等于菜單項(xiàng)“新建”被單擊 </p><p>　　Case "打開(kāi)" '等于菜單

58、項(xiàng)“打開(kāi)”被單擊 </p><p>　　mnuOpen_Click </p><p>　　'......(繼續(xù)編寫(xiě)其它按鈕的代碼) </p><p>　　End Select </p><p><b>　　End Sub </b></p><p>　　完成后試運(yùn)行一下我們的程序，我們發(fā)現(xiàn)，

59、有了工具欄之后，程序變得漂亮多了，只是有一個(gè)問(wèn)題：打開(kāi)一個(gè)較長(zhǎng)的文檔后，編輯框的下拉滾動(dòng)條向上的箭頭不見(jiàn)了。原因是：工具條占用一定的空間。解決方法：將“設(shè)置編輯框的位置和大小”中的RichTextBox1.Top = 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分別改為RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight -

60、 400即可。 </p><p><b>　　主要控件名稱作用</b></p><p>　　今天我們一起用RichTextBox控件來(lái)做一個(gè)文本編輯器，這個(gè)文本編輯器具有比較完備的功能，例如：查找字串、設(shè)置字體等。通過(guò)這個(gè)程序，我們可以看到RichTextBox控件豐富的使用方法。 </p><p><b>　　圖</b>

61、</p><p>　　程序中使用的RichTextBox控件在默認(rèn)狀態(tài)下不在控件面板中，我們可以在控件面板上點(diǎn)鼠標(biāo)右鍵“添加”，在“添加選擇對(duì)話框”中找到這個(gè)控件并添加。這時(shí)控件面板上會(huì)出現(xiàn)圖標(biāo)，這就是這個(gè)小程序的主打控件RichTextBox。</p><p>　　一個(gè)由RichTextBox實(shí)現(xiàn)的文本編輯器 '名稱作用Form1 主窗體 ' Open 通用對(duì)話框 

62、9; RichTextBox1 RichTextBox ' New “新建”菜單項(xiàng) ' Open “打開(kāi)”菜單項(xiàng) ' Save “保存”菜單項(xiàng) ' Exit “退出”菜單項(xiàng) ' Font “字體”菜單項(xiàng) 'Find “查找”菜單項(xiàng) ' Next “查找下一個(gè)”菜單項(xiàng)</p><p>　　ShowOpen 顯示“打開(kāi)”對(duì)話框 'ShowSave 顯示“

63、另存為”對(duì)話框ShowFont 顯示“字體”對(duì)話框'ShowHelp 調(diào)用 Windows 幫助引擎 CmdOpen.Flags = cdlCFBoth + cdlCFEffects CmdOpen.ShowFont '將RichTextBox1的屬性根據(jù)“字體”對(duì)話框的變化作相應(yīng)設(shè)置 '要改變 RichTextBox 控件中的字體特性，可以使用 'SelFontName、SelFontSize 和 S

64、elFontColor 屬性。</p><p>　　控件中的每一個(gè)字符都有一個(gè)可唯一標(biāo)識(shí)的整數(shù)索引?？丶形谋镜牡谝粋€(gè)字符的索引是 0。 'end 可選的。決定在哪兒結(jié)束搜索的整數(shù)字符索引。 'options 可選的。用來(lái)指定一個(gè)或多個(gè)可選功能常數(shù)的和。所指定的功能如“設(shè)置值”中所述。 '</p><p>　　RichTextBox1.SelPrint CmdOpe

65、n.hDC End Sub '當(dāng)“保存”菜單項(xiàng)被點(diǎn)擊時(shí) Private Sub mnuSave_Click() CmdOpen.ShowSave 'RichTextBox的SaveFile方法，保存文本 RichTextBox1.SaveFile (CmdOpen.FileName) End Sub </p><p>　　RichTextBox控件的常用的屬性、事件和方法。</p>

66、<p>　　RichTextBox 控件可用于輸入和編輯文本，它同時(shí)提供了比常規(guī)的TextBox控件更高級(jí)的格式特性。 通過(guò)這些屬性，可對(duì)該控件中任何部分的文本使用不同的格式，可以將文本變?yōu)榇煮w或斜體，改變文本的顏色，創(chuàng)建上標(biāo)或下標(biāo)，可以調(diào)整段落的左右縮進(jìn)值，還可以使用懸掛式縮進(jìn)等。而且RichTextBox控件支持大于64K的文本，這些都是TextBox控件所不可比擬的。</p><p>　　Load

67、File方法和SaveFile方法：它們的作用分別是從文件中導(dǎo)入文本和保存文本到指定的文件，這兩個(gè)方法支持txt和rtf格式的文本文件，使用的語(yǔ)法是：</p><p>　　object.SaveFile(pathname, filetype)　 其中pathname是要打開(kāi)或保存的文件路徑，filetype是要打開(kāi)或保存的文件類型(0表示txt文件；1表示rtf格式的文件)。</p><p&g

68、t;　　Find方法：其語(yǔ)法是：object.Find(string, start, end, options) </p><p>　　其中string是要查找的字符串；start, end是查找開(kāi)始和結(jié)束的位置，如果不指定的話默認(rèn)是在全部文本中查找；options是查找時(shí)匹配的模式，有三種選擇，rtfWholeWord為整個(gè)單詞匹配而不是單詞片段，rtfMatchCase為是否忽略字體的差別，rtfNoHigh

69、light為找到的單詞是否高亮顯示。</p><p>　　SelPrint方法：將RichTextBox控件中格式化文本發(fā)送給設(shè)備進(jìn)行打印，使用的語(yǔ)法為：object.SelPrint(hdc)，hdc為準(zhǔn)備用來(lái)打印控件內(nèi)容的設(shè)備的句柄。</p><p>　　以上的方法和屬性只是RichTextBox控件豐富用法的</p><p>　　五、運(yùn)行結(jié)果、系統(tǒng)關(guān)鍵界面的截

70、圖</p><p><b>　　程序運(yùn)行初始窗口</b></p><p><b>　　圖（1）</b></p><p><b>　　菜單</b></p><p><b>　　圖（2）</b></p><p>　　右擊彈出式菜單

71、 </p><p><b>　　桌面 </b></p><p><b>　　查找及打開(kāi)功能</b></p><p><b>　　六、心得體會(huì)</b></p><p>　　通過(guò)本次的課程設(shè)計(jì)，總體來(lái)說(shuō)難度適中，

72、通過(guò)實(shí)踐感覺(jué)這一學(xué)期的VB學(xué)習(xí)不是很深入，許多真正需要掌握的東西還沒(méi)學(xué)會(huì)，或是沒(méi)學(xué)好，原因是平時(shí)理論學(xué)習(xí)不夠，沒(méi)用真正理解，其次就是實(shí)踐太少，不能熟練的使用VB開(kāi)發(fā)環(huán)境。具體說(shuō)文本編輯器的設(shè)計(jì)，首先是控件的使用要注意，例如不能使用平時(shí)一般的Text文本框、因?yàn)槠渲贿m用于一般的文本顯示，使用RichTextBox，可擁有文本的完整功能，不再添加滾動(dòng)條等控件，而是使其自帶滾動(dòng)條，其次是菜單的設(shè)計(jì)，應(yīng)注意菜單的名稱書(shū)寫(xiě)，不能出現(xiàn)重復(fù)現(xiàn)象，否則

73、要使用索引，不僅增加麻煩更不利于程序編寫(xiě)，然后編寫(xiě)代碼的時(shí)候應(yīng)注意必須與菜單中的名字一一對(duì)應(yīng)，否則出現(xiàn)錯(cuò)誤；最后要注意程序的完整性以及實(shí)用性、便捷性。</p><p>　　總之，通過(guò)本次的VB課程設(shè)計(jì)，不僅找到了以前學(xué)習(xí)中的不足，更對(duì)我的能力有了很大的提高，更體會(huì)到了實(shí)踐的重要性，所有的語(yǔ)言設(shè)計(jì)課程都必須通過(guò)實(shí)踐來(lái)掌握，同時(shí)要建立在掌握理論知識(shí)的基礎(chǔ)上，只有緊密的有機(jī)結(jié)合起來(lái)，才能真正學(xué)好一門(mén)語(yǔ)言設(shè)計(jì)課程。<