VB記事本代碼

1、跟我學(xué)做記事本我想有了這個示例 VB的世界才夠精彩：用VB做一個記事本實在不很復(fù)雜，我們完全可以通過向?qū)砗芊奖愕刈龀鰜怼５疚闹淮蛩阌懻撚檬謩臃椒ㄖ谱饔浭卤?，旨在?VB初學(xué)者展示：學(xué) VB原來是如此容易！通過閱讀、研究本文并按本文所述進(jìn)行嘗試，初學(xué)者將學(xué)到很多東西，如怎樣使用RichText控件來打開和保存文件，怎樣制作菜單、工具欄和狀態(tài)欄以及如何對其編寫代碼等。第一章讓我們的記事本馬上運行急于求成是初學(xué)者共有的心愿。那好，請按如下三個步驟做，我們的愿望立即就可以實現(xiàn)！ 步驟一：繪制界面。新建一個標(biāo)準(zhǔn)EXE工程，將其Caption屬性改為超級記事本”，點擊Icon屬性給它找個合 適的Ico

2、n圖標(biāo)。單擊菜單 工程”-部件”，在彈出的 部件"對話框里找到 Microsoft RichTextBox 6.0和公共對話框 Microsoft Common Dialog 6.0 并選中它們，單擊 確定"按鈕。這時左 邊的工具欄上出現(xiàn)了我們剛才新添的兩個控件了。在窗體上繪制RichText Box和CommnDialog，其中RichText Box的大小和位置可不用理睬，我們將在代碼中處理它，當(dāng)然，有 必要把它的ScrollBar屬性設(shè)為2-rtfVertical，這樣在打開和編輯文件時垂直滾動條才可用。步驟二：編輯菜單。按Ctrl+E調(diào)出菜單編輯器，我們來做如下幾個

3、菜單：一.文件菜單：文件（第一層）mn uFile新建（第二層）mnuNew打開（第二層）mnu Ope n保存（第二層）mnu Save-（第二層）mnuFileSep （分隔線）退出（第二層）mn uExit二.編輯菜單：編輯（第一層）mn uEdit復(fù)制（第二層）mnu Copy剪切（第二層）mnu Cut粘貼（第二層）mn uPaste-（第二層）mn uEditSep （分隔線）全選（第二層）mnu SelecAll三.搜索菜單：搜索（第一層）mnu Search查找（第二層）mnuFind查找下一個（第二層）mn uFi ndO n四.幫助菜單：幫助（第一層）mnu Help使用說

4、明（第二層）mn uUsage關(guān)于（第二層）mnu About（注：各菜單項的快捷鍵請自行設(shè)置） 好了，其它的菜單項以后再根據(jù)需要添加?，F(xiàn)在進(jìn)入: 步驟三：編寫代碼。'聲明查找變量Dim sFi nd As Stri ng'聲明文件類型Dim FileType, FiType As String'初始化程序Private Sub Form_Load()'設(shè)置程序啟動時的大小Me.Height = 6000Me.Width = 9000End Sub'設(shè)置編輯框的位置和大小Private Sub Form_Resize()On Error Resume N

5、ext '出錯處理RichTextBox1.Top=20RichTextBox1 .L eft=20RichTextBox1.Height = ScaleHeight-40RichTextBox1.Width = ScaleWidth-40End Sub'新建文件Private Sub mnu New_Click()RichTextBox1.Text =""' 清空文本框FileName ="未命名”Me.Capti on = FileNameEnd Sub'打開文件Private Sub mn uOpen_Click()Commo

6、nDialog1.Filter ="文本文檔(*.txt)|*.txt|RTF 文檔(*.rtf)|*.rtf| 所有文件(*.*)|*.*"Common Dialog1.ShowOpe nRichTextBox1.Text =""'清空文本框FileName = Com mon Dialog1.FileNameRichTextBoxI .L oadFile FileNameMe.Caption ="超級記事本：” & FileNameEnd Sub'保存文件Private Sub mnu Save_Click()Com

