VB编辑器课程设计报告

课程设计报告书课程名称：VB课程设计

题目：编制文本编辑器

系名：信息工程系

2011 年 12 月 30 日

课程设计任务书

设计题目：编制文本编辑器

初始条件：要求具备VB语言基础；顺序、选择、循环结构；界面设计、RichTextBox 等相关知识。要求电脑配置Visual Basic 6.0集成开发环境。

要求完成的主要任务：

主要任务：

1．使用VB的控件（RichTextBox)编写一个文本编辑器。

2．实现打开/保存/新建/查找/替换字符，能改变文字的大小/字体/着色等功能。

3．要求外观类似于Windows系统自带的记事本。

设计报告撰写格式要求：

1. 设计题目与要求；

2. 设计思想、系统总体框架说明；

3. 数据结构、系统各模块功能说明及具体实现的算法；

4. 用户界面的设计步骤；写出涉及的主要控件的名称及作用；

5. 运行结果、系统关键界面的截图；

6. 调试记录（静态检查、动态检查过程中所遇到的问题、解决的办法）、心得体会（即程序设计过程中的经验、体会）；

7. 该系统的运行条件（系统支撑环境），运行该系统的方法；

8. 附录：源程序，要求源代码中要有清晰的注释。

时间安排：

12月19日上午布置课程设计任务；分配题目后，查阅资料、准备程序；

12月 20日～12月22 日上机编写、调试程序、书写课程设计报告；

12月23 日上午答辩并提交课程设计报告及相关文档。

指导教师签字：2011年12 月15 日

系主任签字：2011年12 月15 日

一、VB课程设计目的

通过一学期的VisualBasic程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编辑最基本的VB程序；对于完整的VB 程序设计来讲是很不足的，平时掌握的只是单独的窗体（Form）程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB 程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序。

自从接到我们要上课程设计课开始，我们知道word的文本编辑器，当然众所周知word是当今最流行最常用的文本编辑器，用来日常对工作生活中的文本进行编辑，它的功能强大，也在软件设计业成为了一种流行的标准。我们这次设计的就是以word的一些基本功能为基础，由于我们的能力有限我们把一些特殊功能删除了，只留下了一些简单的功能例如：剪切、新建、复制、粘贴、查找等。此次设计课主要是锻炼我们的vb设计能力和思维考虑能力使我们的vb 学习真正的用到实处，无论在将来工作还是学习有着重要作用

二、设计题目与要求

文本编辑器

1．使用VB的控件（RichTextBox)编写一个文本编辑器。

2．实现打开/保存/新建/查找/替换字符，能改变文字的大小/字体/着色等功能。3．要求外观类似于Windows系统自带的记事本。

三、设计思想、系统总体框架说明

题目为文本编辑器，既是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善做成一个完整的小程序，基本功能和我们平时用的记事本差不多。

基本功能说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要用到窗体（Form）一个，控件包括：RichTextBox（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺参运行。

1、典型功能

（1）查找和替换

在一个文本文件中查找一个词或者一个字符串，把一个字符串替换成另

一个字符串。可采取各种方式进行：全局查找替换、条件查找替换、无

条件查找替换。

（2）剪切、复制、粘贴

大多数文本编辑器都支持文件内的或者文件间的复制或者移动。字体设

置大多数文本编辑器都有字体设置这一个功能

（3）打开、保存、新建、

这也是文本编辑器的一个最简单的功能

总体框架

2、绘制界面

新建一个标准EXE工程，将其Caption属性改为“易记本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到MicrosoftRichTextBox 6.0和公共对话框Microsoft CommonDialog6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

3、编辑菜单

点击右键，打开菜单编辑器，设置标题（文件、编辑、格式、查看、帮助）

（1）文件菜单（File）：

新建———New （Ctrl+N）

打开———Open （Ctrl+O）

保存———Save （Ctrl+S）

