第一章让我们的记事本马上运行r
　　急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！r
r
　　步骤一：绘制界面。r
r
　　新建一个标准EXE工程，将其Captio
属性改为“超级记事本”，点击Ico
属性给它找个合适的Ico
图标。单击菜单“工程”“部件”，在弹出的“部件”对话框里找到MicrosoftRichTextBox60和公共对话框MicrosoftCommo
Dialog60并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichTextBox和Comm
Dialog，其中RichTextBox的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。r
r
　　步骤二：编辑菜单。r
r
　　按CtrlE调出菜单编辑器，我们来做如下几个菜单：r
r
　　一文件菜单：r
r
　　文件（第一层）m
uFiler
r
　　新建（第二层）m
uNewr
r
　　打开（第二层）m
uOpe
r
r
　　保存（第二层）m
uSaver
r
　　（第二层）m
uFileSep分隔线）r
r
　　退出（第二层）m
uExitr
r
　　二编辑菜单：r
r
　　编辑（第一层）m
uEditr
r
　　复制（第二层）m
uCopyr
r
　　剪切（第二层）m
uCutr
r
　　粘贴（第二层）m
uPaster
r
　　（第二层）m
uEditSep（分隔线）r
r
　　全选（第二层）m
uSelecAllr
r
　　三搜索菜单：r
r
　　搜索（第一层）m
uSearchr
r
　　查找（第二层）m
uFi
dr
r
　　查找下一个（第二层）m
uFi
dO
r
r
　　四帮助菜单：r
r
　　帮助（第一层）m
uHelpr
r
　　使用说明（第二层）m
uUsager
r
　　关于（第二层）m
uAboutr
r
　　注：各菜单项的快捷键请自行设置r
r
　　好了，其它的菜单项以后再根据需要添加。现在进入：r
r
　　步骤三：编写代码。r
r
　　声明查找变量r
r
　　DimsFi
dAsStri
gr
r
　　声明文件类型r
r
　　DimFileTypeFiTypeAsStri
gr
r
　　初始化程序r
r
　　PrivateSubForm_Loadr
r
　　设置程序启动时的大小r
r
　　Meborder1Height6000r
r
　　MeWidth9000r
r
　　E
dSubr
r
　　设置编辑框的位置和大小r
r
　　PrivateSubForm_Resizer
r
　　O
ErrorResumeNext出错处理r
r
　　RichTextBox1Top20r
r
　　RichTextBox1ce
ter20r
r
　　RichTextBox1border1HeightScaleborder1Height40r
r
　　RichTextBox1WidthScaleWidth40r
r
　　E
dSubr
r
　　新建文件r
r
　　PrivateSubm
uNew_Clickr
r
　　RichTextBox1Text