VB簡易記事本課程設(shè)計報告

1、 課 程: 記事本的開發(fā) 學(xué) 號: 4 姓 名: 呂 仕 雄 班 級: 1 1 3 2 1 0 1 專 業(yè): 信息工程（信息安全） 小組成員: 吳彧 劉 金 強(qiáng) 2013-1引言 隨著計算機(jī)硬件技術(shù)的不斷進(jìn)步，計算機(jī)已經(jīng)從當(dāng)初的計算工具演變?yōu)槿缃竦男畔⒔K端性質(zhì)的工具，服務(wù)于各個行業(yè)領(lǐng)域。人們獲取信息的方式是多種多樣的，飛速發(fā)展的計算機(jī)技術(shù)給人們帶來的是豐富的信息和多樣化的獲取信息的途徑。電子計算機(jī)已廣泛的應(yīng)用于信息管理、文字處理、輔助設(shè)計、輔助教學(xué)及人們的日常生活中。特別是在計算機(jī)的操作系統(tǒng)具有了圖形化的界面后，使用計算機(jī)已經(jīng)不再是某些專業(yè)人員的專利，各行各業(yè)的人們不需要經(jīng)過專業(yè)化的訓(xùn)練就能自

2、如的在計算機(jī)上進(jìn)行各種復(fù)雜的操作。 時下，為了能創(chuàng)造更大的經(jīng)濟(jì)效益和社會效益，更有利于參與國際競爭，越來越多的企業(yè)、公司和學(xué)校迫切需要引入現(xiàn)代化的管理手段，而計算機(jī)的大容量操作，精確的計算，使它成為企業(yè)管理不可缺少的手段之一，但隨著計算機(jī)應(yīng)用的不斷深入，用戶對軟件的需求也不斷增加，越來越多的用戶希望擁有適合自己需要的特殊軟件來滿足自己的特殊要求。而用VB技術(shù)制作的記事本軟件以其小巧精湛而深的廣大用戶的寵Visual basic介紹VB是微軟公司出品的一個快速可視化程序開發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，VB在短短的幾年內(nèi)風(fēng)靡全球。VB是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見即

3、所得的界面設(shè)計，基于對象的設(shè)計方法，極短的軟件開發(fā)周期，較易維護(hù)的生成代碼。 1. VB語言的基本特點(diǎn)及VB應(yīng)用程序的基本持點(diǎn) 可視化設(shè) 事件驅(qū)動2程序開發(fā)過程 創(chuàng)建應(yīng)用程序界面 設(shè)置屬性 編寫代碼 保存應(yīng)用程序 調(diào)試，運(yùn)行應(yīng)用程序 生成可執(zhí)行文記事本的開發(fā) 功能描述 該記事本具有簡單的文本編輯功能，其功能主要包括文件的新建、打開、剪切、粘貼等。同時，該記事本還可以進(jìn)行內(nèi)容的查找和字體大小以及顏色的改變實現(xiàn)圖及代碼通過兩個文本框，對自動換行的實現(xiàn)。再有就是載入時對窗體大小的設(shè)計，以及窗體變化時文本框隨著窗體大小的變換，其主要代碼如下：Private Sub Form_Load() Text2.

4、Visible = False Text1.FontSize = 16 Text2.FontSize = 16 自動換行.Checked = False CommonDialog1.CancelError = True Text1.Top = Form1.ScaleTop Text1.Left = Form1.ScaleLeft Text1.Width = Form1.ScaleWidth Text1.Height = Form1.ScaleHeight 運(yùn)行時與窗體大小一致 Text2.Top = Form1.ScaleTop Text2.Left = Form1.ScaleLeft Tex

5、t2.Width = Form1.ScaleWidth Text2.Height = Form1.ScaleHeightEnd SubPrivate Sub Form_Resize() Text1.Top = Form1.ScaleTop Text1.Left = Form1.ScaleLeft Text1.Width = Form1.ScaleWidth Text1.Height = Form1.ScaleHeight 放大與縮小時也與窗體一致 Text2.Top = Form1.ScaleTop Text2.Left = Form1.ScaleLeft Text2.Width = Form

6、1.ScaleWidth Text2.Height = Form1.ScaleHeightEnd Sub編輯菜單的設(shè)計代碼如下打開：Private Sub Open_Click() On Error Resume Next CommonDialog1.ShowOpen On Error GoTo bb: If Text1.Visible = False Then Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text2.Text = Text2.Text & in