- ———FileSep (分隔线）

退出———Exit （Ctrl+E）

（2）编辑菜单（Edit）：

复制———Copy （Ctrl+C）

剪切———Cut （Ctrl+X）

粘贴———Paste （Ctrl+V）

- ———EditSep （分隔线）

全选———SelecAll （Ctrl+A）（3）格式菜单（Format）：

字体———Font

（4）搜索菜单（Search）：

查找———Find

查找下一个———Findnext

（5）帮助菜单（Help）：

使用说明———Usage

关于———About

4、程序代码：

(1)声明查找变量

Dim sFind As String

(2)声明文件类型

Dim FileType, FiType As String

(3)初始化程序

Private Sub Form_Load()

(4)设置程序启动时的大小

Me.Height = 6000

Me.Width = 9000

End Sub

(5)设置编辑框的位置和大小

Private Sub Form_Resize()

On Error Resume Next '出错处理

RichTextBox1.Top=20

RichTextBox1.Left=20

RichTextBox1.Height = ScaleHeight-40

RichTextBox1.Width = ScaleWidth-40 End Sub

文件菜单

“新建”

Private Sub New_Click()

RichTextBox1.Text = "" '新建文本时清空文本框

FileName = "未命名"

Me.Caption = FileName

End Sub

“打开”

Private Sub Open_Click()

CommonDialog.Filter = "文本文档(*.txt)|*.Txt|RTF 文档（*.rtf）|*.rtf所有文件（*.*）|*.*"

CommonDiolag.ShowOpen

RichTextBox 1.Text="" '打开新的文件时清空原来的文本框X001（1前的空格去掉） FileName = CommonDialog.FileName

RichTextBox1.LoadFile FileName

Me.Caption="易记本"：&FileName

End Sub

“保存”

Private Sub Save_Click()

CommonDialog.Filter = "文本文档(*.txt)|*.Txt|RTF 文档（*.rtf）|*.rtf所

有文件（*.*）|*.*"

CommonDiolag.ShowSave

FileType=CommonDialog1.FileTitle

FileType=LCase（Right（FileType，3））

FileName=CommonDialog1.FileName

Select Case FileType

Case "txt"

RichTextBox|.SaveFile FileName，rtfText

Case"rtf"

RichTextBox|.SaveFile FileName，rtfRTF

Case"*.*"

RichTextBox|.SaveFile FileName，rtfName

End Select

Me.Caption="易记本：" &FileName

End Sub

“退出”

Private Sub Exit_Click()

End

End Sub

编辑菜单

“复制”

Private Sub Copy_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText End Sub

“剪切”

Private Sub Cut_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

RichTextBox1.SelText = ""

End Sub

“粘贴”

Private Sub Paste_Click()

RichTextBox1.SelText = Clipboard.GetText

End Sub

“全选”

Private Sub SelectAll_Click()

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = Len(RichTextBox1.Text) End Sub

格式菜单

“字体”

Private Sub Font_Click()

With Form1.Edit_Frame

.SelFontName = "宋体"

.SelFontSize = "30"

.SelBold = True

.SelItalic = True

.SelColor = vbRed

End With

End Sub

搜索菜单

“查找”

Private Sub Find_Click()

inputbox()

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

Edit_Frame.Find content

End Sub

“查找下一个”

Private Sub FindNext_Click()

Edit_Frame.SelStart = Edit_Frame.SelStart + Edit_Frame.SelLength + 1X002 Edit_Frame.Find content, , Len(Edit_Frame)

End Sub

帮助菜单

“使用说明”

Private Sub Usage_Click()

On Error GoTo handler

RichTextBox1.LoadFile "Readme.txt", rtfText '请写好Readme.txt文件并存入程序所在文件夹中

Me.Caption = "易记本：" & "使用说明"

Exit Sub

handler:

MsgBox "使用说明文档可能已经被移除，请在编程天堂 https://www.360docs.net/doc/f316768921.html,官网下载！", vbOKOnly, " 错误信息"

End Sub

“关于”

Private Sub About_Click()

MsgBox "超级记事本 Ver1.0 版权所有(C) 2001 土人",vbOKOnly,"关于记事本" End Sub

设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu mnuEdit, vbPopupMenuLeftAlign

Else

Exit Sub

End If

End Sub

防止在切换输入法时字体自变

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace Then

RichTextBox1.SelFontName = CommonDialog1.FontName

End If

End Sub

四、用户界面的设计步骤；写出涉及的主要控件的名称及作用；

多数字处理软件都有工具栏和状态栏。工具栏和状态栏除了能美化我们的程序使其更具有专业性质外，还给用户带来操作上的便利。现在我们就来做一做这两样东西。

(一)制作工具栏

单击“工程”-“部件”，选中Microsoft Windows Common Control 6.0并确定。这时，我们要用到的控件就出现在左边的工具栏上了。

要做工具栏，首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”就可以一次性装载图片了（如不满意，以后还可以添加）。图片可在C:\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95下选择(这里假设你的VB安装在C盘下)。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建”的图片，我们在“关键字”栏注明“New”。

图片有了，接下来在程序界面添加工具栏(ToolBar)。添加后工具栏就出现在菜单下面，右键单击它，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置，主要如下两项：

1.“图像列表”：选择ImageList1

2.“样式”：根据喜爱选择1-trbStandard或者2-trbFlat

继续点击“属性页”的“按钮”选项，插入若干按钮。按钮有多种样式，请根据需要设置。这里请一定注意：每一个与用户操作有关的按钮都必须注明关键字、装载图片，如“新建”按钮，在“关键字”项注明“新建”，在“图像”项键入“New”（即ImageList1中的图片关键字）,需要的话还可以在“工具提示文本”项填入适当的提示语。

(二)编写工具栏的按钮代码

工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：

Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)

On Error Resume Next '出错处理

Select Case Button.Key '按关键字选择

Case "新建"

mnuNew_Click '等于菜单项“新建”被单击

Case "打开" '等于菜单项“打开”被单击

mnuOpen_Click

'......(继续编写其它按钮的代码)

End Select

End Sub

