VB高级编程论文.docx

1、VB高级编程论文题目：记事本程序设计课程设计：VB程序设计论文院系：*学院班级：学生： 20090710050123 * 20090710050128& 20090710050124& 200907100502指导教师：*老师 2010年6月25日前 言记事本：英文名称为：WORDPAD或NOTEPAD。 现在一般特指Windows操作系统附带的一个简单的文本编辑、浏览软件Notepad。记事本只能处理纯文本文件，但是，由于多种格式源代码都是纯文本的，所以记事本也就成为了使用最多的源代码编辑器。 它只具备最基本的编辑功能，所以体积小巧，启动快，占用内存低，容易使用。 记事本的功能只有：新建，保

2、存，打印，查找，替换这几个功能。但是记事本：打开速度快，文件小。 记事本可以保存无格式文件。你可以把记事本编辑的文件保存为：“.html”， “.java”，“.asp”等等任意格式。 所以我们学习VB程序，利用VB编写一款简单的基本的文本处理办公软件，类似于记事本，基本可以实现记事本的功能。因为制作者的能力有限，只是实现了简单的基础功能，所以，为提供软件的可行性、安全性、稳定性，我们将在以后的版本中不断改进。 一、 功能描述1. 打开记事本菜单栏“文件”菜单具有新建文本文档、保存（另存）文档以及打开等功能。 2编辑 编辑可实现撤销、剪切、复制、粘贴、删除、查找、替换等功能；同时亦可实现插入时

3、间日期的功能。 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) ,

4、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.S

5、howSave 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 RichTextB

6、ox1.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)Ric

7、hTextBox1.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 R

8、ichTextBox1.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.set

9、color = 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 =

10、 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|所有文件(*.*)|*

11、.* 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

12、, 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 RichText

13、Box1.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.E

14、nabled = 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 Su

15、bPrivate 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 RichText

16、Box1_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() CommonDi

17、alog1.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,

18、 rtfRTF Case *.* RichTextBox1.SaveFile FileName End Select Me.Caption = 记事本： & FileNameEnd Sub（程序代码编写结束）三、 运行界面界面1.如下： 界面2.如下： 四、 运行中存在的问题与不足1 没有实现状态栏的功能；2 打开时有时会出现如下错误：3 创新功能不足，因为操作着能力有限，记事本可观性与实用性较差，会在以后的程序中加以改进；4 部分代码设计较为繁琐。五、 心得与体会1 编写较大程序之前需要提前计算好算法，并且作以规划。如记事本程序中，首先应该设计好各级菜单，其次每个按钮的功能基本实现的方法应当清楚；2 尽量以注释代替删除，有时我们在处理文档代码过程中会出现一些问题，但不要轻易删除，可能会在后边程序中用来参考，减轻我们在编写工程中的繁复性；3 编写大的程序中会遇到很多问题，需要不断的调试并分析代码，对出现的问题进行排查，以提高程序的可行性；4 在编写代码的过程中，要循序渐进，不断改进，发现并弥补漏洞和不足，提高程序的实用性。5 部分代码设计较为繁琐。6 感谢老师的指导和同学的帮助！六、 参考文献：Visual Basic 程序设计教程 熊李艳 周美玲 主编 人民邮电出版社