VB课程设计报告书之2 记事本文档格式.docx

VB课程设计报告书之2 记事本文档格式.docx

《VB课程设计报告书之2 记事本文档格式.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告书之2 记事本文档格式.docx（17页珍藏版）》请在冰豆网上搜索。

能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。

查找：

类似Word文档的查找功能，通过输入关键字，词进行查找。

帮助：

记事本简介以及功能的用法。

二、设计界面

记事本界面有以下几部分组成：

标题栏：

自定义图标和记事本标题。

菜单栏：

包括文件、编辑、搜索和帮助主题。

工具栏：

菜单栏中部分功能的快捷键。

文本框：

用于编辑、查看文本内容。

具体设计界面如下图：

三、运行界面及主要功能说明

双击“记事本.exe”首先出现封面

然后出现主界面

主要功能：

（1）文本打开、新建、保存等基本操作：

（2）文本编辑功能：

（3）文本字体格式设置

（4）常用工具栏（文件，文本）编辑

功能说明：

（1）基本操作：

能够打开计算机中存储的*.txt或*.rtf文件，进行读写操作，记事本拥有一个很好的优点：

就是打开速度快，文件小。

通过记事本可以很方便地打开比较小文本文档。

（2）编辑操作：

对文本匡中的文档内容进行编辑。

通过对文本进行复制、剪切、粘贴，方便了用户的操作。

使得记事本能够像Word一样，不仅可以查看文本，还能对其进行修改。

（3）搜索与替换操作：

使用搜索功能可以马上找到要寻找的内容，通过输入关键字进行查找。

可将查找的内容替换，替换成你想要的文本。

（4）格式设置：

1、可对字体大小颜色等进行基本设置，2、对文本框进行颜色等基本设置

（5）工具栏：

对常用的几个功能进行了快捷键设置，方便用户操作。

四、操作流程图

1．基本操作

通过文件---新建，来打开一个新文档，新建后的文档是以“未命名”为标题的。

打开操作：

文件----打开，选择要打开的文档Readme.txt

打开后的文档：

保存操作：

文件----保存；

另存为abc,txt保存在D盘。

2．编辑操作：

复制：

打开Readme.txt，选中第一行，复制到最后一行。

剪切和粘贴：

把复制的内容剪切掉，放到内容的中间。

更改字体：

选中第一段文字，把文字改为隶书、36号、绿色。

点击编辑----字体，出现字体编辑对话框，编辑字体属性。

如图，修改后的文本。

3．查找操作

搜索---查找，通过查找“记事本”两个字为例。

单击“确定”按钮。

如果想替换成别的内容，进行替换的操作。

例如将“记事本”替换成“笔记本”。

五、程序设计过程

第一步：

界面设计

新建一个标准EXE工程，将其Caption属性改为“记事本”，点击Icon属性给它找个合适的Icon图标。

单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到MicrosoftRichTextBox6.0和公共对话框MicrosoftCommonDialog6.0并选中它们，单击“确定”按钮。

这时左边的工具栏上出现了刚才新添的两个控件。

在窗体上绘制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，可以在代码中处理它，要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

第二步：

编辑菜单。

调出菜单编辑器，做如下几个菜单：

一.文件菜单：

文件（第一层）Menufile

新建（第二层）MenunewCtrl+N

打开（第二层）MenuopenCtrl+O

保存（第二层）MenusaveCtrl+S

另存为（第二层）MenusaveotherCtrl+M

退出（第二层）MenuendCtrl+X

二.编辑菜单：

编辑（第一层）Menuedit

复制（第二层）MenucopyCtrl+C

剪切（第二层）MenucutCtrl+T

粘贴（第二层）MenupasteCtrl+V

全选（第二层）MenuselectAllCtrl+G

查找（第二层）MenufindCtrl+F

替换（第二层）MenureplaceCtrl+Z

三、格式菜单：

格式（第一层）Menustyle

字体设置（第二层）Menuword

