VB课程设计报告记事本设计.docx
《VB课程设计报告记事本设计.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告记事本设计.docx（17页珍藏版）》请在冰豆网上搜索。
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控件后会默认出现在窗体的最下方。
右键点击调出“属性页”对话框，单击“窗格”项，插入窗格将各个窗格的“样式”进行设置。
升级会员 