VB文本编辑器设计报告

课程设计报告

课程：Visual Basic 程序设计

课题：文本编辑器（易记本）

专业：计算机信息管理

班级：

学号：

姓名：@一路偏向北

教师：

2011-12-23

一、课程设计目的

通过一学期的Visual Basic 程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

二、题目及简介

文本编辑器

模仿Windows自带的本文编辑器，要求：做到有下拉式菜单栏，有最基本的文本编辑功能，包括复制、剪切、粘贴、全选、查找；同时拥有文本的管理功能，其中包括新建文本、打开、保存；以及完整的运行退出等系统应用功能，所有操作可选择设定快捷键，更快更方便地使用程序，同时对于一个小程序而言，可给出基本的使用说明以及相关信息。提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。

三、设计说明

题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。

四、源代码（加注释）

Dim sfind As String

Dim FileType, FiType As String

Private Sub Form_Load()

= 7500

= 5000

End Sub

'设置文本编辑框的位置和大小

Private Sub Form_Resize()

On Error Resume Next '遇到出错时处理

= 20

= 20

= ScaleHeight - 40

= ScaleWidth - 40

End Sub

'文件菜单下的新建文件

Private Sub mnuNew_Click()

= "" '新建文本时清空文本框

FileName = "未命名"

= FileName

End Sub

'文件菜单下的打开文件

Private Sub mnuOpen_Click()

= "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

= "" '打开新的文件时清空原来的文本框

FileName =

FileName

= "易记本：" & FileName

End Sub

'文件菜单下的保存文件

Private Sub mnuSave_Click()

= "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

FileType =

FiType = LCase(Right(FileType, 3)) FileName =

Select Case FiType

Case "txt"

FileName, rtfText

Case "rtf"

FileName, rtfRTF

Case "*.*"

FileName

End Select

= "易记本：" & FileName

End Sub

'文件菜单下的退出

Private Sub mnuExit_Click()

End

End Sub

'编辑菜单下的复制

Private Sub mnuCopy_Click()

End Sub

'编辑菜单下的剪切

Private Sub mnuCut_Click()

= ""

End Sub

'编辑菜单下的全选

Private Sub mnuSelectAll_Click()

= 0

= Len

End Sub

'文件菜单下的粘贴

Private Sub mnuPaste_Click()

=

End Sub

'搜索菜单下的查找

Private Sub mnuFind_Click()

sfind = InputBox("请输入要查找的字符：", "查找内容") sfind

End Sub

'搜索菜单下的继续查找

Private Sub mnuFindOn_Click()

= + + 1

sfind, , Len(RichTextBox1)

End Sub

'帮助菜单下的使用说明