VB課程設(shè)計報告記事本設(shè)計

1、精選優(yōu)質(zhì)文檔-傾情為你奉上VB課程設(shè)計題目：記事本程序指導(dǎo)教師：姓名：2008-7-2目 錄一、 預(yù)定功能-第3 頁二、 設(shè)計界面-第3 頁三、 運行界面及主要功能說明-第 4頁四、 操作流程圖-第 7頁五、 程序設(shè)計過程-第 12頁一、 預(yù)定功能新建：新建立一個記事本文檔。保存：重命名一個名字，保存文檔。打開：將打開一個已經(jīng)存儲在計算機中的文件（*.txt或*.rtf文件）。退出：指退出這個記事本程序。編輯：能對文本進(jìn)行復(fù)制、剪切、粘貼，也可以改變文本字體、顏色、大小。查找：類似Word文檔的查找功能，通過輸入關(guān)鍵字，詞進(jìn)行查找。幫助：記事本簡介以及功能的用法。二、 設(shè)計界面記事本界面有以下

2、幾部分組成：標(biāo)題欄：自定義圖標(biāo)和記事本標(biāo)題。菜單欄：包括文件、編輯、搜索和幫助主題。工具欄：菜單欄中部分功能的快捷鍵。文本框：用于編輯、查看文本內(nèi)容。狀態(tài)欄：顯示編輯狀態(tài)、當(dāng)前日期和具體時間。具體設(shè)計界面如下圖：三、 運行界面及主要功能說明雙擊“記事本.exe”出現(xiàn)如圖主界面：主要功能：（1） 文本打開、新建、保存等基本操作：（2）文本編輯功能：（3）文本查找功能：（4）記事本幫助主題：功能說明：（1） 基本操作：能夠打開計算機中存儲的*.txt或*.rtf文件，進(jìn)行讀寫操作，記事本擁有一個很好的優(yōu)點：就是打開速度快，文件小。通過記事本可以很方便地打開比較小文本文檔。（2） 編輯操作：對文本匡

3、中的文檔內(nèi)容進(jìn)行編輯。通過對文本進(jìn)行復(fù)制、剪切、粘貼，方便了用戶的操作。使得記事本能夠像Word一樣，不僅可以查看文本，還能對其進(jìn)行修改。（3） 搜索操作：如果一篇文章太長，使用搜索功能可以馬上找到要尋找的內(nèi)容，通過輸入關(guān)鍵字進(jìn)行查找。如果要查找多個相同文本內(nèi)容，可以通過“查找下一個”來逐一查找。（4） 使用說明：一個簡單的記事本使用指南?！瓣P(guān)于”的內(nèi)容一般都是作者的版權(quán)說明以及程序版本。（5） 工具欄：對常用的幾個功能進(jìn)行了快捷鍵設(shè)置，方便用戶操作。四、 操作流程圖1基本操作新建：通過文件-新建，來打開一個新文檔，新建后的文檔是以“未命名”為標(biāo)題的。打開操作：文件-打開，選擇要打開的文檔Re

4、adme.txt打開后的文檔：保存操作：文件-保存；另存為abc,txt保存在F盤。2編輯操作：復(fù)制：打開Readme.txt，選中第一段，復(fù)制到第二段中間。剪切和粘貼：把復(fù)制的內(nèi)容剪切掉，粘貼在最后一段后面。更改字體：選中第一段文字，把文字改為隸書、36號、綠色。 點擊編輯-字體，出現(xiàn)字體編輯對話框，編輯字體屬性。如圖，修改后的文本。3查找操作查找：搜索-查找，通過查找“程序”兩個字為例。單擊“確定”按鈕。如果要查找下一個“程序”，通過“查找下一個”查找。五、 程序設(shè)計過程第一步：界面設(shè)計 新建一個標(biāo)準(zhǔn)EXE工程，將其Caption屬性改為“記事本”，點擊Icon屬性給它找個合適的Icon圖

5、標(biāo)。單擊菜單“工程”-“部件”，在彈出的“部件”對話框里找到Microsoft RichText Box 6.0和公共對話框Microsoft Common Dialog 6.0并選中它們，單擊“確定”按鈕。這時左邊的工具欄上出現(xiàn)了剛才新添的兩個控件。在窗體上繪制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，可以在代碼中處理它，要把它的ScrollBar屬性設(shè)為2-rtfVertical，這樣在打開和編輯文件時垂直滾動條才可用。第二步：編輯菜單。 調(diào)出菜單編輯器，做如下幾個菜單： 一. 文件菜單： 文件（第一層） mnuFile 新建（

