[精品论文]VB高级编程论文记事本程序设计

毕业设计课程定做 QQ1714879127题目：记事本程序设计课程设计：VB程序设计论文前 言记事本：英文名称为：WORDPAD或NOTEPAD。 现在一般特指Windows操作系统附带的一个简单的文本编辑、浏览软件Notepad。记事本只能处理纯文本文件，但是，由于多种格式源代码都是纯文本的，所以记事本也就成为了使用最多的源代码编辑器。 它只具备最基本的编辑功能，所以体积小巧，启动快，占用内存低，容易使用。 记事本的功能只有：新建，保存，打印，查找，替换这几个功能。但是记事本：打开速度快，文件小。 记事本可以保存无格式文件。你可以把记事本编辑的文件保存为：“.html”， “.java”，“.asp”等等任意格式。 所以我们学习VB程序，利用VB编写一款简单的基本的文本处理办公软件，类似于记事本，基本可以实现记事本的功能。因为制作者的能力有限，只是实现了简单的基础功能，所以，为提供软件的可行性、安全性、稳定性，我们将在以后的版本中不断改进。 一、 功能描述1. 打开记事本菜单栏“文件”菜单具有新建文本文档、保存（另存）文档以及打开等功能。 2编辑 编辑可实现撤销、剪切、复制、粘贴、删除、查找、替换等功能；同时亦可实现插入时间日期的功能。 3格式 格式可实现自动换行的功能以及字体、字号、颜色的选择。4帮助对记事本程序的版权声明，本记事本所有程序设计与编写均属原创。二、 程序代码记事本应用程序的详细代码如下：Dim sFind As String 定义sfind为一个字符型变量Dim FileType, FiType As String 定义filetype,fitype为一个字符型变量Dim txtchange As Boolean 定义txtchange为一个逻辑型变量Dim isave As BooleanPrivate Sub About_Click() MsgBox 记事本 2010 版权所有(C) , vbOKOnly, 关于记事本End SubPrivate Sub Asave_Click() CommonDialog1.CancelError = True 调用公共对话框 On Error GoTo errhandler CommonDialog1.DialogTitle = 另存为 通用对话框的标题为“另存为” 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 清空剪切板内容 Clipboard.SetText RichTextBox1.SelText 剪切板得到的文本来自于文本框得到的文本 RichTextBox1.SelText = 清空剪切板内容End SubPrivate Sub Date_Click() RichTextBox1.SelText = Now() 显示当前日期和时间End SubPrivate Sub Delete_Click() RichTextBox1.SelText = End SubPrivate Sub Exit_Click() EndEnd SubPrivate Sub Find_Click()sFind = InputBox(请输入要查找的字、词：, 查找内容, 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 设置名称 RichTextBox1.Font.Size = CommonDialog1.FontSize 设置字号 RichTextBox1.Font.Bold = CommonDialog1.FontBold 设置粗体 RichTextBox1.Font.Italic = CommonDialog1.FontItalic 设置斜体 RichTextBox1.Font.Underline = CommonDialog1.FontUnderline 设置下划线 RichTextBox1.Font.setcolor = CommonDialog1.Color 设置颜色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 调出保存过程 isave = TrueEnd SubPrivate Sub Open_Click() CommonDialog1.Filter = 文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.* CommonDialog1.ShowOpen 新建一个记事本 RichTextBox1.Text = 清空原记事本的内容 FileName = CommonDialog1.FileName RichTextBox1.LoadFile FileName 打开文件函数表达式Me.Caption = 记事本： & FileNameEnd SubPrivate Sub Paste_Click()RichTextBox1.SelText = Clipboard.GetText 复制所选至剪切板End SubPrivate Sub Replace_Click() Dim Find As String, change As String, xuan As String 定义为字符型函数 Dim i As Long, len1 As Long, len2 As Long, n As Long Find = InputBox(要查找的内容) change = InputBox(要替换的内容) 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 内容为空，则复制、删除、剪切不可用 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 抱歉,内容未找到!, 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（程序代码编写结束）三、 运行界面界面1.如下： 界面2.如下： 四、 运行中存在的问题与不足1 没有实现状态栏的功能；2 打开时有时会出现如下错误：3 创新功能不足，因为操作着能力有限，记事本可观性与实用性较差，会在以后的程序中加以改进；4 部分代码设计较为繁琐。五、 心得与体会1 编写较大程序之前需要提前计算好算法，并且作以规划。如记事本程序中，首先应该设计好各级菜单，其次每