用VB編寫(xiě)記事本作者：佚名閱讀人次：45943文章來(lái)源：未知發(fā)布時(shí)間：2005-12-28網(wǎng)友評(píng)論(23)條用VB做一個(gè)記事本實(shí)在不很復(fù)雜，我們完全可以通過(guò)向?qū)?lái)很方便地做出來(lái)。但本文只打算討論用手動(dòng)方法制作記事本，旨在向VB初學(xué)者展示：學(xué)VB原來(lái)是如此容易！通過(guò)閱讀、研究本文并按本文所述進(jìn)行嘗試，初學(xué)者將學(xué)到很多東西,如怎樣使用RichText控件來(lái)打開(kāi)和保存文件，怎樣制作菜單、工具欄和狀態(tài)欄以及如何對(duì)其編寫(xiě)代碼等。第一章 讓我們的記事本馬上運(yùn)行急于求成是初學(xué)者共有的心愿。那好，請(qǐng)按如下三個(gè)步驟做，我們的愿望立即就可以實(shí)現(xiàn)！步驟一：繪制界面。新建一個(gè)標(biāo)準(zhǔn)EXE工程，將其Caption屬性改為“超級(jí)記事本”，點(diǎn)擊Icon屬性給它找個(gè)合適的Icon圖標(biāo)。單擊菜單“工程”-“部件”，在彈出的“部件”對(duì)話(huà)框里找到Microsoft RichText Box 6.0和公共對(duì)話(huà)框Microsoft Common Dialog 6.0并選中它們，單擊“確定”按鈕。這時(shí)左邊的工具欄上出現(xiàn)了我們剛才新添的兩個(gè)控件了。在窗體上繪制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我們將在代碼中處理它，當(dāng)然，有必要把它的ScrollBar屬性設(shè)為2-rtfVertical，這樣在打開(kāi)和編輯文件時(shí)垂直滾動(dòng)條才可用。步驟二：編輯菜單。按Ctrl+E調(diào)出菜單編輯器，我們來(lái)做如下幾個(gè)菜單：一.文件菜單：文件（第一層） mnuFile新建（第二層） mnuNew打開(kāi)（第二層） mnuOpen保存（第二層） mnuSave- （第二層） mnuFileSep (分隔線(xiàn)）退出（第二層） mnuExit二.編輯菜單：編輯（第一層） mnuEdit復(fù)制（第二層） mnuCopy剪切（第二層） mnuCut粘貼（第二層） mnuPaste- （第二層） mnuEditSep （分隔線(xiàn)）全選（第二層） mnuSelecAll三.搜索菜單：搜索（第一層） mnuSearch查找（第二層） mnuFind查找下一個(gè)（第二層） mnuFindOn四.幫助菜單：幫助（第一層） mnuHelp使用說(shuō)明（第二層） mnuUsage關(guān)于（第二層） mnuAbout(注：各菜單項(xiàng)的快捷鍵請(qǐng)自行設(shè)置)好了，其它的菜單項(xiàng)以后再根據(jù)需要添加。現(xiàn)在進(jìn)入步驟三：編寫(xiě)代碼。聲明查找變量Dim sFind As String聲明文件類(lèi)型Dim FileType, FiType As String初始化程序Private Sub Form_Load()設(shè)置程序啟動(dòng)時(shí)的大小Me.Height = 6000Me.Width = 9000End Sub設(shè)置編輯框的位置和大小Private Sub Form_Resize()On Error Resume Next 出錯(cuò)處理RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height = ScaleHeight-40RichTextBox1.Width = ScaleWidth-40End Sub新建文件Private Sub mnuNew_Click()RichTextBox1.Text = 清空文本框FileName = 未命名Me.Caption = FileName End Sub打開(kāi)文件Private Sub mnuOpen_Click()CommonDialog1.Filter = 文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*CommonDialog1.ShowOpenRichTextBox1.Text = 清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = 超級(jí)記事本： & FileName End 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 txtRichTextBox1.SaveFile FileName, rtfTextCase rtfRichTextBox1.SaveFile FileName, rtfRTFCase *.*RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = 超級(jí)記事本： & FileNameEnd Sub退出Private Sub mnuExit_Click()EndEnd Sub復(fù)制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(請(qǐng)輸入要查找的字、詞：, 查找內(nèi)容, sFind)RichTextBox1.Find sFindEnd Sub繼續(xù)查找Private Sub mnuFindOn_Click()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1RichTextBox1.Find sFind, , Len(RichTextBox1)End Sub使用說(shuō)明Private Sub mnuReadme_Click()On Error GoTo handlerRichTextBox1.LoadFile Readme.txt, rtfText 請(qǐng)寫(xiě)好Readme.txt文件并存入程序所在文件夾中Me.Caption = 超級(jí)記事本： & 使用說(shuō)明Exit Subhandler:MsgBox 使用說(shuō)明文檔可能已經(jīng)被移除，請(qǐng)與作者聯(lián)系。, vbOKOnly, 錯(cuò)誤信息End Sub關(guān)于Private Sub mnuAbout_Click()MsgBox 超級(jí)記事本 Ver1.0 版權(quán)所有(C) 2001 土人,vbOKOnly,關(guān)于End Sub設(shè)置彈出式菜單（即在編輯框中單擊鼠標(biāo)右鍵時(shí)彈出的動(dòng)態(tài)菜單）Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub防止在切換輸入法時(shí)字體自變(感謝王必成先生提供此方案)Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd Sub至此，我們的記事本可以編譯使用了。點(diǎn)擊菜單“文件”-“生成XXX.EXE”，回到桌面運(yùn)行我們的記事本看看，是不是頗有成就感？當(dāng)然，這樣的記事本還比較粗糙,我們還需要做些工作，請(qǐng)看下一章。第二章 美化程序界面多數(shù)字處理軟件都有工具欄和狀態(tài)欄。工具欄和狀態(tài)欄除了能美化我們的程序使其更具有專(zhuān)業(yè)性質(zhì)外，還給用戶(hù)帶來(lái)操作上的便利?，F(xiàn)在我們就來(lái)做一做這兩樣?xùn)|西。一.工具欄(一)制作工具欄單擊“工程”-“部件”，選中Microsoft Windows Common Control 6.0并確定。這時(shí)，我們要用到的控件就出現(xiàn)在左邊的工具欄上了。要做工具欄，首先需要一個(gè)叫ImageList的控件來(lái)裝載圖像。在程序界面上添加它，然后右鍵單擊此控件，左鍵單擊“屬性”，彈出“屬性頁(yè)”對(duì)話(huà)框的“圖像”，再單擊“插入圖片”就可以一次性裝載圖片了（如不滿(mǎn)意，以后還可以添加）。圖片可在C:Microsoft Visual StudioCommonGraphicsBitmapsTlBr_W95下選擇(這里假設(shè)你的VB安裝在C盤(pán)下)。注意了：在插入圖片時(shí)給每一張圖片注明關(guān)鍵字，以便在引用圖片時(shí)不至于混亂。如插入“新建”的圖片，我們?cè)凇瓣P(guān)鍵字”欄注明“New”。圖片有了，接下來(lái)在程序界面添加工具欄(ToolBar)。添加后工具欄就出現(xiàn)在菜單下面，右鍵單擊它，選擇“屬性”，在彈出的“屬性頁(yè)”對(duì)話(huà)框中的“通用”項(xiàng)作些設(shè)置，主要如下兩項(xiàng)：1.“圖像列表”：選擇ImageList12.“樣式”：根據(jù)喜愛(ài)選擇1-trbStandard或者2-trbFlat繼續(xù)點(diǎn)擊“屬性頁(yè)”的“按鈕”選項(xiàng)，插入若干按鈕。按鈕有多種樣式，請(qǐng)根據(jù)需要設(shè)置。這里請(qǐng)一定注意：每一個(gè)與用戶(hù)操作有關(guān)的按鈕都必須注明關(guān)鍵字、裝載圖片，如“新建”按鈕，在“關(guān)鍵字”項(xiàng)注明“新建”，在“圖像”項(xiàng)鍵入“New”（即ImageList1中的圖片關(guān)鍵字）,需要的話(huà)還可以在“工具提示文本”項(xiàng)填入適當(dāng)?shù)奶崾菊Z(yǔ)。(二)編寫(xiě)工具欄的按鈕代碼工具欄按鈕的代碼編輯很簡(jiǎn)單，可以按照下面的格式去編寫(xiě)：Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error Resume Next 出錯(cuò)處理Select Case Button.Key 按關(guān)鍵字選擇Case 新建mnuNew_Click 等于菜單項(xiàng)“新建”被單擊Case 打開(kāi) 等于菜單項(xiàng)“打開(kāi)”被單擊mnuOpen_Click.(繼續(xù)編寫(xiě)其它按鈕的代碼)End SelectEnd Sub完成后試運(yùn)行一下我們的程序，我們發(fā)現(xiàn)，有了工具欄之后，程序變得漂亮多了，只是有一個(gè)問(wèn)題：打開(kāi)一個(gè)較長(zhǎng)的文檔后，編輯框的下拉滾動(dòng)條向上的箭頭不見(jiàn)了。原因是：工具條占用一定的空間。解決方法：將“設(shè)置編輯框的位置和大小”中的RichTextBox1.Top = 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分別改為RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight - 400即可。二.狀態(tài)欄(一)制作狀態(tài)欄狀態(tài)欄的英文名字叫StatusBar，在窗體上添加它后會(huì)默認(rèn)出現(xiàn)在窗體的最下方。用鼠標(biāo)右鍵點(diǎn)擊它，調(diào)出“屬性頁(yè)”對(duì)話(huà)框，單擊“窗格”項(xiàng)，插入一些窗格，可以將各個(gè)窗格的“樣式”設(shè)置為：0-sbrText 顯示文本，需編寫(xiě)代碼1-sbrCaps 顯示大小寫(xiě)狀態(tài)，無(wú)需編程2-sbrNum 顯示NumLock鍵開(kāi)關(guān)狀態(tài)，無(wú)需編程3-sbrIns 顯示Insert鍵狀態(tài)，無(wú)需編程4-sbrScr1 5-sbrTime 顯示時(shí)間，不編程時(shí)時(shí)間不會(huì)隨系統(tǒng)時(shí)鐘變化6-sbrDate 顯示日期，無(wú)需編程注意：加進(jìn)狀態(tài)欄后需將Form_Resze中的RichTextBox1.Height = Me.ScaleHeight - 400改為RichTextBox1.Height = Me.ScaleHeight - 600。 (二)狀態(tài)欄根據(jù)其“樣式”屬性決定用不用編寫(xiě)代碼(如上文所述)。下面舉些例子，讀者可以認(rèn)真揣摩，從而達(dá)到舉一反三的效果。例一：用戶(hù)選取了“新建”后，讓第一個(gè)窗格顯示：“目前狀態(tài)：正在打開(kāi)文件”。請(qǐng)將下面代碼寫(xiě)進(jìn)“打開(kāi)”菜單里面：StatusBar1.Panels(1).Text = 目前狀態(tài)：正在打開(kāi)文件 & &CommonDialog1.FileTitle & 例二：讓第三個(gè)窗格顯示時(shí)間并讓時(shí)間跟隨系統(tǒng)時(shí)鐘變化。首先，給程序加一個(gè)Timer控件，將其Interval屬性設(shè)為1000。然后：在Form_Load過(guò)程加入：StatusBar1.Panels(1).Text = Time；然后給Timer控件編寫(xiě)代碼：Private Sub Timer1_Timer()If StatusBar1.Panels(3).Text CStr(Time) ThenStatusBar1