1、- 2 - 3 -錯誤! 未定義書簽。錯誤 ! 未定義書簽錯誤! 未定義書簽目錄1. 作業簡介： . - 2 -2. 設計將要達到的目標： 3. 總體設計結構與功能 3.1 結構流程圖 3.2 各功能模塊運行界面及運行展示4. 程序代碼 . - 13 -5. 作業設計體會 . VB大作業程序說明書1. 作業簡介：Win dows記事本是功能強大，運用方便，體積小巧，啟動快，占用存小的應 用軟件。除此之外，windows記事本還有一個強大的功能，就是保存無格式文件。 在這學期通過學習 Visual Basic 對制作記事本產生興趣，便模仿 windows 記事 本通過VB軟件來編寫一個記事本程序

2、。此次作業主要是鍛煉我們的 VB設計能力 和思維考慮能力，是我們的 VB學習真正的用到實處，這對我們將來的學習和工 作有著重要作用。2. 設計將要達到的目標：記事本主要是對文字進行編輯處理的軟件。能進行新建、打開、保存等 功能；并且能運用 剪貼、復制、粘貼、清除功能，對文字更方便的錄入。 另外還可以根據用戶的需要查找相應的 文字，實現編輯功能。 新建：新建立一個記事本文檔。保存：重命名一個名字，保存文檔。打開：將打開一個已經存儲在計算機中的文件（*txt或*.rtf 文件）。 退出：指退出這個記事本程序。編輯：能對文本進行復制、 剪切、粘貼， 也可以改變文本字體、 顏色、大小。 查找：類似 W

3、ord文檔的查找功能，通過輸入關鍵字，詞進行查找。 幫助：記事本簡介以及功能的用法。由于記事本是一套簡單的文本編輯器。 要求記事本不但要具備完善的編 輯、方便的性能， 還要提供更簡便的操作。 這就要求設計人員在編輯過程當中 盡可能的考慮到。 包括以下容： *對文本進行編輯； *用戶根據不同的權限可 對文本進行添加、刪除、修改等操作； *對記事本進行各種編輯（精確、簡單） 。3總體設計結構與功能3.1結構流程圖新建1打開保存1退出復制剪切粘貼1全選11獲得編寫權限更改密碼查找查找下一個文件m 用如握醫：沁醫也”豐2007 7N外韻甥軸*王具字段 董V品更切十規刑？ 9趣*叭三植富舍計鈿礙出肺聲g

