1、 VB 课程设计报告 文本编辑器 学 院 名 称学 院 名 称 ： 计算机学院 专 业 名 称专 业 名 称 ： 计算机科学与技术 班班 级级 ： 一、 课程设计题目课程设计题目 用 Visual Basic 程序设计语言编写一个简易的文本编辑器 要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设 置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整 的系统运行退出等功能，所有的操作可选择设定的快捷键。 二、 课程设计目的课程设计目的 通过一学期的 VB自学，初步掌握了 VB程序设计的一些方法，学会了编写最基 本的 VB 程序；对于完整的 VB 程序设
2、计来讲是很不足的，平时掌握的只是单独的窗 体程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以没有必要做一次 完整的 VB 程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种 控件的综合运用，初步设计一个合格的 VB 应用程序，这样在巩固 VB 所学的同时，更 好地学会程序设计的一些思想和方法，对于以后的编程学习或者是工作有重要的实践 意义。 三、 课程设计说明课程设计说明 题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑本身 的功能，然后对其完善，做成一个完整的小程序。 四、 源代码源代码 定义全局变量 Dim sfind As String Dim F
3、ileType, FiType As String 设置窗体大小 Private Sub Form_Load() Me.Height = 7500 Me.Width = 5000 End Sub 设置文本编辑框的位置和大小 Private Sub Form_Resize() On Error Resume Next RichTextBox1.Top = 20 RichTextBox1.Left = 20 RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width = ScaleWidth - 40 End Sub 以下是对菜单编辑器的设置
4、 Private Sub mnuAbout_Click() MsgBox “写字板 1.0 版权所有（C）DXL“, vbOKOnly, “关于“ End Sub Private Sub mnucopy_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText End Sub Private Sub mnucut_Click() Clipboard.Clear Clipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = “ End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnuFind_Click() sfind = InputBox(“请输入要查找的字符：“, “查找内容“) RichTextBox1.Find sfind End Sub Private Sub mnuFindOn_Click() RichTextBox1.SelStart = RichTe
