课程设计报告
课程：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
'帮助菜单下的使用说明
Private Sub mnuUsage_Click()
On Error GoTo handler
"", rtfText '文件存入程序所在文件夹中
= "易记本：" & "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除，请与作者联系。
", vbOKOnly, " 错误信息"
End Sub
'帮助菜单下的关于，查询软件的归属信息
Private Sub mnuAbout_Click()
MsgBox "易记本版权所有(C) DXL", 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
五、运行结果
程序运行初始窗口，易记本
易记本菜单
使用说明及右击弹出式菜单
桌面
查找及打开功能
六、体会总结
1.关与本次课程设计，总体来说不是很难，当然是仅限于这个题目
来说，通过实践，感觉到这一学期的VB学习不是很深入，很多真正需要掌握的东西还没学会，或是没学好，原因是平时理论学习不够，没用真正理解，其次就是实践太少，不能熟练地使用VB开发环境。
2.具体说文本编辑器的设计，首先是控件的使用要注意，例如不能
使用平时一般的Text文本框，因为其只适用于一般的文本显示，使用RichTextBox，可拥有文本的完整功能，不用再添加滚动条等控件，而是使用其自带的滚动条；其实是菜单的设计，应注意菜单的名称书写，不能出现重复现象，否则要使用索引，不仅增加麻烦更不利于程序编写，然后编写代码的时候应注意必须与菜单中的名字一一对应，否则会出现错误；最后要注意程序的完整性以及实用性、便捷性，能够有友好的UI设计，给用户最好的体验。
总之，通过本次课程设计，不仅找到了学习的不足，更体会到实践的重要性，所有的语言设计课程都必须通过实践来掌握，同时要建立在掌握理论知识的基础上，只有这两者紧密结合起来才能真正学号一门语言设计课程。