用VB做记事本作者：不详来源于：中国VB网发布时间：2004112用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。第一章让我们的记事本马上运行急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！步骤一：绘制界面。新建一个标准EXE工程，将其Captio
属性改为“超级记事本”，点击Ico
属性给它找个合适的Ico
图标。单击菜单“工程”“部件”，在弹出的“部件”对话框里找到MicrosoftRichTextBox60和公共对话框MicrosoftCommo
Dialog60并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichTextBox和Comm
Dialog，其中RichTextBox的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。步骤二：编辑菜单。按CtrlE调出菜单编辑器，我们来做如下几个菜单：一文件菜单：文件（第一层）m
uFile新建（第二层）m
uNew打开（第二层）m
uOpe
保存（第二层）m
uSave（第二层）m
uFileSep分隔线）退出（第二层）m
uExit二编辑菜单：编辑（第一层）m
uEdit复制（第二层）m
uCopy剪切（第二层）m
uCut粘贴（第二层）m
uPaste（第二层）m
uEditSep（分隔线）全选（第二层）m
uSelecAll三搜索菜单：搜索（第一层）m
uSearch查找（第二层）m
uFi
d查找下一个（第二层）m
uFi
dO
四帮助菜单：
f帮助（第一层）m
uHelp使用说明（第二层）m
uUsage关于（第二层）m
uAbout注：各菜单项的快捷键请自行设置
好了，其它的菜单项以后再根据需要添加。现在进入：
步骤三：编写代码。
注释：声明查找变量DimsFi
dAsStri
g注释：声明文件类型DimFileTypeFiTypeAsStri
g
注释：初始化程序PrivateSubForm_Load注释：设置程序启动时的大小MeHeight6000MeWidth9000E
dSub
注释：设置编辑框的位置和大小
fPrivateSubForm_ResizeO
ErrorResumeNext注释：出错处理RichTextBox1Top20RichTextBox1Left20RichTextBox1HeightScaleHeight40RichTextBox1WidthScaleWidth40E
dSub
注释：新建文件PrivateSubm
uNew_ClickRichTextBox1Text