VB课程设计报告记事本设计Word下载.docx
- 文档编号:19704020
- 上传时间:2023-01-09
- 格式:DOCX
- 页数:16
- 大小:371.46KB
VB课程设计报告记事本设计Word下载.docx
《VB课程设计报告记事本设计Word下载.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告记事本设计Word下载.docx(16页珍藏版)》请在冰豆网上搜索。
类似Word文档的查找功能,通过输入关键字,词进行查找。
帮助:
记事本简介以及功能的用法。
二、设计界面
记事本界面有以下几部分组成:
标题栏:
自定义图标和记事本标题。
菜单栏:
包括文件、编辑、搜索和帮助主题。
工具栏:
菜单栏中部分功能的快捷键。
文本框:
用于编辑、查看文本内容。
状态栏:
显示编辑状态、当前日期和具体时间。
具体设计界面如下图:
三、运行界面及主要功能说明
双击“记事本.exe”出现如图主界面:
主要功能:
(1)文本打开、新建、保存等基本操作:
(2)文本编辑功能:
(3)文本查找功能:
(4)记事本帮助主题:
功能说明:
(1)基本操作:
能够打开计算机中存储的*.txt或*.rtf文件,进行读写操作,记事本拥有一个很好的优点:
就是打开速度快,文件小。
通过记事本可以很方便地打开比较小文本文档。
(2)编辑操作:
对文本匡中的文档内容进行编辑。
通过对文本进行复制、剪切、粘贴,方便了用户的操作。
使得记事本能够像Word一样,不仅可以查看文本,还能对其进行修改。
(3)搜索操作:
如果一篇文章太长,使用搜索功能可以马上找到要寻找的内容,通过输入关键字进行查找。
如果要查找多个相同文本内容,可以通过“查找下一个”来逐一查找。
(4)使用说明:
一个简单的记事本使用指南。
“关于”的内容一般都是作者的版权说明以及程序版本。
(5)工具栏:
对常用的几个功能进行了快捷键设置,方便用户操作。
四、操作流程图
1.基本操作
通过文件---新建,来打开一个新文档,新建后的文档是以“未命名”为标题的。
打开操作:
文件----打开,选择要打开的文档Readme.txt
打开后的文档:
保存操作:
文件----保存;
另存为abc,txt保存在F盘。
2.编辑操作:
复制:
打开Readme.txt,选中第一段,复制到第二段中间。
剪切和粘贴:
把复制的内容剪切掉,粘贴在最后一段后面。
更改字体:
选中第一段文字,把文字改为隶书、36号、绿色。
点击编辑----字体,出现字体编辑对话框,编辑字体属性。
如图,修改后的文本。
3.查找操作
搜索---查找,通过查找“程序”两个字为例。
单击“确定”按钮。
如果要查找下一个“程序”,通过“查找下一个”查找。
五、程序设计过程
第一步:
界面设计
新建一个标准EXE工程,将其Caption属性改为“记事本”,点击Icon属性给它找个合适的Icon图标。
单击菜单“工程”-“部件”,在弹出的“部件”对话框里找到MicrosoftRichTextBox6.0和公共对话框MicrosoftCommonDialog6.0并选中它们,单击“确定”按钮。
这时左边的工具栏上出现了刚才新添的两个控件。
在窗体上绘制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()
设置程序启动时的大小
Me.Height=6000
Me.Width=9000
EndSub
设置编辑框的位置和大小
PrivateSubForm_Resize()
OnErrorResumeNext'
出错处理
RichTextBox1.Top=380
RichTextBox1.Left=20
RichTextBox1.Height=ScaleHeight-400
RichTextBox1.Width=ScaleWidth-40
新建文件
PrivateSubmnuNew_Click()
RichTextBox1.Text="
"
'
清空文本框
FileName="
未命名"
Me.Caption=FileName
打开文件
PrivateSubmnuOpen_Click()
CommonDialog1.Filter="
文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
FileName=CommonDialog1.FileName
RichTextBox1.LoadFileFileName
Me.Caption="
记事本:
&
FileName
保存文件
PrivateSubmnuSave_Click()
CommonDialog1.ShowSave
FileType=CommonDialog1.FileTitle
FiType=LCase(Right(FileType,3))
SelectCaseFiType
Case"
txt"
RichTextBox1.SaveFileFileName,rtfText
rtf"
RichTextBox1.SaveFileFileName,rtfRTF
*.*"
RichTextBox1.SaveFileFileName
EndSelect
退出
PrivateSubmnuExit_Click()
End
复制
PrivateSubmnuCopy_Click()
Clipboard.Clear
Clipboard.SetTextRichTextBox1.SelTextEndSub
剪切
PrivateSubmnuCut_Click()
Clipboard.SetTextRichTextBox1.SelText
RichTextBox1.SelText="
全选
PrivateSubmnuSelectAll_Click()
RichTextBox1.SelStart=0
RichTextBox1.SelLength=Len(RichTextBox1.Text)
粘贴
PrivateSubmnuPaste_Click()
RichTextBox1.SelText=Clipboard.GetText
查找
PrivateSubmnuFind_Click()
sFind=InputBox("
请输入要查找的段落:
"
查找内容"
sFind)
RichTextBox1.FindsFind
继续查找
PrivateSubmnuFindOn_Click()
RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1
RichTextBox1.FindsFind,,Len(RichTextBox1)
使用说明
PrivateSubmnuReadme_Click()
OnErrorGoTohandler
RichTextBox1.LoadFile"
Readme.txt"
rtfText'
请写好Readme.txt文件并存入程序所在文件夹中
"
使用说明"
ExitSub
handler:
MsgBox"
使用说明文档可能已经被移除,请与作者联系。
vbOKOnly,"
错误信息"
关于
PrivateSubmnuAbout_Click()
超级记事本Ver1.0版权所有(C)2008yys3434"
vbOKOnly,"
关于"
EndSub
第四步:
制作工具栏
单击“工程”-“部件”,选中MicrosoftWindowsCommonControl6.0并确定。
要用到的控件就出现在左边的工具栏上。
首先用ImageList控件来装载图像。
在程序界面上添加它,然后右键单击此控件,左键单击“属性”,弹出“属性页”对话框的“图像”,再单击“插入图片”可以一次性装载图片。
在插入图片时给每一张图片注明关键字。
接下来在程序界面添加工具栏(ToolBar)。
添加后工具栏就出现在菜单下面,右键单击,选择“属性”,在弹出的“属性页”对话框中的“通用”项作些设置如下两项:
1.“图像列表”:
选择ImageList1
2.“样式”:
选择1-trbStandard
继续点击“属性页”的“按钮”选项,插入若干按钮。
按钮有多种样式,每一个与用户操作有关的按钮都必须注明关键字、装载图片,在“图像”项键入ImageList1中的图片关键字。
然后编写工具栏的代码:
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
OnErrorResumeNext
SelectCaseButton.Key
Case"
新建"
mnuNew_Click
打开"
mnuOpen_Click
保存"
mnuSave_Click
查找"
mnuFind_Click
剪切"
mnuCut_Click
复制"
mnuCopy_Click
粘贴"
mnuPaste_Click
EndSelect
第五步:
制作状态栏
在窗体上添加StatusBar控件后会默认出现在窗体的最下方。
右键点击调出“属性页”对话框,单击“窗格”项,插入窗格将各个窗格的“样式”进行设置。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课程设计 报告 记事本 设计
![提示](https://static.bdocx.com/images/bang_tan.gif)