用VB編寫記事本(共7頁)

1、精選優(yōu)質文檔-傾情為你奉上用VB編寫記事本作者：佚名    閱讀人次：45943    文章來源：    發(fā)布時間：2005-12-28     用VB做一個記事本實在不很復雜，我們完全可以通過向導來很方便地做出來。但本文只打算討論用手動方法制作記事本，旨在向VB初學者展示：學VB原來是如此容易！通過閱讀、研究本文并按本文所述進行嘗試，初學者將學到很多東西,如怎樣使用RichText控件來打開和保存文件，怎樣制作菜單、工具欄和

2、狀態(tài)欄以及如何對其編寫代碼等。第一章 讓我們的記事本馬上運行急于求成是初學者共有的心愿。那好，請按如下三個步驟做，我們的愿望立即就可以實現(xiàn)！步驟一：繪制界面。新建一個標準EXE工程，將其Caption屬性改為“超級記事本”，點擊Icon屬性給它找個合適的Icon圖標。單擊菜單“工程”-“部件”，在彈出的“部件”對話框里找到Microsoft RichText Box 6.0和公共對話框Microsoft Common Dialog 6.0并選中它們，單擊“確定”按鈕。這時左邊的工具欄上出現(xiàn)了我們剛才新添的兩個控件了。在窗體上繪制RichText Box和Commn Dialog，其中RichT

3、ext Box的大小和位置可不用理睬，我們將在代碼中處理它，當然，有必要把它的ScrollBar屬性設為2-rtfVertical，這樣在打開和編輯文件時垂直滾動條才可用。步驟二：編輯菜單。按Ctrl+E調(diào)出菜單編輯器，我們來做如下幾個菜單：一.文件菜單：文件（第一層） mnuFile新建（第二層） mnuNew打開（第二層） mnuOpen保存（第二層） mnuSave- （第二層） mnuFileSep (分隔線）退出（第二層） mnuExit二.編輯菜單：編輯（第一層） mnuEdit復制（第二層） mnuCopy剪切（第二層） mnuCut粘貼（第二層） mnuPaste- （第二層）

4、 mnuEditSep （分隔線）全選（第二層） mnuSelecAll三.搜索菜單：搜索（第一層） mnuSearch查找（第二層） mnuFind查找下一個（第二層） mnuFindOn四.幫助菜單：幫助（第一層） mnuHelp使用說明（第二層） mnuUsage關于（第二層） mnuAbout(注：各菜單項的快捷鍵請自行設置)好了，其它的菜單項以后再根據(jù)需要添加?，F(xiàn)在進入步驟三：編寫代碼。'聲明查找變量Dim sFind As String'聲明文件類型Dim FileType, FiType As String'初始化程序Private Sub Form_Lo

5、ad()'設置程序啟動時的大小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 = &

6、quot;" '清空文本框FileName = "未命名"Me.Caption = FileName End Sub'打開文件Private Sub mnuOpen_Click()CommonDialog1.Filter = "文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.Text = "" '清空文本框FileName = CommonDialog1.FileNameRich

7、TextBox1.LoadFile FileNameMe.Caption = "超級記事本：" & FileName End Sub'保存文件Private Sub mnuSave_Click()CommonDialog1.Filter = "文本文檔(*.txt)|*.txt|RTF文檔(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName =

8、 CommonDialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfTextCase "rtf"RichTextBox1.SaveFile FileName, rtfRTFCase "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = "超級記事本：" & FileNameEnd Sub'退出Private Sub mnuExit_Cl

9、ick()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 =

10、0RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub'粘貼Private Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub'查找Private Sub mnuFind_Click()sFind = InputBox("請輸入要查找的字、詞：", "查找內(nèi)容", sFind)RichTextBox1.Find sFindEnd Sub'繼續(xù)查找Private Sub mnuFindOn_Cl

11、ick()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1RichTextBox1.Find sFind, , Len(RichTextBox1)End Sub'使用說明Private Sub mnuReadme_Click()On Error GoTo handlerRichTextBox1.LoadFile "Readme.txt", rtfText '請寫好Readme.txt文件并存入程序所在文件夾中Me.Caption = "超級記事本：&

12、quot; & "使用說明"Exit Subhandler:MsgBox "使用說明文檔可能已經(jīng)被移除，請與作者聯(lián)系。", vbOKOnly, " 錯誤信息"End Sub'關于Private Sub mnuAbout_Click()MsgBox "超級記事本 Ver1.0 版權所有(C) 2001 土人",vbOKOnly,"關于"End Sub'設置彈出式菜單（即在編輯框中單擊鼠標右鍵時彈出的動態(tài)菜單）Private Sub RichTextBox1_MouseDow

13、n(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub'防止在切換輸入法時字體自變(感謝王必成先生提供此方案)Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName =

14、 CommonDialog1.FontNameEnd IfEnd Sub至此，我們的記事本可以編譯使用了。點擊菜單“文件”-“生成XXX.EXE”，回到桌面運行我們的記事本看看，是不是頗有成就感？當然，這樣的記事本還比較粗糙,我們還需要做些工作，請看下一章。第二章 美化程序界面多數(shù)字處理軟件都有工具欄和狀態(tài)欄。工具欄和狀態(tài)欄除了能美化我們的程序使其更具有專業(yè)性質外，還給用戶帶來操作上的便利?，F(xiàn)在我們就來做一做這兩樣東西。一.工具欄(一)制作工具欄單擊“工程”-“部件”，選中Microsoft Windows Common Control 6.0并確定。這時，我們要用到的控件就出現(xiàn)在左邊的工具欄

15、上了。要做工具欄，首先需要一個叫ImageList的控件來裝載圖像。在程序界面上添加它，然后右鍵單擊此控件，左鍵單擊“屬性”，彈出“屬性頁”對話框的“圖像”，再單擊“插入圖片”就可以一次性裝載圖片了（如不滿意，以后還可以添加）。圖片可在C:Microsoft Visual StudioCommonGraphicsBitmapsTlBr_W95下選擇(這里假設你的VB安裝在C盤下)。注意了：在插入圖片時給每一張圖片注明關鍵字，以便在引用圖片時不至于混亂。如插入“新建”的圖片，我們在“關鍵字”欄注明“New”。圖片有了，接下來在程序界面添加工具欄(ToolBar)。添加后工具欄就出現(xiàn)在菜單下面，右

16、鍵單擊它，選擇“屬性”，在彈出的“屬性頁”對話框中的“通用”項作些設置，主要如下兩項：1.“圖像列表”：選擇ImageList12.“樣式”：根據(jù)喜愛選擇1-trbStandard或者2-trbFlat繼續(xù)點擊“屬性頁”的“按鈕”選項，插入若干按鈕。按鈕有多種樣式，請根據(jù)需要設置。這里請一定注意：每一個與用戶操作有關的按鈕都必須注明關鍵字、裝載圖片，如“新建”按鈕，在“關鍵字”項注明“新建”，在“圖像”項鍵入“New”（即ImageList1中的圖片關鍵字）,需要的話還可以在“工具提示文本”項填入適當?shù)奶崾菊Z。(二)編寫工具欄的按鈕代碼工具欄按鈕的代碼編輯很簡單，可以按照下面的格式去編寫：Pr

17、ivate Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)On Error Resume Next '出錯處理Select Case Button.Key '按關鍵字選擇Case "新建"mnuNew_Click '等于菜單項“新建”被單擊Case "打開" '等于菜單項“打開”被單擊mnuOpen_Click'.(繼續(xù)編寫其它按鈕的代碼)End SelectEnd Sub完成后試運行一下我們的程序，我們發(fā)現(xiàn)，有了工具欄之后，程序變得漂亮多了

