如何設置記事本格式編程？
步驟一：繪制界面。
新建一個標準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