6、第二層） mnuNew Ctrl+N打開（第二層） mnuOpen Ctrl+O保存（第二層） mnuSave Ctrl+S- （第二層） mnuFileSep (分隔線） 退出（第二層） mnuExit Ctrl+X二. 編輯菜單： 編輯（第一層） mnuEdit 復(fù)制（第二層） mnuCopy Ctrl+C剪切（第二層） mnuCut Ctrl+T粘貼（第二層） mnuPaste Ctrl+V-（第二層） mnuEditSep （分隔線） 全選（第二層） mnuSelecAll Ctrl+A三.搜索菜單： 搜索（第一層） mnuSearch 查找（第二層） mnuFind Ctrl+F查找

7、下一個（第二層） mnuFindOn Ctrl+Z四.幫助菜單： 幫助（第一層） mnuHelp 使用說明（第二層） mnuUsage 關(guān)于（第二層） mnuAbout 第三步：編寫代碼'聲明查找變量 Dim sFind As String '聲明文件類型 Dim FileType, FiType As String '初始化程序 Private Sub Form_Load() '設(shè)置程序啟動時的大小 Me.Height = 6000 Me.Width = 9000 End Sub '設(shè)置編輯框的位置和大小 Private Sub Form_Resize

8、() On Error Resume Next '出錯處理 RichTextBox1.Top=380 RichTextBox1.Left=20 RichTextBox1.Height = ScaleHeight-400 RichTextBox1.Width = ScaleWidth-40 End Sub '新建文件 Private Sub mnuNew_Click() RichTextBox1.Text = "" '清空文本框 FileName = "未命名" Me.Caption = FileName End Sub '

9、打開文件 Private Sub mnuOpen_Click() CommonDialog1.Filter = "文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*" CommonDialog1.ShowOpen RichTextBox1.Text = "" '清空文本框 FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileName Me.Caption = "記事本：" & FileName End

10、Sub '保存文件 Private Sub mnuSave_Click() CommonDialog1.Filter = "文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*" CommonDialog1.ShowSave FileType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3) FileName = CommonDialog1.FileName Select Case FiType Case "txt" RichTe

11、xtBox1.SaveFile FileName, rtfText Case "rtf" RichTextBox1.SaveFile FileName, rtfRTF Case "*.*" RichTextBox1.SaveFile FileName End Select Me.Caption = "記事本：" & FileName End Sub '退出 Private Sub mnuExit_Click() End End Sub '復(fù)制 Private Sub mnuCopy_Click() Clipbo

12、ard.Clear Clipboard.SetText RichTextBox1.SelText End Sub '剪切 Private Sub mnuCut_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = "" End Sub '全選 Private Sub mnuSelectAll_Click() RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.T

13、ext) End Sub '粘貼 Private Sub mnuPaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub '查找 Private Sub mnuFind_Click() sFind = InputBox("請輸入要查找的段落：", "查找內(nèi)容", sFind) RichTextBox1.Find sFind End Sub '繼續(xù)查找 Private Sub mnuFindOn_Click() RichTextBox1.SelStart = Ric

14、hTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub '使用說明 Private Sub mnuReadme_Click() On Error GoTo handler RichTextBox1.LoadFile "Readme.txt", rtfText '請寫好Readme.txt文件并存入程序所在文件夾中 Me.Caption = "記事本：" & "使用說明"

15、; Exit Sub handler: MsgBox "使用說明文檔可能已經(jīng)被移除，請與作者聯(lián)系。", vbOKOnly, " 錯誤信息" End Sub '關(guān)于 Private Sub mnuAbout_Click() MsgBox "超級記事本 Ver1.0 版權(quán)所有(C) 2008 yys3434",vbOKOnly,"關(guān)于" End Sub第四步：制作工具欄 單擊“工程”-“部件”，選中Microsoft Windows Common Control 6.0并確定。要用到的控件就出現(xiàn)在左邊的工具欄上

16、。 首先用ImageList控件來裝載圖像。在程序界面上添加它，然后右鍵單擊此控件，左鍵單擊“屬性”，彈出“屬性頁”對話框的“圖像”，再單擊“插入圖片”可以一次性裝載圖片。在插入圖片時給每一張圖片注明關(guān)鍵字。接下來在程序界面添加工具欄(ToolBar)。添加后工具欄就出現(xiàn)在菜單下面，右鍵單擊，選擇“屬性”，在彈出的“屬性頁”對話框中的“通用”項作些設(shè)置如下兩項： 1.“圖像列表”：選擇ImageList1 2.“樣式”：選擇1-trbStandard 繼續(xù)點擊“屬性頁”的“按鈕”選項，插入若干按鈕。按鈕有多種樣式，每一個與用戶操作有關(guān)的按鈕都必須注明關(guān)鍵字、裝載圖片，在“圖像”項鍵入ImageList1中的圖片關(guān)鍵字。然后編寫工具欄的代碼：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error Resume Next Select Case Button.Key Case "新建" mnuNew_Click Case "打開" mnuOpen_Click Case "保存