完成后试运行一下我们的程序，我们发现，有了工具栏之后，程序变得漂亮多了，只是有一个问题：打开一个较长的文档后，编辑框的下拉滚动条向上的箭头不见了。原因是：工具条占用一定的空间。解决方法：将“设置编辑框的位置和大小”中的RichTextBox1.Top = 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分别改为RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight - 400即可。

主要控件名称作用

今天我们一起用RichTextBox控件来做一个文本编辑器，这个文本编辑器具有比较完备的功能，例如：查找字串、设置字体等。通过这个程序，我们可以看到RichTextBox控件丰富的使用方法。

图

程序中使用的RichTextBox控件在默认状态下不在控件面板中，我们可以在控件面板上点鼠标右键“添加”，在“添加选择对话框”中找到这个控件并添加。这时控件面板上会出现图标，这就是这个小程序的主打控件RichTextBox。

一个由RichTextBox实现的文本编辑器 '名称作用Form1 主窗体 ' Open 通用对话框 ' RichTextBox1 RichTextBox ' New “新建”菜单项 ' Open “打开”菜单项 ' Save “保存”菜单项 ' Exit “退出”菜单项 ' Font “字体”菜单项 'Find “查找”菜单项 ' Next “查找下一个”菜单项ShowOpen 显示“打开”对话框 'ShowSave 显示“另存为”对话框ShowFont 显示“字体”对话框'ShowHelp 调用 Windows 帮助引擎 CmdOpen.Flags = cdlCFBoth + cdlCFEffects CmdOpen.ShowFont '将RichTextBox1的属性根据“字体”对话框的变化作相应设置 '要改变 RichTextBox 控件中的字体特性，可以使用'SelFontName、SelFontSize 和 SelFontColor 属性。

控件中的每一个字符都有一个可唯一标识的整数索引。控件中文本的第一个字符的索引是0。'end 可选的。决定在哪儿结束搜索的整数字符索引。'options 可选的。用来指定一个或多个可选功能常数的和。所指定的功能如“设置值”中所述。'

RichTextBox1.SelPrint CmdOpen.hDC End Sub '当“保存”菜单项被点击时 Private Sub mnuSave_Click() CmdOpen.ShowSave 'RichTextBox的SaveFile方法，保存文本 RichTextBox1.SaveFile (CmdOpen.FileName) End Sub

RichTextBox控件的常用的属性、事件和方法。

RichTextBox 控件可用于输入和编辑文本，它同时提供了比常规的TextBox控件更高级的格式特性。通过这些属性，可对该控件中任何部分的文本使用不同的格式，可以将文本变为粗体或斜体，改变文本的颜色，创建上标或下标，可以调整段落的左右缩进值，还可以使用悬挂式缩进等。而且RichTextBox控件支持大于64K的文本，这些都是TextBox控件所不可比拟的。

LoadFile方法和SaveFile方法：它们的作用分别是从文件中导入文本和保存文本到指定的文件，这两个方法支持txt和rtf格式的文本文件，使用的语法是：

object.SaveFile(pathname, filetype) 其中pathname是要打开或保存的文件路径，filetype是要打开或保存的文件类型(0表示txt文件；1表示rtf格式的文件)。

Find方法：其语法是：object.Find(string, start, end, options)

其中string是要查找的字符串；start, end是查找开始和结束的位置，如果不指定的话默认是在全部文本中查找；options是查找时匹配的模式，有三种选择，rtfWholeWord 为整个单词匹配而不是单词片段，rtfMatchCase为是否忽略字体的差别，rtfNoHighlight 为找到的单词是否高亮显示。

SelPrint方法：将RichTextBox控件中格式化文本发送给设备进行打印，使用的语法为：object.SelPrint(hdc)，hdc为准备用来打印控件内容的设备的句柄。

以上的方法和属性只是RichTextBox控件丰富用法的

五、运行结果、系统关键界面的截图

程序运行初始窗口

图（1）菜单

图（2）右击弹出式菜单

桌面查找及打开功能

六、心得体会

通过本次的课程设计，总体来说难度适中，通过实践感觉这一学期的VB学习不是很深入，许多真正需要掌握的东西还没学会，或是没学好，原因是平时理论学习不够，没用真正理解，其次就是实践太少，不能熟练的使用VB开发环境。具体说文本编辑器的设计，首先是控件的使用要注意，例如不能使用平时一般的Text文本框、因为其只适用于一般的文本显示，使用RichTextBox，可拥有文本的完整功能，不再添加滚动条等控件，而是使其自带滚动条，其次是菜单的设计，应注意菜单的名称书写，不能出现重复现象，否则要使用索引，不仅增加麻烦更不利于程序编写，然后编写代码的时候应注意必须与菜单中的名字一一对应，否则出现错误；最后要注意程序的完整性以及实用性、便捷性。

总之，通过本次的VB课程设计，不仅找到了以前学习中的不足，更对我的能力有了很大的提高，更体会到了实践的重要性，所有的语言设计课程都必须通过实践来掌握，同时要建立在掌握理论知识的基础上，只有紧密的有机结合起来，才能真正学好一门语言设计课程。