VB课程设计报告记事本设计.docx
《VB课程设计报告记事本设计.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告记事本设计.docx(17页珍藏版)》请在冰豆网上搜索。
![VB课程设计报告记事本设计.docx](https://file1.bdocx.com/fileroot1/2023-1/25/ca5f94e8-8e8b-49ff-a2b3-765c0d1adff5/ca5f94e8-8e8b-49ff-a2b3-765c0d1adff51.gif)
VB课程设计报告记事本设计
VB课程设计
题目:
记事本程序
~
指导教师:
姓名:
\
2008-7-2
.
一、预定功能------------------------------------------第3页
二、设计界面------------------------------------------第3页
三、运行界面及主要功能说明---------------------第4页
四、操作流程图---------------------------------------第7页
】
五、程序设计过程------------------------------------第12页
!
一、预定功能
新建:
新建立一个记事本文档。
保存:
重命名一个名字,保存文档。
打开:
将打开一个已经存储在计算机中的文件(*.txt或*.rtf文件)。
退出:
指退出这个记事本程序。
|
编辑:
能对文本进行复制、剪切、粘贴,也可以改变文本字体、颜色、大小。
查找:
类似Word文档的查找功能,通过输入关键字,词进行查找。
帮助:
记事本简介以及功能的用法。
二、设计界面
记事本界面有以下几部分组成:
标题栏:
自定义图标和记事本标题。
菜单栏:
包括文件、编辑、搜索和帮助主题。
%
工具栏:
菜单栏中部分功能的快捷键。
文本框:
用于编辑、查看文本内容。
状态栏:
显示编辑状态、当前日期和具体时间。
具体设计界面如下图:
'
三、运行界面及主要功能说明
双击“记事本.exe”出现如图主界面:
主要功能:
(1)文本打开、新建、保存等基本操作:
!
(2)文本编辑功能:
(3)文本查找功能:
¥
(4)记事本帮助主题:
功能说明:
(1)基本操作:
能够打开计算机中存储的*.txt或*.rtf文件,进行读写操作,记事本拥有一个很好的优点:
就是打开速度快,文件小。
通过记事本可以很方便地打开比较小文本文档。
(2)编辑操作:
对文本匡中的文档内容进行编辑。
通过对文本进行复制、剪切、粘贴,方便了用户的操作。
使得记事本能够像Word一样,不仅可以查看文本,还能对其进行修改。
(3)搜索操作:
如果一篇文章太长,使用搜索功能可以马上找到要寻找的内容,通过输入关键字进行查找。
如果要查找多个相同文本内容,可以通过“查找下一个”来逐一查找。
(4)¥
(5)使用说明:
一个简单的记事本使用指南。
“关于”的内容一般都是作者的版权说明以及程序版本。
(6)工具栏:
对常用的几个功能进行了快捷键设置,方便用户操作。
—
四、操作流程图
1.基本操作
新建:
通过文件---新建,来打开一个新文档,新建后的文档是以“未命名”为标题的。
打开操作:
文件----打开,选择要打开的文档
打开后的文档:
?
保存操作:
文件----保存;另存为abc,txt保存在F盘。
2.编辑操作:
复制:
打开,选中第一段,复制到第二段中间。
;
剪切和粘贴:
把复制的内容剪切掉,粘贴在最后一段后面。
更改字体:
选中第一段文字,把文字改为隶书、36号、绿色。
~
点击编辑----字体,出现字体编辑对话框,编辑字体属性。
如图,修改后的文本。
-
3.查找操作
查找:
搜索---查找,通过查找“程序”两个字为例。
单击“确定”按钮。
"
如果要查找下一个“程序”,通过“查找下一个”查找。
五、.
六、程序设计过程
第一步:
界面设计
新建一个标准EXE工程,将其Caption属性改为“记事本”,点击Icon属性给它找个合适的Icon图标。
单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到MicrosoftRichTextBox和公共对话框MicrosoftCommonDialog并选中它们,单击“确定”按钮。
这时左边的工具栏上出现了刚才新添的两个控件。
在窗体上绘制RichTextBox和CommnDialog,其中RichTextBox的大小和位置可不用理睬,可以在代码中处理它,要把它的ScrollBar属性设为2-rtfVertical,这样在打开和编辑文件时垂直滚动条才可用。
第二步:
编辑菜单。
调出菜单编辑器,做如下几个菜单:
一.文件菜单:
文件(第一层)mnuFile
·
新建(第二层)mnuNewCtrl+N
打开(第二层)mnuOpenCtrl+O
保存(第二层)mnuSaveCtrl+S
-(第二层)mnuFileSep(分隔线)
退出(第二层)mnuExitCtrl+X
二.编辑菜单:
编辑(第一层)mnuEdit
复制(第二层)mnuCopyCtrl+C
?
剪切(第二层)mnuCutCtrl+T
粘贴(第二层)mnuPasteCtrl+V
-(第二层)mnuEditSep(分隔线)
全选(第二层)mnuSelecAllCtrl+A
三.搜索菜单:
搜索(第一层)mnuSearch
查找(第二层)mnuFindCtrl+F
查找下一个(第二层)mnuFindOnCtrl+Z
?
四.帮助菜单:
帮助(第一层)mnuHelp
使用说明(第二层)mnuUsage
关于(第二层)mnuAbout
第三步:
编写代码
'声明查找变量
DimsFindAsString
、
'声明文件类型
DimFileType,FiTypeAsString
'初始化程序
PrivateSubForm_Load()
'设置程序启动时的大小
=6000
=9000
`
EndSub
'设置编辑框的位置和大小
PrivateSubForm_Resize()
OnErrorResumeNext'出错处理
=380
=20
=ScaleHeight-400
)
=ScaleWidth-40
EndSub
'新建文件
PrivateSubmnuNew_Click()
=""'清空文本框
FileName="未命名"
=FileName
EndSub
'打开文件
PrivateSubmnuOpen_Click()
="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
=""'清空文本框
FileName=
、
FileName
="记事本:
"&FileName
EndSub
'保存文件
PrivateSubmnuSave_Click()
="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
】
FileType=
FiType=LCase(Right(FileType,3))
FileName=
SelectCaseFiType
Case"txt"
FileName,rtfText
Case"rtf"
FileName,rtfRTF
·
Case"*.*"
FileName
EndSelect
="记事本:
"&FileName
EndSub
'退出
PrivateSubmnuExit_Click()
;
End
EndSub
'复制
PrivateSubmnuCopy_Click()
EndSub
【
'剪切
PrivateSubmnuCut_Click()
=""
EndSub
'全选
)
PrivateSubmnuSelectAll_Click()
=0
=Len
EndSub
'粘贴
PrivateSubmnuPaste_Click()
=
@
EndSub
'查找
PrivateSubmnuFind_Click()
sFind=InputBox("请输入要查找的段落:
","查找内容",sFind)
sFind
EndSub
》
'继续查找
PrivateSubmnuFindOn_Click()
=++1
sFind,,Len(RichTextBox1)
EndSub
'使用说明
PrivateSubmnuReadme_Click()
、
OnErrorGoTohandler
"",rtfText'请写好文件并存入程序所在文件夹中
="记事本:
"&"使用说明"
ExitSub
handler:
MsgBox"使用说明文档可能已经被移除,请与作者联系。
",vbOKOnly,"错误信息"
EndSub
'关于
PrivateSubmnuAbout_Click()
MsgBox"超级记事本版权所有(C)2008yys3434",vbOKOnly,"关于"
EndSub
第四步:
制作工具栏
单击“工程”-“部件”,选中MicrosoftWindowsCommonControl并确定。
要用到的控件就出现在左边的工具栏上。
首先用ImageList控件来装载图像。
在程序界面上添加它,然后右键单击此控件,左键单击“属性”,弹出“属性页”对话框的“图像”,再单击“插入图片”可以一次性装载图片。
在插入图片时给每一张图片注明关键字。
接下来在程序界面添加工具栏(ToolBar)。
添加后工具栏就出现在菜单下面,右键单击,选择“属性”,在弹出的“属性页”对话框中的“通用”项作些设置如下两项:
1.“图像列表”:
选择ImageList1
2.“样式”:
选择1-trbStandard
继续点击“属性页”的“按钮”选项,插入若干按钮。
按钮有多种样式,每一个与用户操作有关的按钮都必须注明关键字、装载图片,在“图像”项键入ImageList1中的图片关键字。
然后编写工具栏的代码:
PrivateSubToolbar1_ButtonClick(ByValButtonAs
OnErrorResumeNext
SelectCase
Case"新建"
mnuNew_Click
Case"打开"
mnuOpen_Click
Case"保存"
mnuSave_Click
Case"查找"
mnuFind_Click
Case"剪切"
mnuCut_Click
Case"复制"
mnuCopy_Click
Case"粘贴"
mnuPaste_Click
EndSelect
EndSub
第五步:
制作状态栏
在窗体上添加StatusBar控件后会默认出现在窗体的最下方。
右键点击调出“属性页”对话框,单击“窗格”项,插入窗格将各个窗格的“样式”进行设置。