用vb6.0編寫一個(gè)簡單完整的記事本如何編寫

《用vb6.0編寫一個(gè)簡單完整的記事本如何編寫》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、用VB做一個(gè)記事本實(shí)在不很復(fù)雜，我們完全可以通過向?qū)砗芊奖愕刈龀鰜?。但本文只打算討論用手?dòng)方法制作記事本，旨在向VB初學(xué)者展示：學(xué)VB原來是如此容易！通過閱讀、研究本文并按本文所述進(jìn)行嘗試，初學(xué)者將學(xué)到很多東西,如怎樣使用RichText控件來打開和保存文件，怎樣制作菜單、工具欄和狀態(tài)欄以及如何對其編寫代碼等。第一章讓我們的記事本馬上運(yùn)行急于求成是初學(xué)者共有的心愿。那好，請按如下三個(gè)步驟做，我們的愿望立即就可以實(shí)現(xiàn)！步驟一：繪制界面。新建一個(gè)標(biāo)準(zhǔn)EXE工程，將其Caption屬性改為“超級(jí)記事本”，點(diǎn)擊Icon屬性給它找個(gè)合適的Icon圖標(biāo)。單擊菜單“工程”-“部件”，在彈出的“部件”對

2、話框里找到MicrosoftRichTextBox6.0和公共對話框MicrosoftCommonDialog6.0并選中它們，單擊“確定”按鈕。這時(shí)左邊的工具欄上出現(xiàn)了我們剛才新添的兩個(gè)控件了。在窗體上繪制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我們將在代碼中處理它，當(dāng)然，有必要把它的ScrollBar屬性設(shè)為2-rtfVertical，這樣在打開和編輯文件時(shí)垂直滾動(dòng)條才可用。步驟二：編輯菜單。按Ctrl+E調(diào)出菜單編輯器，我們來做如下幾個(gè)菜單：一.文件菜單：文件（第一層）mnuFile新建（第二層）mnuNew打開（第二層）mn

3、uOpen保存（第二層）mnuSave-（第二層）mnuFileSep(分隔線）退出（第二層）mnuExit二.編輯菜單：編輯（第一層）mnuEdit復(fù)制（第二層）mnuCopy剪切（第二層）mnuCut粘貼（第二層）mnuPaste-（第二層）mnuEditSep（分隔線）全選（第二層）mnuSelecAll三.搜索菜單：搜索（第一層）mnuSearch查找（第二層）mnuFind查找下一個(gè)（第二層）mnuFindOn四.幫助菜單：幫助（第一層）mnuHelp使用說明（第二層）mnuUsage關(guān)于（第二層）mnuAbout(注：各菜單項(xiàng)的快捷鍵請自行設(shè)置)好了，其它的菜單項(xiàng)以后再根據(jù)需要

4、添加。現(xiàn)在進(jìn)入：步驟三：編寫代碼。'聲明查找變量DimsFindAsString'聲明文件類型DimFileType,FiTypeAsString'初始化程序PrivateSubForm_Load()'設(shè)置程序啟動(dòng)時(shí)的大小Me.Height=6000Me.Width=9000EndSub'設(shè)置編輯框的位置和大小PrivateSubForm_Resize()OnErrorResumeNext'出錯(cuò)處理RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height=ScaleHeight-40RichTextBox1.Width=Scale

5、Width-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=""'清空文本框FileName=CommonDialog1.FileNameRichText

11、Box1.LoadFileFileNameMe.Caption="超級(jí)記事本："&FileNameEndSub'保存文件PrivateSubmnuSave_Click()CommonDialog1.Filter="文本文檔(*.txt)

12、*.txt

13、RTF文檔(*.rtf)

14、*.rtf

15、所有文件(*.*)

16、*.*"CommonDialog1.ShowSaveFileType=CommonDialog1.FileTitleFiType=LCase(Right(FileType,3))FileName=CommonDialog1.FileNameSelectCaseFiTypeCase"txt

17、"RichTextBox1.SaveFileFileName,rtfTextCase"rtf"RichTextBox1.SaveFileFileName,rtfRTFCase"*.*"RichTextBox1.SaveFileFileNameEndSelectMe.Caption="超級(jí)記事本："&FileNameEndSub'退出PrivateSubmnuExit_Click()EndEndSub'復(fù)制PrivateS