18、，只是有一個問題：打開一個較長的文檔后，編輯框的下拉滾動條向上的箭頭不見了。原因是：工具條占用一定的空間。解決方法：將“設置編輯框的位置和大小”中的RichTextBox1.Top = 20 和 RichTextBox1.Height = Me.ScaleHeight - 40分別改為RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight - 400即可。二.狀態(tài)欄(一)制作狀態(tài)欄狀態(tài)欄的英文名字叫StatusBar，在窗體上添加它后會默認出現(xiàn)在窗體的最下方。用鼠標右鍵點擊它，調(diào)出“屬性頁”對話框，單擊“窗格”項，插入一些窗格，可

19、以將各個窗格的“樣式”設置為：0-sbrText 顯示文本，需編寫代碼1-sbrCaps 顯示大小寫狀態(tài)，無需編程2-sbrNum 顯示NumLock鍵開關狀態(tài)，無需編程3-sbrIns 顯示Insert鍵狀態(tài)，無需編程4-sbrScr1 5-sbrTime 顯示時間，不編程時時間不會隨系統(tǒng)時鐘變化6-sbrDate 顯示日期，無需編程注意：加進狀態(tài)欄后需將Form_Resze中的RichTextBox1.Height = Me.ScaleHeight - 400改為RichTextBox1.Height = Me.ScaleHeight - 600。 (二)狀態(tài)欄根據(jù)其“樣式”屬性決定用不用編寫代碼(如上文所述)。下面舉些例子，讀者可以認真揣摩，從而達到舉一反三的效果。例一：用戶選取了“新建”后，讓第一個窗格顯示：“目前狀態(tài)：正在打開文件”。請將下面代碼寫進“打開”菜單里面：Status