VB文本编辑器设计报告.docx
- 文档编号:30006908
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:11
- 大小:195.22KB
VB文本编辑器设计报告.docx
《VB文本编辑器设计报告.docx》由会员分享,可在线阅读,更多相关《VB文本编辑器设计报告.docx(11页珍藏版)》请在冰豆网上搜索。
VB文本编辑器设计报告
课程设计报告
课程:
VisualBasic程序设计
课题:
文本编辑器(易记本)
专业:
计算机信息管理
班级:
学号:
姓名:
@一路偏向北
教师:
2011-12-23
一、课程设计目的
通过一学期的VisualBasic程序设计学习,以及平时的上机实验,初步掌握了VB程序设计的各种方法,学会了编写最基本的VB程序;对于完整的VB程序设计来讲是很不足的,平时掌握的只是单独的窗体(Form)程序编写,以及各种简单控件的使用,没有做到很好连贯性,所以有必要做一次完整的VB程序设计,结合所学的基本知识,使用多个窗体自成一套系统,加上各种控件的综合运用,初步设计一个合格的VB应用程序;这样在巩固VB所学的同时,更好地学会程序设计的一些思想和方法,对于以后的编程学习或是工作有重要的实践意义。
二、题目及简介
文本编辑器
模仿Windows自带的本文编辑器,要求:
做到有下拉式菜单栏,有最基本的文本编辑功能,包括复制、剪切、粘贴、全选、查找;同时拥有文本的管理功能,其中包括新建文本、打开、保存;以及完整的运行退出等系统应用功能,所有操作可选择设定快捷键,更快更方便地使用程序,同时对于一个小程序而言,可给出基本的使用说明以及相关信息。
提示:
注意使用消息框,以及使用右击弹出式菜单,注意程序的完整性可可用性。
三、设计说明
题目为文本编辑器,即是最基本的文本编辑程序,首先必须做好文本编辑器本身的功能,然后对其完善,做成一个完整的小程序
功能设计说明:
功能是这个文本编辑器的核心内容,也就是程序的作用,它是用来做什么的;本程序就是用来编写文本的,编写过程中要利用到窗体(Form)一个,控件包括:
RichTextBox1(超文本框)、CommonDialog(通用对话框),以及InputBox(消息框)、菜单编辑器等,。
要做的工作就是编写代码把这些控件和窗体等结合为一体,使得程序能够成为一体,顺畅运行。
本次设计在按照题目要求的前提下,为了完整地展示一个应用程序,在最初就设计为最基本的文本的编辑器,所以取名为“易记本”,就是简易记事本的简称,然后加入图标,在程序完成之后还进行了大包操作,得到应用程序的安装文件,最后安装在电脑上运行使用。
四、源代码(加注释)
DimsfindAsString
DimFileType,FiTypeAsString
PrivateSubForm_Load()
Me.Height=7500
Me.Width=5000
EndSub
'设置文本编辑框的位置和大小
PrivateSubForm_Resize()
OnErrorResumeNext'遇到出错时处理
RichTextBox1.Top=20
RichTextBox1.Left=20
RichTextBox1.Height=ScaleHeight-40
RichTextBox1.Width=ScaleWidth-40
EndSub
'文件菜单下的新建文件
PrivateSubmnuNew_Click()
RichTextBox1.Text=""'新建文本时清空文本框
FileName="未命名"
Me.Caption=FileName
EndSub
'文件菜单下的打开文件
PrivateSubmnuOpen_Click()
CommonDialog1.Filter="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.Text=""'打开新的文件时清空原来的文本框
FileName=CommonDialog1.FileName
RichTextBox1.LoadFileFileName
Me.Caption="易记本:
"&FileName
EndSub
'文件菜单下的保存文件
PrivateSubmnuSave_Click()
CommonDialog1.Filter="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowSave
FileType=CommonDialog1.FileTitle
FiType=LCase(Right(FileType,3))
FileName=CommonDialog1.FileName
SelectCaseFiType
Case"txt"
RichTextBox1.SaveFileFileName,rtfText
Case"rtf"
RichTextBox1.SaveFileFileName,rtfRTF
Case"*.*"
RichTextBox1.SaveFileFileName
EndSelect
Me.Caption="易记本:
"&FileName
EndSub
'文件菜单下的退出
PrivateSubmnuExit_Click()
End
EndSub
'编辑菜单下的复制
PrivateSubmnuCopy_Click()
Clipboard.Clear
Clipboard.SetTextRichTextBox1.SelText
EndSub
'编辑菜单下的剪切
PrivateSubmnuCut_Click()
Clipboard.Clear
Clipboard.SetTextRichTextBox1.SelText
RichTextBox1.SelText=""
EndSub
'编辑菜单下的全选
PrivateSubmnuSelectAll_Click()
RichTextBox1.SelStart=0
RichTextBox1.SelLength=Len(RichTextBox1.Text)
EndSub
'文件菜单下的粘贴
PrivateSubmnuPaste_Click()
RichTextBox1.SelText=Clipboard.GetText
EndSub
'搜索菜单下的查找
PrivateSubmnuFind_Click()
sfind=InputBox("请输入要查找的字符:
","查找内容")
RichTextBox1.Findsfind
EndSub
'搜索菜单下的继续查找
PrivateSubmnuFindOn_Click()
RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1
RichTextBox1.Findsfind,,Len(RichTextBox1)
EndSub
'帮助菜单下的使用说明
PrivateSubmnuUsage_Click()
OnErrorGoTohandler
RichTextBox1.LoadFile"Readme.txt",rtfText'Readme.txt文件存入程序所在文件夹中
Me.Caption="易记本:
"&"使用说明"
ExitSub
handler:
MsgBox"使用说明文档可能已经被移除,请与作者联系。
",vbOKOnly,"错误信息"
EndSub
'帮助菜单下的关于,查询软件的归属信息
PrivateSubmnuAbout_Click()
MsgBox"易记本1.0版权所有(C)DXL",vbOKOnly,"关于"
EndSub
'设置弹出式菜单(即在编辑框中单击鼠标右键时弹出的动态菜单)
PrivateSubRichTextBox1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
PopupMenumnuEdit,vbPopupMenuLeftAlign
Else
ExitSub
EndIf
EndSub
五、运行结果
程序运行初始窗口,易记本
易记本菜单
使用说明及右击弹出式菜单
桌面
查找及打开功能
六、体会总结
1.关与本次课程设计,总体来说不是很难,当然是仅限于这个题目来说,通过实践,感觉到这一学期的VB学习不是很深入,很多真正需要掌握的东西还没学会,或是没学好,原因是平时理论学习不够,没用真正理解,其次就是实践太少,不能熟练地使用VB开发环境。
2.具体说文本编辑器的设计,首先是控件的使用要注意,例如不能使用平时一般的Text文本框,因为其只适用于一般的文本显示,使用RichTextBox,可拥有文本的完整功能,不用再添加滚动条等控件,而是使用其自带的滚动条;其实是菜单的设计,应注意菜单的名称书写,不能出现重复现象,否则要使用索引,不仅增加麻烦更不利于程序编写,然后编写代码的时候应注意必须与菜单中的名字一一对应,否则会出现错误;最后要注意程序的完整性以及实用性、便捷性,能够有友好的UI设计,给用户最好的体验。
总之,通过本次课程设计,不仅找到了学习的不足,更体会到实践的重要性,所有的语言设计课程都必须通过实践来掌握,同时要建立在掌握理论知识的基础上,只有这两者紧密结合起来才能真正学号一门语言设计课程。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 文本 编辑器 设计 报告