7、monDialog1.Filter =" 文本文檔(*.txt)|*.txt|RTF 文檔(*.rtf)|*.rtf| 所有文件(*.*)|*.*"Common Dialog1.ShowSaveFileType = Common Dialog1.FileTitleFiType = LCase(Right(FileType, 3)FileName = Com mon Dialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfTextCase "rt

8、f"RichTextBox1.SaveFile FileName, rtfRTFCase "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption ="超級記事本：” & FileNameEnd Sub'退出Private Sub mn uExit_Click()EndEnd Sub'復(fù)制Private Sub mn uCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub'剪切P

9、rivate Sub mnu Cut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText =""End Sub'全選Private Sub mnu SelectAll_Click()RichTextBoxl.SelStart = 0RichTextBoxl.SelLe ngth = Len (RichTextBoxl.Text)End Sub'粘貼Private Sub mn uPaste_Click()RichTextBox1.SelText =

10、Clipboard.GetTextEnd Sub喳找Private Sub mn uFi nd_Click()sFind = InputBox(" 請輸入要查找的字、詞：","查找內(nèi)容",sFind)RichTextBox1.Find sFindEnd Sub'繼續(xù)查找Private Sub mn uFi ndOn_Click()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLe ngth + 1RichTextBox1.Fi nd sFi nd, , Le n(

11、RichTextBox1)End Sub'使用說明Private Sub mn uReadme_Click()On Error GoTo han dlerRichTextBox1 .LoadFile "Readme.txt", rtfText ' 請寫好 Readme.txt 文件并存入程序所在文 件夾中Me.Caption ="超級記事本：” & ”使用說明”Exit Subhan dler:MsgBox "使用說明文檔可能已經(jīng)被移除，請與作者聯(lián)系。", vbOKOnly,"錯誤信息"End Sub

12、'關(guān)于Private Sub mn uAbout_Click()MsgBox "超級記事本 Ver1.0 版權(quán)所有(C) 2001 土人”,vbOKOnly,"關(guān)于”End Sub'設(shè)置彈出式菜單(即在編輯框中單擊鼠標(biāo)右鍵時彈出的動態(tài)菜單)Private Sub RichTextBox1_MouseDow n(Butt on As In teger, Shift As In teger, X As Sin gle,Y As Si ngle)If Butt on = 2 The nPopupMe nu mn uEdit, vbPopupMe nuLeftAli

13、g nElseExit SubEnd IfEnd Sub'防止在切換輸入法時字體自變（感謝王必成先生提供此方案 ）Private Sub RichTextBox1_KeyUp（KeyCode As In teger, Shift As In teger）If KeyCode = vbKeySpace ThenRichTextBox1.SelFo ntName = Commo nDialog1.Fo ntNameEnd IfEnd Sub至此，我們的記事本可以編譯使用了。點擊菜單文件”生成XXX.EXE，回到桌面運行我們的記事本看看，是不是頗有成就感？當(dāng)然，這樣的記事本還比較粗糙，我們還

14、需要做些工作，請看下一章。第二章美化程序界面多數(shù)字處理軟件都有工具欄和狀態(tài)欄。工具欄和狀態(tài)欄除了能美化我們的程序使其更具有專業(yè)性質(zhì)外，還給用戶帶來操作上的便利?，F(xiàn)在我們就來做一做這兩樣?xùn)|西。一.工具欄（一）制作工具欄單擊 工程”部件”選中Microsoft Windows Common Control 6.0并確定。這時，我們要用到的控件就出現(xiàn)在左邊的工具欄上了。要做工具欄，首先需要一個叫ImageList的控件來裝載圖像。在程序界面上添加它，然后右鍵單擊此控件，左鍵單擊屬性”彈出屬性頁”對話框的 圖像”再單擊插入圖片”就可以一次性裝載圖片了（如不滿意，以后還可以添加）。圖片可在C:Micro

