如何设置记事本格式编程

步骤一：绘制界面。

新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到MicrosoftRichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichTextBox和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我们将在代码中处理它，当然有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。步骤二：编辑菜单。按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：一.文件菜单：文件（第一层） mnuFile新建（第二层） mnuNew打开（第二层） mnuOpen保存（第二层） mnuSave- （第二层） mnuFileSep (分隔线）退出（第二层） mnuExit二.编辑菜单：编辑（第一层） mnuEdit复制（第二层） mnuCopy剪切（第二层） mnuCut粘贴（第二层） mnuPaste- （第二层） mnuEditSep （分隔线）全选（第二层） mnuSelecAll三.搜索菜单：搜索（第一层） mnuSearch查找（第二层） mnuFind查找下一个（第二层） mnuFindOn四.帮助菜单：帮助（第一层） mnuHelp使用说明（第二层） mnuUsage关于（第二层） mnuAbout(注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要添加。现在进入：步骤三：编写代码。'声明查找变量Dim sFind As String'声明文件类型Dim FileType, FiType As String'初始化程序Private Sub Form_Load()'设置程序启动时的大小Me.Height = 6000Me.Width = 9000End Sub'设置编辑框的位置和大小Private Sub Form_Resize()On Error Resume Next '出错处理RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height = ScaleHeight-40RichTextBox1.Width = ScaleWidth-40End Sub'新建文件Private Sub mnuNew_Click()RichTextBox1.Text = \"\" '清空文本框FileName = \"未命名\"Me.Caption = FileNameEnd Sub'打开文件Private Sub mnuOpen_Click()CommonDialog1.Filter = \"文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*\"CommonDialog1.ShowOpenRichTextBox1.Text = \"\" '清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = \"超级记事本：\" FileNameEnd Sub'保存文件Private Sub mnuSave_Click()CommonDialog1.Filter = \"文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*\"CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3))FileName = CommonDialog1.FileNameSelect Case FiTypeCase \"txt\"RichTextBox1.SaveFile FileName, rtfTextCase \"rtf\"RichTextBox1.SaveFile FileName, rtfRTFCase \"*.*\"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = \"超级记事本：\" FileNameEnd Sub'退出Private Sub mnuExit_Click()EndEnd Sub'复制Private Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub'剪切Private Sub mnuCut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = \"\"End Sub'全选Private Sub mnuSelectAll_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub'粘贴Private Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub'查找Private Sub mnuFind_Click()sFind = InputBox(\"请输入要查找的字、词：\