《用VB編寫的記事本源碼教程》由會員分享，可在線閱讀，更多相關(guān)《用VB編寫的記事本源碼教程（8頁珍藏版）》請在裝配圖網(wǎng)上搜索。
1、精選優(yōu)質(zhì)文檔-傾情為你奉上一實驗要求用所學(xué)的VB語言編寫一個自己的記事本，其功能與計算機中記事本的功能基本一致，程序結(jié)構(gòu)清晰。二實驗?zāi)康耐ㄟ^編寫記事本，熟悉并掌握所學(xué)VB的程序語言，鍛煉編程思想，從而觸類旁通發(fā)揮自己的創(chuàng)造力編輯自己的作品。三設(shè)計軟件所實現(xiàn)的功能窗體界面包括：文件、編輯、格式、查看、幫助五個主菜單。每個主菜單都有自己的子菜單，其主菜單的功能如下：1. 文件：包括新建、打開、保存、另存為、頁面設(shè)置、打印、退出的功能。2. 編輯：包括撤銷、剪切、復(fù)制、粘貼、刪除、查找、查找下一個、替換、轉(zhuǎn)到、全選、時間/日期的功能。3. 格式：包括自動換行、字體的功能。4. 查看：包括狀態(tài)欄的功能
2、5. 幫助：包括幫助主題，關(guān)于記事本。四設(shè)計介紹.1.繪制界面新建一個標準的.exe工程，將其caption屬性改為”無標題-記事本”，點擊icon屬性給它找一個合適的圖標，其編輯的界面圖如下：2.編輯菜單按ctrl+E調(diào)出菜單編輯器，來做如下幾個菜單：（1）文件菜單:文件（第一層）file、新建（第二層）new、打開（第二層）open、保存（第二層）save、另存為（第二層）lingsave、-（第二層）spar1(分隔線)、 頁面設(shè)置（第二層）design、打?。ǖ诙樱﹑rint、-（第二層）spar2（分隔線）、退出（第二層）exit（2）編輯菜單編輯(第一層)edit、撤銷（第二層）
3、cancel、-（第二層）spar3、剪切（第二層）qie、復(fù)制（第二層）copy、粘貼（第二層）tie、刪除（第二層）delete、-（第二層）spar4、查找（第二層）find、查找下一個（第二層）findnext、替換（第二層）instead、轉(zhuǎn)到（第二層）zhuan、-（第二層）spar5、全選（第二層）selectall、時間/日期（第二層）date(3)格式菜單格式（第一層）style、自動換行（第二層）autozhuan、字體（第二層）font(4)查看菜單查看（第一層）cha、狀態(tài)欄（第二層）state(5)幫助菜單幫助（第一層）help、幫助主題（第二層）topic、關(guān)于記事
4、本（第二層）about3.編輯代碼(1)新建Private Sub new_Click()Dim m As New Form1If d Then If Form1.Caption = 無標題-記事本 Then yy = MsgBox(文件 無標題-記事本 文字已經(jīng)改變， + Chr(13) + Chr(10) + 是否保存文件?, 51, 記事本) Else yy = MsgBox(文件 + rr + 文字已經(jīng)改變， + Chr(13) + Chr(10) + 是否保存文件?, 51, 記事本) End IfEnd IfIf yy = 6 Then Call lingsave_ClickEls
5、eIf yy = 2 Then Exit Sub End IfForm1.Hidem.ShowEnd Sub(2)打開Private Sub open_Click()cd.InitDir = D:cd.CancelError = Truecd.Filter = 全部文擋(*.*)|*.*|文本文擋(*.txt)|*.txtcd.FilterIndex = 2If d True Then start: On Error GoTo ee cd.ShowOpen Open cd.FileName For Input As #1 rr = cd.FileName Do While Not EOF(1)
6、 Line Input #1, a$ whole$ = whole$ + a$ + Chr(13) + Chr(10) Loop Text1.Text = whole$ Close #1 ss = Split(cd.FileTitle, .) dd = ss(0) Form1.Caption = dd + -記事本 Else If Form1.Caption = 無標題-記事本 Then yy = MsgBox(文件 無標題-記事本 文字已經(jīng)改變，是否保存文件?, 51, 記事本) Else yy = MsgBox(文件 + rr + 文字已經(jīng)改變，是否保存文件?, 51, 記事本) End
7、If If yy = 6 Then Call lingsave_Click GoTo start ElseIf yy = 7 Then GoTo start Else Exit Sub End IfEnd Ifee: Exit SubEnd Sub(3)保存Private Sub save_Click() If Form1.Caption = 無標題-記事本 Then Call lingsave_Click d = False Else cc = Split(Form1.Caption, -) ff = cc(0) Open ff + .txt For Output As #1 Print #
8、1, Text1.Text Close #1 d = False End IfEnd Sub(4)另存為Private Sub lingsave_Click()cd.InitDir = D:cd.CancelError = TrueOn Error GoTo jjcd.Filter = 全部文擋(*.*)|*.*|文本文擋(*.txt)|*.txtcd.FilterIndex = 2cd.ShowSaveOpen cd.FileName For Output As #2Print #2, Text1.TextClose #2d = False ss = Split(cd.FileTitle,
9、.) dd = ss(0) Form1.Caption = dd + -記事本jj: Exit SubEnd Sub(5)打印Private Sub print_Click()Dim firpage, endpage, numcd.CancelError = TrueOn Error GoTo jjcd.ShowPrinternum = cd.CopiesPrinter.font = 楷體Printer.FontSize = 10Printer.PaperSize = vbPRPSA4For i = 1 To num Printer.CurrentX = 10 Printer.CurrentY
10、 = 10 Printer.Print Text1.TextNext iPrinter.EndDocExit Subjj:Exit SubEnd Sub(6)退出Private Sub exit_Click()EndEnd Sub(7)剪切Private Sub qie_Click() Clipboard.Clear Clipboard.SetText Text1.SelText Text1.SelText = End Sub(8)復(fù)制Private Sub copy_Click()Clipboard.ClearClipboard.SetText Text1.SelText End Sub(9
11、)粘貼Private Sub tie_Click()Text1.SelText = Clipboard.GetTextEnd Sub（10）查找Private Sub find_Click()Form2.ShowEnd SubForm2中代碼：注：dd、ee都是全局變量Private Sub Command1_Click()If Check1.Value = 1 Thendd = InStr(Form1.Text1.Text, Form2.Text1.Text)Elsedd = InStr(LCase(Form1.Text1.Text), LCase(Form2.Text1.Text)End
12、Ifee = Len(Form2.Text1.Text)Form1.Text1.SelStart = dd - 1Form1.Text1.SelLength = eekk = kk + 1Form1.SetFocusEnd SubPrivate Sub Command2_Click()Form2.HideEnd Sub（11）替換Private Sub instead_Click()Form3.ShowEnd SubForm3中的內(nèi)容Private Sub Command1_Click()If Check1.Value = 1 Then If dd none And ee none Then
13、ff = InStr(dd + ee, LCase(Form1.Text1.Text), LCase(Form3.Text1.Text) Else ff = InStr(LCase(Form1.Text1.Text), LCase(Form3.Text1.Text) End If Form1.Text1.SelStart = ff - 1 dd = ff ee = Len(Text1.Text) Form1.Text1.SelLength = ee kk = kk + 1Else If dd none And ee none Then ff = InStr(dd + ee, LCase(For
14、m1.Text1.Text), LCase(Form3.Text1.Text) Else ff = InStr(LCase(Form1.Text1.Text), LCase(Form3.Text1.Text) End If Form1.Text1.SelStart = ff - 1 dd = ff ee = Len(Text1.Text) Form1.Text1.SelLength = ee kk = kk + 1End IfForm1.SetFocusEnd SubPrivate Sub Command2_Click()Form1.Text1.SelText = Text2.TextEnd
15、SubPrivate Sub Command3_Click()Do While (dd + ee) Len(Form1.Text1.Text) If Check1.Value = 1 Then If dd 0 And ee 0 Then ff = InStr(dd + ee, LCase(Form1.Text1.Text), LCase(Form3.Text1.Text) Else ff = InStr(LCase(Form1.Text1.Text), LCase(Form3.Text1.Text) End If Form1.Text1.SelStart = ff - 1 dd = ff ee
16、 = Len(Text1.Text) Form1.Text1.SelLength = ee Form1.SetFocus Else If dd 0 And ee 0 Then ff = InStr(dd + ee, LCase(Form1.Text1.Text), LCase(Form3.Text1.Text) Else ff = InStr(LCase(Form1.Text1.Text), LCase(Form3.Text1.Text) End If Form1.Text1.SelStart = ff - 1 dd = ff ee = Len(Text1.Text) Form1.Text1.
17、SelLength = ee Form1.SetFocus End If Form1.Text1.SelText = Text2.TextLoopEnd SubPrivate Sub Command4_Click()Form3.HideEnd Sub(10)全選Private Sub selectall_Click()Text1.SelStart = Len(RTrim(Text1.Text) - Len(Trim(Text1.Text)Text1.SelLength = Len(Text1.Text)End Sub(11)時間/日期Private Sub date_Click()Text1.
18、SelText = NowEnd Sub(12)字體Private Sub font_Click()cd.Flags = 259cd.ShowFontText1.FontBold = cd.FontBoldText1.FontItalic = cd.FontItalicText1.FontName = cd.FontNameText1.FontUnderline = cd.FontUnderlineText1.FontStrikethru = cd.FontStrikethruText1.ForeColor = cd.ColorEnd Sub（13）其它事件Private Sub Form_R
19、esize()Text1.Width = ScaleWidthText1.Height = ScaleHeightEnd SubPrivate Sub Text1_Change()d = TrueEnd SubPrivate Sub Timer1_Timer()If Text1.SelText Then qie.Enabled = True copy.Enabled = True delete.Enabled = True If Text1.SelText = Text1.Text Then selectall.Enabled = False Else selectall.Enabled =
20、True End If zhuan.Enabled = False Else qie.Enabled = False copy.Enabled = False delete.Enabled = False instead.Enabled = True date.Enabled = True selectall.Enabled = True zhuan.Enabled = False If Len(Text1.Text) 0 Then find.Enabled = True findnext.Enabled = True Else find.Enabled = False findnext.En
21、abled = False End IfEnd IfIf Clipboard.GetText Then tie.Enabled = TrueElse tie.Enabled = FalseEnd IfIf d = True Then cancel.Enabled = True Else cancel.Enabled = False End IfEnd Sub（14）變量Form1通用中Dim d As Boolean Dim rrModule1中定義的全局變量：Public dd As Integer, ee As IntegerPublic kk As Integer五、總結(jié)通過編寫記事本，我進一步熟悉了所學(xué)VB的程序語言，成功的編寫了一個記事本。專心-專注-專業(yè)
用VB編寫的記事本源碼教程
