如何设置记事本格式编程？
步骤一：绘制界面。
新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft
RichTextBox6.0和公共对话框MicrosoftCommonDialog6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText
Box和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。
步骤二：编辑菜单。
按CtrlE调出菜单编辑器，我们来做如下几个菜单：
一.文件菜单：
文件（第一层）mnuFile
新建（第二层）mnuNew
打开（第二层）mnuOpen
保存（第二层）mnuSave
-（第二层）mnuFileSep(分隔线）
退出（第二层）mnuExit
二.编辑菜单：
编辑（第一层）mnuEdit
复制（第二层）mnuCopy
剪切（第二层）mnuCut
粘贴（第二层）mnuPaste
-（第二层）mnuEditSep（分隔线）
全选（第二层）mnuSelecAll
三.搜索菜单：
搜索（第一层）mnuSearch
查找（第二层）mnuFind
查找下一个（第二层）mnuFindOn
四.帮助菜单：
帮助（第一层）mnuHelp
使用说明（第二层）mnuUsage
关于（第二层）mnuabout
(注：各菜单项的快捷键请自行设置)
好了，其它的菜单项以后再根据需要添加。现在进入：
步骤三：编写代码。
声明查找变量
DimsFindAsString
声明文件类型
DimFileType,FiTypeAsString
初始化程序
PrivateSubForm_Load()
设置程序启动时的大小
Me.Height6000
Me.Width9000
EndSub
设设置编辑框的位置和大小PrivateSubForm_Resize()OnErrorResumeNext错误处理richtextbox1.left20richtextbox1.HeightScaleHeight-40richtextbox1。WidthScaleWidth-40endSubNewFilePrivateSubMnUnew_click()richt