VB课程设计报告记事本设计Word下载.docx

资源描述

VB课程设计报告记事本设计Word下载.docx

《VB课程设计报告记事本设计Word下载.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告记事本设计Word下载.docx（16页珍藏版）》请在冰豆网上搜索。

VB课程设计报告记事本设计Word下载.docx

类似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（）

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控件后会默认出现在窗体的最下方。

右键点击调出“属性页”对话框，单击“窗格”项，插入窗格将各个窗格的“样式”进行设置。

展开阅读全文