7、putdata & vbCrLf Loop Close #1 Else Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text & inputdata & vbCrLf Loop Close #1 End Ifbb: Close #1End Sub另存為Private Sub AsSaveFile_Click() On Error Resume Next CommonDialog1.FileName = CommonDialo

8、g1.FileTitle CommonDialog1.DefaultExt = txt CommonDialog1.ShowSave On Error GoTo aa: Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 MsgBox 文件保存成功, 64, 提示 Text1.Text = Text2.Text = aa: Exit SubEnd Sub打印Private Sub FilePrint_Click() On Error Resume Next CommonDialog1.ShowPr

9、inter If Text1.Visible = True Then For i = 1 To CommonDialog1.Copies Printer.Print Text1.Text Next i Else For i = 1 To CommonDialog1.Copies Printer.Print Text2.Text Next i End If Printer.EndDocEnd Sub退出Private Sub FileExit_Click() If Text1.Text = And Text2.Text = Then X = MsgBox(確定退出嗎？, vbYesNo) If

10、X = 6 Then End End If Else On Error Resume Next CommonDialog1.FileName = CommonDialog1.FileTitle CommonDialog1.DefaultExt = txt CommonDialog1.ShowSave On Error GoTo aa: Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close #1 MsgBox 文件保存成功, 64, 提示 Text1.Text = Text2.Text = aa: Exit

11、 Sub End IfEnd Sub編輯菜單，以及其他功能，代碼就不一一介紹了。查找功能則換了另一個窗體，實現(xiàn)是由form2.show實現(xiàn)的，其代碼是仿照書本附頁P(yáng)rivate Sub Command1_Click() Dim s1 As String, s2 As String, l1 As Integer, l2 As Integer, n As Integer Static X As Integer If flag = True Then X = 0 k = 1 flag = False End If If Check1.Value = 1 Then If n 0 Then Text1.

12、SetFocus X = X + n i = MsgBox(找到了 & Text2 & , 1 + 48) Text1.SelStart = X - 1 Text1.SelLength = Len(Text2) s = Mid(s, n + 1) Else MsgBox (沒有找到 & Text2 & s) End If End If If Option2.Value = True Then n = InStr(UCase(s), UCase(Text2) If n 0 Then Text1.SetFocus X = X + n i = MsgBox(找到了 & Text2 & , 1 + 4

13、8) Text1.SelStart = X - 1 Text1.SelLength = Len(Text2) s = Mid(s, n + 1) Else MsgBox 沒有找到 & Text2 & End If Else s1 = StrReverse(Text1) s2 = StrReverse(Text2) l1 = Len(Text1) l2 = Len(Text2) n = InStr(k, UCase(s1), UCase(s2) If n 0 Then Text1.SetFocus i = MsgBox(找到了 & Text2 & , 11 + 48) Text1.SelStar

14、t = l1 - (n + l2 - 1) Text1.SelLength = l2 k = n + l2 Else MsgBox 沒有找到 & Text2 & End If End IfEnd Sub格式中背景色，以及字體顏?zhàn)儗崿F(xiàn)代碼如下：Private Sub beijingse_Click() On Error Resume Next CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowColor Text1.BackColor = CommonDialog1.Color Text2.BackColor =

15、CommonDialog1.ColorEnd SubPrivate Sub mnufont_Click() On Error Resume Next CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont Text1.FontSize = CommonDialog1.FontSize Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.F

16、ontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color Text2.FontSize = CommonDialog1.FontSize Text2.FontSize = CommonDialog1.FontSize Text2.FontBold = CommonDialog1.FontBold Text2.FontItalic = CommonDialo

17、g1.FontItalic Text2.FontStrikethru = CommonDialog1.FontStrikethru Text2.FontUnderline = CommonDialog1.FontUnderlineEnd Sub參考書：visual basic案例教程電子工業(yè)出版社，visual basic 程序設(shè)計實驗指導(dǎo)冶金工業(yè)出版社總結(jié)通過編這個簡易記事本，我覺得編程不是一項輕松的活，尤其是一個人開發(fā)制作軟件時，那工作量就多了。沒有一定的坐功、細(xì)心程度及耐性那是絕對做不到的。有時，把程序做完了需要調(diào)試運(yùn)行，但是就是不能達(dá)到自已設(shè)計的效果和目的，也許就是因為一個符號或一個字母，就得花上個幾個小時，半天，甚至更長。越是這樣越不能灰心，應(yīng)該放松心態(tài)，一