一、题目：设计一个文本编辑器
二、目的与要求：
1．目的：
培养学生综合利用VB语言进行程序设计的能力，主要是培养学生利用系统提供的标准函数和RichTextBox，CommonDialog控件进行创新设计。
2．基本要求：
利用RichTextBox控件实现一个简单的文本编辑器的功能。要求:
1）熟悉RichTextBox控件的用法
2）熟悉CommonDialog控件的用法
3）熟悉列表框控件，标签控件的用法
4）熟悉菜单的编辑方法
5）完成基本的文件打开、编辑、保存、颜色、字体功能。
3．创新要求：
尽量将程序设计完整。
利用RichTextBox控件打开特别大的文本文件。
利用RichTextBox控件插入OLE对象。
4．写出设计说明书
三、设计方法和基本原理：
1．问题描述：
设计一个类似于记事本的文本编辑器，要求
1)利用RichTextBox控件打开文本文件
2)利用RichTextBox控件保存文本文件
3)利用RichTextBox控件编辑文本文件
4)利用RichTextBox控件实现多种文本字体共存
5)利用RichTextBox控件实现多种文本颜色共存
6)菜单项包括文件（新建，打开，保存，另存，退出），编辑（复制，剪切，粘贴，颜色，打印），帮助等。
|
RichTextbox |
2．问题的解决方案：
根据问题描述，可以将问题解决分为几步：
（1）掌握各个控件的用法，属性及方法；
（2）按要求将界面设计完整；
（3）编辑菜单项，然后根据菜单项编写程序。
四、主要技术问题的描述：
1）此程序用到RichTextBox控件打开、保存rtf文件采用的方法为：RichTextBox1.LoadFile strOpen(需打开的文件)；RichTextBox1.SaveFile Me.Caption（需保存的文件）。
2)工具栏可用Picture控件代替，在上面添加列表框选择字体、字号；字形可用标签控件，出现选中效果可以在其MouseDown事件中改变BorderStyle属性。
3）字体、字号可用两个过程生成
生成字体：
Private Sub SetFonts ()
Dim i As Integer
With CmbFonts ‘表示字体的列表框控件
.Tag = "0"
For i = 0 To Screen.FontCount - 1
. AddItem Screen.Fonts(i)
Next i
. ListIndex = 0
End With
End Sub
生成字号：
Private Sub SetSize ()
Dim i As Integer
With CmbSize ‘表示字号的列表框控件
. Tag = "0"
For i = 8 To 72 Step 2
. AddItem i
Next i
. ListIndex = 1
End With
End Sub
