Vb课程设计报告

VB课程设计报告
——文本编辑器
学院名称：计算机学院
专业名称：计算机科学与技术班级：1001班
一、课程设计题目
用Visual Basic程序设计语言编写一个简易的文本编辑器
要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设
置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整
的系统运行退出等功能，所有的操作可选择设定的快捷键。

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

三、课程设计说明
题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑本身的功能，然后对其完善，做成一个完整的小程序。

四、源代码
定义全局变量
Dim sfind As String
Dim FileType, 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
以下是对菜单编辑器的设置
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 = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sfind, , Len(RichTextBox1)
End Sub
Private Sub mnunew_Click()
RichTextBox1.Text = ""
FileName = "未命名"
Me.Caption = FileName
End Sub
Private Sub mnuOpen_Click()
CommonDialog1.Filter = "文本文档（*.txt)|*.txt|RTF 文档（*.rtf）|*.rtf|所有文件（*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text = ""
FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "写字板：" & FileName
End Sub
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
Private Sub mnuSave_Click()
CommonDialog1.Filter = "文本文档（*.txt)|*.txt|RTF 文档（*.rtf）|*.rtf|所有文件（*.*)|*.*"
CommonDialog1.ShowSave
FileType = CommonDialog1.Filter
FiType = LCase(Right(FileType, 3))
FileName = CommonDialog1.FileName
Select Case FiType
Case "txt"
RichTextBox1.SaveFile FileName, rtfText
Case "rtf"
RichTextBox1.SaveFile FileName, rtfRTF
Case "*.*"
RichTextBox1.SaveFile FileName
End Select
Me.Caption = "写字板：" & FileName
End Sub
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
Private Sub mnuUsage_Click()
On Error GoTo handler
RichTextBox1.LoadFile "Readme.txt", rtfText
Me.Caption = "写字板：" & "使用说明"
Exit Sub
handler:
MsgBox "使用说明文档可能已经被移除，请与作者联系。

", 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
五、运行结果
图5 帮助使用说明窗口
图6 帮助关于窗口
图7 文件打开窗口
图8 文件打开后的窗口
图9 动态窗口右击
六、心得体会
1、通过本次课程设计，自己又对Vb有了更进一步的理解和掌握，通过实践，感觉到这一学
期的VB学习不是很深入，很多真正需要掌握的东西还没学会，或者是没学好，原因是平时理论学习不够，没有真正理解，其次就是实践太少，不能熟练地使用VB开发环境。

2、具体说文本编辑器的设计，首先是控件的使用要注意，例如不能使用平时的Text文本框，因为其只适用于一般的文本显示。

编写代码的时候应该注意必须与菜单中的名字一一对应，否则会出现错误；最后要注意程序的完整性以及实用性、便捷性，能够有友好的界面设计，给用户最好的体验。

3.对于本次课程设计自己最大的体会就是，不管以后写什么程序首先得把问题分析透彻，要知道自己要干什么，才能很好的有目的性的去设计出自己想要的程序。