VB记事本代码_原创文档.pdfVIP

《跟我学做记事本》

我想有了这个示例VB的世界才够精彩：

用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打

算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！

通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText

控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。

第一章让我们的记事本马上运行

急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！

步骤一：绘制界面。

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

适的Icon图标。单击菜单工“程”-部“件”，在弹出的部“件”对话框里找到MicrosoftRichText

Box6.0和公共对话框MicrosoftCommonDialog6.0并选中它们，单击确定“”按钮。这时左

边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichTextBox和Commn

Dialog，其中RichTextBox的大小和位置可不用理睬，我们将在代码中处理它，当然，有

必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

步骤二：编辑菜单。

按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：

一.文件菜单：

文件（第一层）mnuFile

新建（第二层）mnuNew

打开（第二层）mnuOpen

保存（第二层）mnuSave

-（第二层）mnuFileSep(分隔线）

退出（第二层）mnuExit

二.编辑菜单：

编辑（第一层）mnuEdit

复制（第二层）mnuCopy

剪切（第二层）mnuCut

粘贴（第二层）mnuPaste

-（第二层）mnuEditSep（分隔线）

全选（第二层）mnuSelecAll

三.搜索菜单：

搜索（第一层）mnuSearch

查找（第二层）mnuFind

查找下一个（第二层）mnuFindOn

四.帮助菜单：

帮助（第一层）mnuHelp

使用说明（第二层）mnuUsage

关于（第二层）mnuAbout

(注：各菜单项的快捷键请自行设置)

好了，其它的菜单项以后再根据需要添加。现在进入：

步骤三：编写代码。

声明查找变量

DimsFindAsString

声明文件类型

DimFileType,FiTypeAsString

初始化程序

PrivateSubForm_Load()

设置程序启动时的大小

Me.Height=6000

Me.Width=9000

EndSub

设置编辑框的位置和大小

PrivateSubForm_Resize()

OnErrorResumeNext出错处理

RichTextBox1.Top=20

RichTextBox1.Left=20

RichTextBox1.Height=ScaleHeight-40

RichTextBox1.Width=ScaleWidth-40

EndSub

新建文件

PrivateSubmnuNew_Click()PrivateSubmnuNew_Click()

清空文本框

未命名未命名

Me.Caption=FileName

EndSub

打开文件

PrivateSubmnuOpen_Click()PrivateSubmnuOpen_Click()

文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件所有文件

CommonDialog1.ShowOpenCommonDialog1.ShowOpen

清空文本框

FileName=CommonDialog1.FileName

RichTextBox1.LoadFileFileNameRichTextBox1.LoadFileFileName

超级记事本：超级记事本：

En