背景颜色（第二层）Menucolor

第三步：

编写代码

添加工程form2，在form2中编写

编辑初始封面

一、加载图片

PrivateSubTimer1_Timer（）

Timer1.Enabled=False

UnloadMe

Form1.Show

EndSub

二、制作移动文字

PrivateSubTimer2_Timer（）

IfLabel1.Left+Label1.Width>

0Then

Label1.MoveLabel1.Left-130

Else

Label1.Left=Form2.ScaleWidth

EndIf

在form1中继续编写代码：

'

声明查找变量

DimsFindAsString

声明文件类型

DimFileType,FiTypeAsString

初始化程序

PrivateSubForm_Load（）

设置程序启动时的大小

Me.Height=6000

Me.Width=9000

EndSub

设置编辑框的位置和大小

PrivateSubForm_Resize（）

OnErrorResumeNext

RichTextBox1.Top=500

RichTextBox1.Left=20

RichTextBox1.Height=ScaleHeight-850

RichTextBox1.Width=ScaleWidth-40

新建文件

PrivateSubMenunew_Click（）

RichTextBox1.Text="

"

'

清空文本框

FileName="

未命名"

Me.Caption=FileName

打开文件

PrivateSubMenuopen_Click（）

CommonDialog1.Filter="

文本文档（*.txt）|*.txt|RTF文档（*.rtf）|*.rtf|所有文件（*.*）|*.*"

CommonDialog1.ShowOpen

FileName=CommonDialog1.FileName

RichTextBox1.LoadFileFileName

Me.Caption="

记事本：

&

FileName

保存文件

PrivateSubMenusave_Click（）

CommonDialog1.ShowSave

FileType=CommonDialog1.FileTitle

FiType=LCase（Right（FileType,3））

SelectCaseFiType

Case"

txt"

RichTextBox1.SaveFileFileName,rtfText

rtf"

RichTextBox1.SaveFileFileName,rtfRTF

*.*"

RichTextBox1.SaveFileFileName

EndSelect

退出

PrivateSubMenuend_Click（）

End

复制

PrivateSubMenucopy_Click（）

Clipboard.Clear

Clipboard.SetTextRichTextBox1.SelTextEndSub

剪切

PrivateSubMenucut_Click（）

Clipboard.SetTextRichTextBox1.SelText

RichTextBox1.SelText="

全选

PrivateSubMenuselectAll_Click（）

RichTextBox1.SelStart=0

RichTextBox1.SelLength=Len（RichTextBox1.Text）

粘贴

PrivateSubMenupaste_Click（）

RichTextBox1.SelText=Clipboard.GetText

查找

PrivateSubMenufind_Click（）

sFind=InputBox（"

请输入要查找的段落：

"

查找内容"

sFind）

RichTextBox1.FindsFind

替换

PrivateSubmnuFindOn_Click（）

RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1

RichTextBox1.FindsFind,,Len（RichTextBox1）

字体设置

PrivateSubMenuword_Click（）

CommonDialog1.Flags=259

CommonDialog1.FontName="

宋体"

CommonDialog1.ShowFont

RichTextBox1.SelFontName=CommonDialog1.FontName

RichTextBox1.SelFontSize=CommonDialog1.FontSize

RichTextBox1.SelItalic=CommonDialog1.FontItalic

RichTextBox1.SelStrikeThru=CommonDialog1.FontStrikethru

RichTextBox1.SelUnderline=CommonDialog1.FontUnderline

RichTextBox1.SelColor=CommonDialog1.Color

背景颜色

PrivateSubMenucolor_Click（）

CommonDialog1.Flags=2

CommonDialog1.Action=3

RichTextBox1.BackColor=CommonDialog1.Color

第四步：

制作状态栏

单击“工程”-“部件”，选中MicrosoftWindowsCommonControl6.0并确定。

要用到的控件就出现在左边的工具栏上。

用statusbar添加在窗体底部，如图所示

这样一个简单的记事本就完成了