[精品論文]VB高級編程論文記事本程序設(shè)計(jì)

畢業(yè)設(shè)計(jì)課程定做 QQ1714879127題目：記事本程序設(shè)計(jì)課程設(shè)計(jì)：VB程序設(shè)計(jì)論文前 言記事本：英文名稱為：WORDPAD或NOTEPAD。 現(xiàn)在一般特指Windows操作系統(tǒng)附帶的一個(gè)簡單的文本編輯、瀏覽軟件Notepad。記事本只能處理純文本文件，但是，由于多種格式源代碼都是純文本的，所以記事本也就成為了使用最多的源代碼編輯器。 它只具備最基本的編輯功能，所以體積小巧，啟動(dòng)快，占用內(nèi)存低，容易使用。 記事本的功能只有：新建，保存，打印，查找，替換這幾個(gè)功能。但是記事本：打開速度快，文件小。 記事本可以保存無格式文件。你可以把記事本編輯的文件保存為：“.html”， “.java”，“.asp”等等任意格式。 所以我們學(xué)習(xí)VB程序，利用VB編寫一款簡單的基本的文本處理辦公軟件，類似于記事本，基本可以實(shí)現(xiàn)記事本的功能。因?yàn)橹谱髡叩哪芰τ邢?，只是?shí)現(xiàn)了簡單的基礎(chǔ)功能，所以，為提供軟件的可行性、安全性、穩(wěn)定性，我們將在以后的版本中不斷改進(jìn)。 一、 功能描述1. 打開記事本菜單欄“文件”菜單具有新建文本文檔、保存（另存）文檔以及打開等功能。 2編輯 編輯可實(shí)現(xiàn)撤銷、剪切、復(fù)制、粘貼、刪除、查找、替換等功能；同時(shí)亦可實(shí)現(xiàn)插入時(shí)間日期的功能。 3格式 格式可實(shí)現(xiàn)自動(dòng)換行的功能以及字體、字號(hào)、顏色的選擇。4幫助對記事本程序的版權(quán)聲明，本記事本所有程序設(shè)計(jì)與編寫均屬原創(chuàng)。二、 程序代碼記事本應(yīng)用程序的詳細(xì)代碼如下：Dim sFind As String 定義sfind為一個(gè)字符型變量Dim FileType, FiType As String 定義filetype,fitype為一個(gè)字符型變量Dim txtchange As Boolean 定義txtchange為一個(gè)邏輯型變量Dim isave As BooleanPrivate Sub About_Click() MsgBox 記事本 2010 版權(quán)所有(C) , vbOKOnly, 關(guān)于記事本End SubPrivate Sub Asave_Click() CommonDialog1.CancelError = True 調(diào)用公共對話框 On Error GoTo errhandler CommonDialog1.DialogTitle = 另存為 通用對話框的標(biāo)題為“另存為” CommonDialog1.InitDir = c:windows 初始化路徑 CommonDialog1.FileName = *.txt CommonDialog1.Filter = text files(*.txt)|*.txt 文件過濾器 CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 文件名 Print #1, Mid(text1.Text, 1, Len(text1.Text) Close #1errhandler:Exit SubEnd SubPrivate Sub Copy_Click() Clipboard.SetText RichTextBox1.SelRTF 剪切板得到的文本來自于文本框得到的文本End SubPrivate Sub Cut_Click() Clipboard.Clear 清空剪切板內(nèi)容 Clipboard.SetText RichTextBox1.SelText 剪切板得到的文本來自于文本框得到的文本 RichTextBox1.SelText = 清空剪切板內(nèi)容End SubPrivate Sub Date_Click() RichTextBox1.SelText = Now() 顯示當(dāng)前日期和時(shí)間End SubPrivate Sub Delete_Click() RichTextBox1.SelText = End SubPrivate Sub Exit_Click() EndEnd SubPrivate Sub Find_Click()sFind = InputBox(請輸入要查找的字、詞：, 查找內(nèi)容, sFind)RichTextBox1.Find sFindEnd SubPrivate Sub FindOn_Click() RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1)End SubPrivate Sub Font_Click()On Error Resume Next CommonDialog1.Flags = &H3 Or &H1 Or &H2 Or &H100 CommonDialog1.Action = 4 RichTextBox1.Font.Name = CommonDialog1.FontName 設(shè)置名稱 RichTextBox1.Font.Size = CommonDialog1.FontSize 設(shè)置字號(hào) RichTextBox1.Font.Bold = CommonDialog1.FontBold 設(shè)置粗體 RichTextBox1.Font.Italic = CommonDialog1.FontItalic 設(shè)置斜體 RichTextBox1.Font.Underline = CommonDialog1.FontUnderline 設(shè)置下劃線 RichTextBox1.Font.setcolor = CommonDialog1.Color 設(shè)置顏色End SubPrivate Sub Form_Load() 窗體大小 Me.Height = 6000 Me.Width = 9000 txtchange = False isave = FalseEnd SubPrivate Sub Form_Resize() 文本框隨窗體大小改變On Error Resume Next RichTextBox1.Top = 20 RichTextBox1.Left = 20 RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width = ScaleWidth - 40End SubPrivate Sub Form_Unload(Cancel As Integer)If txtchange = True And isave = False Then Call save Else End End IfEnd SubPrivate Sub mnuSave_Click() Call save 調(diào)出保存過程 isave = TrueEnd SubPrivate Sub Open_Click() CommonDialog1.Filter = 文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.* CommonDialog1.ShowOpen 新建一個(gè)記事本 RichTextBox1.Text = 清空原記事本的內(nèi)容 FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileName 打開文件函數(shù)表達(dá)式Me.Caption = 記事本： & FileNameEnd SubPrivate Sub Paste_Click()RichTextBox1.SelText = Clipboard.GetText 復(fù)制所選至剪切板End SubPrivate Sub Replace_Click() Dim Find As String, change As String, xuan As String 定義為字符型函數(shù) Dim i As Long, len1 As Long, len2 As Long, n As Long Find = InputBox(要查找的內(nèi)容) change = InputBox(要替換的內(nèi)容) len1 = Len(Find) len2 = Len(RichTextBox1.Text) For i = 1 To len2 - len1 + 1 If Find = Mid(RichTextBox1.Text, i, len1) Then RichTextBox1.SetFocus RichTextBox1.SelStart = i - 1 RichTextBox1.SelLength = len1 xuan = 是否替換 n = MsgBox(xuan, vbYesNoCancel + vbDefaultButton1 + vbQuestion) If n = 6 Then RichTextBox1.SelText = change End If End If Next i End SubPrivate Sub Edit_Click() If RichTextBox1.SelText = Then 內(nèi)容為空，則復(fù)制、刪除、剪切不可用 Copy.Enabled = False Cut.Enabled = False Delete.Enabled = False Else Delete.Enabled = True Copy.Enabled = True Cut.Enabled = True End If If RichTextBox1.Text = Then Find.Enabled = False FindOn.Enabled = False Else Find.Enabled = True FindOn.Enabled = True End IfEnd SubPrivate Sub RichTextBox1_Change() txtchange = True End SubPrivate Sub SelectAll_Click()RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1.Text) End SubPrivate Sub Topic_Click()On Error GoTo handler RichTextBox1.LoadFile Readme.txt, rtfText Me.Caption = 記事本： & 使用說明Exit Subhandler: MsgBox 抱歉,內(nèi)容未找到!, 64, 提示 彈出提示對話框End SubPrivate Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu Edit, vbPopupMenuLeftAlign Else Exit Sub End IfEnd SubPrivate Sub xinjian_Click() RichTextBox1.Text = 清空文本文檔 FileName = 未命名 更改文檔的Caption屬性 Me.Caption = FileNameEnd SubPublic Sub save() CommonDialog1.Filter = 文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.* CommonDialog1.ShowSave FiType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3) FileName = CommonDialog1.FileName Select Case FileType Case txt RichTextBox1.SaveFile FileName, rtfText Case rtf RichTextBox1.SaveFile FileName, rtfRTF Case *.* RichTextBox1.SaveFile FileName End Select Me.Caption = 記事本： & FileNameEnd Sub（程序代碼編寫結(jié)束）三、 運(yùn)行界面界面1.如下： 界面2.如下： 四、 運(yùn)行中存在的問題與不足1 沒有實(shí)現(xiàn)狀態(tài)欄的功能；2 打開時(shí)有時(shí)會(huì)出現(xiàn)如下錯(cuò)誤：3 創(chuàng)新功能不足，因?yàn)椴僮髦芰τ邢蓿浭卤究捎^性與實(shí)用性較差，會(huì)在以后的程序中加以改進(jìn)；4 部分代碼設(shè)計(jì)較為繁瑣。五、 心得與體會(huì)1 編寫較大程序之前需要提前計(jì)算好算法，并且作以規(guī)劃。如記事本程序中，首先應(yīng)該設(shè)計(jì)好各級菜單，其次每