4、»R査找日舊醐理時孑切換謂選”X刪除圍其他沖A選記錄戦!安全窖告部分活動內容已逛用單擊此處了解聞EL斷育Acmss對象(»'«輕p叢Aa簾_j塞碼密與|単擊以就沏65 幻 21ftPorm2 (Form)|W | 叵 S3 |rO Fen：12 回旬 :F£G： |:淞琢唄祜E:.M 4 >1 :.：.| ：®L消 |L未命I o可氐J來到海邊，與海一樣的翱翔；與海一樣的高黏 與海一樣的淡化所有。靜靜地坐在海水邊，任海鳳的捱 曳，浪比酊跳功，仰右咲，輕輕地聽淘唱畝的聲和 貝穩、口輕臥 遍蓉、ar野。時不時的由手指、光腳來 回的挑起

5、擺動，緊緊地抓住海風的溫番 輕輕的拍打浪花的盲悅，裁總地稀釋海一樣的顏色。海藍也裁 映在了心底，是干淨、潔白，不含污濁，駕跋起了腦海里的那片凈土。鑒氫 簡單的語句，卻勾勒出聽刖的美妙。海風輕怫，浪花翻姿 靜躺在沙邀上用心聆聽海的歌唱，讓竦 花沖洗滌淨一切身心的濁垢切是如此美好那恍如天籟的期聲一點點流逬心里，讓心一片寧靜，澄澈 透明的如海水文枠（Wl解m - - - 巴I =-回羽文件務軽來到粵邊，與海一樣的翱翔弓與海一樣的高軟；與海一樣的淺化所有。靜薛地坐在海水邊，任每鳳的捱 曳，浪花的跳動，仰著頭，輕輕地聽海唱歌的聲音，沉穩、呻吟、溫蓉、曠野。時不時的用手指、光腳來 回的挑起'擺動，

6、緊奚地抓住海風的溫齊 輕輕的拍打浪花的盲悅默默地稀釋海一樣的顏色。海藍也就 映在了心底，是干凈、潔白，不含污濁，著然起了腦每里的那片:爭土。鑒賞：簡單的語句，卻勾勒出聽期的美妙。每風輕拂，獨花翻滾，袴嫻在沙恥上用心聆聽海的歆唱，讓泡 花沖洗滌淨一切身心的濁垢，一切是如此美好，那恍如天籟的卿聲一點點流逬心里，讓心一片寧靜，澄敕 逶明的如海水來到海迪，與海一祥的翱翔；與海一樣的高歌；與海一樣的淡化所有。薛稱地坐在海水邊， 任海風的捱曳，擁t的跳動，枷著頭，輕輕地聽生唱歎的聲音，沉穩、呻吟、漏誓、曠野。時不時的用豐 指、光腳來回的挾起、擺動，緊緊地抓住海風的溫彗，輕輕的拍打浪花的盲悅，默默地稀釋逗一

7、樣的顏 色。再藍也就映在了心爲 是干凈、詰白，不含污濁，暮茨起了腦海里的那片:爭匕鑒賞：簡單的語句，卻勾勒出聽蜀的美妙。海鳳輕擁，獨花翻躱，靜躺在妙恥上用匕聆聽每的歆唱，讓痕 花沖洗漆凈一切身心的濁垢，一切是如止匕美好，那恍如天籟的卿聲一點點流逬心里，讓心一片寧靜，澄激 透明的如海水4. 程序代碼(1)Dim sFind As StringDim FileType, FiType As StringPrivate Sub Form_Load()Me.Height = 6000Me.Width = 9000Me.Caption = " 記事本 "End SubPrivate

8、Sub Form_Resize()On Error Resume NextRichTextBox1.Top = 20RichTextBox1.Left = 20RichTextBox1.Height = ScaleHeight - 40RichTextBox1.Width = ScaleWidth - 40 End SubPrivate Sub mnuchange_Click()Form2.ShowEnd SubPrivate Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelText End SubPriv

9、ate Sub mnuCut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub mnuExit_Click()EndEnd SubPrivate Sub mnuFind_Click()sFind = InputBox(" 請輸入要查找的字、詞： ", " 查找容 ", sFind) RichTextBox1.Find sFindEnd SubPrivate Sub mnuFind

10、On_Click() RichTextBox1.SelStart = RichTextBox1.SelStart +RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1)End SubPrivate Sub mnuget_Click()Dim a As String a = InputBox("請輸入權限密碼 ", " 輸入密碼 ")Adodc1.RecordSource = " 密碼 "Adodc1.RefreshIf a = 密碼 "

11、).Value ThenmnuCut.Enabled = True RichTextBox1.Locked = FalseElseMsgBox "密碼錯誤！ ", vbOKOnly + vbInformation, "注意 "End IfEnd SubPrivate Sub mnuNew_Click() RichTextBox1.Text = "" FileName = " 未命名 " Me.Caption = FileNameEnd SubPrivate Sub mnuOpen_Click()CommonDial

12、og1.Filter = " 文本文檔 (*.txt)|*.txt|RTF 文檔 (*.rtf)|*.rtf| 所有文件 (*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.Text = "" FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileNameMe.Caption = " 記事本： " & FileName mnuCut.Enabled = False mnuCopy.Enabled = False mnuPas

13、te.Enabled = False RichTextBox1.Locked = TrueEnd SubPrivate Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetText End SubPrivate Sub mnuSave_Click()CommonDialog1.Filter = " 文本文檔 (*.txt)|*.txt|RTF (*.rtf)|*.rtf|所有文件 (*.*)|*.*"CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFi

14、Type = LCase(Right(FileType, 3)FileName = CommonDialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfText Case "rtf"RichTextBox1.SaveFile FileName, rtfRTFCase "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = " 超級記事本： " &

15、FileNameEnd SubPrivate Sub mnuSelecAll_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub(2)Private Sub Command1_Click()Dim a As StringAdodc1.RecordSource = " 密碼 "Adodc1.RefreshIf Trim(Text1.Text) = 文檔密碼").Value ThenIf Text2.Text = Text3.Text Then密碼

16、 ") = Text2.TextAdodc1.RefreshMsgBox " 密碼修改成功 "Me.HideElseMsgBox " 兩次密碼不一致 "End IfElseMsgBox " 原密碼錯誤 "End IfEnd SubPrivate Sub Command2_Click()Me.HideEnd SubPrivate Sub Form_Load()Me.Caption = " 修改密碼 "End Sub5. 作業設計體會學習VB程序設計的方法，我認為作為學習程序設計最重要的一點是要注重 理解一些重要的概念。但要真正能進行程序設計 , 需要深入理解這些概念。我們 學習 VB 并沒有從正常的途徑而是通過老師的演示與講解了解并學習了這門課 程。程序設計入門階段要經常