15、soft VisualStudioCommonGraphicsBitmapsTIBr_W95下選擇（這里假設(shè)你的 VB安裝在 C盤下）。注意了：在插入圖片時給每一張圖片注明關(guān)鍵字，以便在引用圖片時不至于混亂。如插入新建”的圖片，我們在 關(guān)鍵字”欄注明“Newo圖片有了，接下來在程序界面添加工具欄 （ToolBar）。添加后工具欄就出現(xiàn)在菜單下面，右 鍵單擊它，選擇 屬性”，在彈出的 屬性頁”對話框中的 通用項作些設(shè)置，主要如下兩項：1. 圖像列表o：選擇ImageList12. 樣式”根據(jù)喜愛選擇 1-trbStandard 或者2-trbFlat繼續(xù)點擊屬性頁”的按鈕”選項，插入若干按鈕。按

16、鈕有多種樣式，請根據(jù)需要設(shè)置。這里 請一定注意：每一個與用戶操作有關(guān)的按鈕都必須注明關(guān)鍵字、裝載圖片，如新建”按鈕，在關(guān)鍵字”項注明新建”，在圖像”項鍵入“NeW （即卩ImageList1中的圖片關(guān)鍵字）需要的 話還可以在工具提示文本"項填入適當(dāng)?shù)奶崾菊Z。（二）編寫工具欄的按鈕代碼工具欄按鈕的代碼編輯很簡單，可以按照下面的格式去編寫：Private Sub ToolBar1_Butto nClick（ByVal Button As MSComctILib.Butto n）On Error Resume Next ' 出錯處理Select Case Butt on .Key

17、' 按關(guān)鍵字選擇Case "新建”mnuNew_Click '等于菜單項 新建"被單擊Case "打開”'等于菜單項 打開”被單擊mnu Ope n_Click'.（繼續(xù)編寫其它按鈕的代碼）End SelectEnd Sub完成后試運行一下我們的程序，我們發(fā)現(xiàn)，有了工具欄之后，程序變得漂亮多了，只是有一個問題：打開一個較長的文檔后，編輯框的下拉滾動條向上的箭頭不見了。原因是：工具條占用一定的空間。解決方法：將設(shè)置編輯框的位置和大小 ”中的RichTextBox1.Top = 20 和RichTextBox1.Height = Me.

18、ScaleHeight - 40分別改為 RichTextBox1.Top = 380，RichTextBox1.Height = Me.ScaleHeight - 400 即可。二.狀態(tài)欄（一）制作狀態(tài)欄狀態(tài)欄的英文名字叫 StatusBar，在窗體上添加它后會默認(rèn)出現(xiàn)在窗體的最下方。用鼠標(biāo)右鍵點擊它，調(diào)出 屬性頁”對話框，單擊 窗格'項，插入一些窗格，可以將各個窗格的樣式”設(shè)置為：0-sbrText顯示文本，需編寫代碼1- sbrCaps 顯示大小寫狀態(tài)，無需編程2- sbrNum 顯示NumLock鍵開關(guān)狀態(tài)，無需編程3- sbrIns 顯示Insert鍵狀態(tài)，無需編程4- sbrScr15- sbrTime顯示時間，不編程時時間不會隨系統(tǒng)時鐘變化6- sbrDate 顯示日期，無需編程注意：加進(jìn)狀態(tài)欄后需將Form_Resze 中的 RichTextBox1.Height = Me.ScaleHeight - 400改為 RichTextBox1.Height = Me.ScaleHeight - 600。（二） 狀態(tài)欄根據(jù)其 樣式”屬性決定用不用編寫代碼（如上文所述）。下面舉些例子，讀者可以認(rèn) 真揣摩，從而達(dá)到舉一反三的效果。例一：用戶選取了 新建”后，讓第一個窗格顯示：目前狀態(tài)：正在打開文件”。請將下面代碼寫進(jìn)打開'菜單里面：St