資源描述：
《用vb6.0編寫一個簡單完整的記事本如何編寫》由會員上傳分享，免費在線閱讀，更多相關內(nèi)容在行業(yè)資料-天天文庫。
1、用VB做一個記事本實在不很復雜，我們完全可以通過向導來很方便地做出來。但本文只打算討論用手動方法制作記事本，旨在向VB初學者展示：學VB原來是如此容易！通過閱讀、研究本文并按本文所述進行嘗試，初學者將學到很多東西,如怎樣使用RichText控件來打開和保存文件，怎樣制作菜單、工具欄和狀態(tài)欄以及如何對其編寫代碼等。第一章讓我們的記事本馬上運行急于求成是初學者共有的心愿。那好，請按如下三個步驟做，我們的愿望立即就可以實現(xiàn)！步驟一：繪制界面。新建一個標準EXE工程，將其Caption屬性改為“超級記事本”，點擊Icon屬性給它找個合適的Icon圖標。單擊菜單“工程”-“部件”，在
2、彈出的“部件”對話框里找到MicrosoftRichTextBox6.0和公共對話框MicrosoftCommonDialog6.0并選中它們，單擊“確定”按鈕。這時左邊的工具欄上出現(xiàn)了我們剛才新添的兩個控件了。在窗體上繪制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我們將在代碼中處理它，當然，有必要把它的ScrollBar屬性設為2-rtfVertical，這樣在打開和編輯文件時垂直滾動條才可用。步驟二：編輯菜單。按Ctrl+E調(diào)出菜單編輯器，我們來做如下幾個菜單：一.文件菜單：文件（第一層）mnuFile新建（第二層
3、）mnuNew打開（第二層）mnuOpen保存（第二層）mnuSave-（第二層）mnuFileSep(分隔線）退出（第二層）mnuExit二.編輯菜單：編輯（第一層）mnuEdit復制（第二層）mnuCopy剪切（第二層）mnuCut粘貼（第二層）mnuPaste-（第二層）mnuEditSep（分隔線）全選（第二層）mnuSelecAll三.搜索菜單：搜索（第一層）mnuSearch查找（第二層）mnuFind查找下一個（第二層）mnuFindOn四.幫助菜單：幫助（第一層）mnuHelp使用說明（第二層）mnuUsage關于（第二層）mnuAbout(注：各菜單項的快
4、捷鍵請自行設置)好了，其它的菜單項以后再根據(jù)需要添加。現(xiàn)在進入：步驟三：編寫代碼。'聲明查找變量DimsFindAsString'聲明文件類型DimFileType,FiTypeAsString'初始化程序PrivateSubForm_Load()'設置程序啟動時的大小Me.Height=6000Me.Width=9000EndSub'設置編輯框的位置和大小PrivateSubForm_Resize()OnErrorResumeNext'出錯處理RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height=ScaleH
5、eight-40RichTextBox1.Width=ScaleWidth-40EndSub'新建文件PrivateSubmnuNew_Click()RichTextBox1.Text=""'清空文本框FileName="未命名"Me.Caption=FileNameEndSub'打開文件PrivateSubmnuOpen_Click()CommonDialog1.Filter="文本文檔(*.txt)
6、*.txt
7、RTF文檔(*.rtf)
8、*.rtf
9、所有文件(*.*)
10、*.*"CommonDialog1.ShowOpenRichTextBox1.Text=""'清空文本
11、框FileName=CommonDialog1.FileNameRichTextBox1.LoadFileFileNameMe.Caption="超級記事本："&FileNameEndSub'保存文件PrivateSubmnuSave_Click()CommonDialog1.Filter="文本文檔(*.txt)
12、*.txt
13、RTF文檔(*.rtf)
14、*.rtf
15、所有文件(*.*)
16、*.*"CommonDialog1.ShowSaveFileType=CommonDialog1.FileTitleFiType=LCase(Right(FileType,3))FileNam
17、e=CommonDialog1.FileNameSelectCaseFiTypeCase"txt"RichTextBox1.SaveFileFileName,rtfTextCase"rtf"RichTextBox1.SaveFileFileName,rtfRTFCase"*.*"RichTextBox1.SaveFileFileNameEndSelectMe.Caption="超級記事本："&FileNameEndSub'退出PrivateSubmnuExit_Click()EndEndSub'復制PrivateS
