簡(jiǎn)易記事本設(shè)計(jì)報(bào)告

1、精選優(yōu)質(zhì)文檔-傾情為你奉上微機(jī)技能訓(xùn)練 （簡(jiǎn)易記事本） 學(xué)生姓名： 徐峰 學(xué) 號(hào)： 系 別： 信息與電子系 專(zhuān) 業(yè)： 自動(dòng)化0701 指導(dǎo)教師： 劉鵬程 完成日期： 2009-5-20 前 言隨著計(jì)算機(jī)硬件技術(shù)的不斷進(jìn)步，計(jì)算機(jī)已經(jīng)從當(dāng)初的計(jì)算工具演變?yōu)槿缃竦男畔⒔K端性質(zhì)的工具，服務(wù)于各個(gè)行業(yè)領(lǐng)域。人們獲取信息的方式是多種多樣的，飛速發(fā)展的計(jì)算機(jī)技術(shù)給人們帶來(lái)的是豐富的信息和多樣化的獲取信息的途徑。電子計(jì)算機(jī)已廣泛的應(yīng)用于信息管理、文字處理、輔助設(shè)計(jì)、輔助教學(xué)及人們的日常生活中。特別是在計(jì)算機(jī)的操作系統(tǒng)具有了圖形化的界面后，使用計(jì)算機(jī)已經(jīng)不再是某些專(zhuān)業(yè)人員的專(zhuān)利，各行各業(yè)的人們不需要經(jīng)過(guò)專(zhuān)業(yè)化

2、的訓(xùn)練就能自如的在計(jì)算機(jī)上進(jìn)行各種復(fù)雜的操作。 時(shí)下，為了能創(chuàng)造更大的經(jīng)濟(jì)效益和社會(huì)效益，更有利于參與國(guó)際競(jìng)爭(zhēng)，越來(lái)越多的企業(yè)、公司和學(xué)校迫切需要引入現(xiàn)代化的管理手段，而計(jì)算機(jī)的大容量操作，精確的計(jì)算，使它成為企業(yè)管理不可缺少的手段之一，但隨著計(jì)算機(jī)應(yīng)用的不斷深入，用戶(hù)對(duì)軟件的需求也不斷增加，越來(lái)越多的用戶(hù)希望擁有適合自己需要的特殊軟件來(lái)滿(mǎn)足自己的特殊要求。而用VB技術(shù)制作的記事本軟件以其小巧精湛而深的廣大用戶(hù)的寵愛(ài)。關(guān)鍵詞：VB程序、記事本。第一章 VB語(yǔ)言概述1.1、VB簡(jiǎn)介 VB是微軟公司出品的一個(gè)快速可視化程序開(kāi)發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，VB在短短的幾年內(nèi)風(fēng)靡

3、全球。VB是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見(jiàn)即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開(kāi)發(fā)周期，較易維護(hù)的生成代碼。美國(guó)微軟公司在1991年推出VB1.0至今已經(jīng)經(jīng)歷了6個(gè)版本，VB6.0運(yùn)行在win9x或winme，win2000，winxp，windowsNT等操作系統(tǒng)下，是一個(gè)32位的應(yīng)用程序開(kāi)發(fā)工具。1.2、VB語(yǔ)言的基本特點(diǎn)及VB應(yīng)用程序的基本持點(diǎn) VB程序語(yǔ)言具有許多優(yōu)秀的特性,用其設(shè)計(jì)應(yīng)用程序時(shí)有兩個(gè)基本特點(diǎn):可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程.1、可視化設(shè)計(jì) 同其他的一些可視化程序開(kāi)發(fā)工具一樣,VB具有可視化設(shè)計(jì)的特點(diǎn),微軟的Word在剛剛進(jìn)入市場(chǎng)時(shí),同WPS競(jìng)爭(zhēng)的一個(gè)重要的

4、功能砝碼就是"所見(jiàn)即所得"的字處理功能,VB在設(shè)計(jì)應(yīng)用程序界面時(shí)也可以說(shuō)是"所見(jiàn)即所得".在設(shè)計(jì)時(shí),頭腦中所想象的應(yīng)用程序界面,完全可以通過(guò)鍵盤(pán)鼠標(biāo)以及徒手畫(huà)出來(lái),而不是編制大量的代碼然后再編譯生成,如果需要修改,也是利用鍵盤(pán)鼠標(biāo)和手畫(huà),而底層的一些程序代碼由VB自動(dòng)生成或修改。 VB為用戶(hù)提供大量的界面元素(在VB中稱(chēng)為控件對(duì)象),這些控件對(duì)象對(duì)于熟悉Windows應(yīng)用程序的用戶(hù)而言是一點(diǎn)也不陌生,如"窗體"、"菜單"、"命令按鈕"、"工具按鈕"、"檢查框&quo

5、t;等等,用戶(hù)只需要利用鼠標(biāo)、鍵盤(pán)把這些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?設(shè)置它們的大小、形狀、屬性等,就可以設(shè)計(jì)出所需的應(yīng)用程序界面。2、事件驅(qū)動(dòng)事件驅(qū)動(dòng)就是面向?qū)ο蟮目梢暬翱冢绑w和事件就是對(duì)象，事件驅(qū)動(dòng)就是一切程序由事件觸發(fā)，這是進(jìn)行基礎(chǔ)編程的基礎(chǔ)，就是以事件為基礎(chǔ)。1.3、VB6.0應(yīng)用程序開(kāi)發(fā)過(guò)程1創(chuàng)建應(yīng)用程序界面2設(shè)置屬性3編寫(xiě)代碼4保存應(yīng)用程序5調(diào)試，運(yùn)行應(yīng)用程序6生成可執(zhí)行文件第二章 用VB開(kāi)發(fā)記事本軟件2.1功能描述該記事本具有簡(jiǎn)單的文本編輯功能，其功能主要包括文件的新建、打開(kāi)、剪切、粘貼等。同時(shí)，該記事本還可以進(jìn)行內(nèi)容的查找和字體大小以及顏色的改變。2.2概要設(shè)計(jì)及代碼Dim f

6、ilecount As IntegerDim inputdata As StringDim TargetPosition As IntegerDim pos As IntegerDim targey As StringDim neirong As StringPrivate Sub A_Click()On Error Resume Nextcmndlg1.Filter = "文本文件|*.txt"cmndlg1.CancelError = Truecmndlg1.Action = 2Open cmndlg1.FileName For Output As #1Print #1

7、, Text1.TextClose #1End SubPrivate Sub C_Click()End SubPrivate Sub D_Click()End SubPrivate Sub Form_Load() Text1.Text = "" Text1.Left = 0 Text1.Top = 550 Text1.Width = Form1.ScaleWidth Text1.Height = Form1.ScaleHeight mnucut.Enabled = False mnucopy.Enabled = False mnudelete.Enabled = False

8、 mnuselectall.Enabled = False mnupaste.Enabled = True mnuleft.Checked = TrueEnd SubPrivate Sub Form_Resize() '如果窗體不處于最小化text1狀態(tài)，改變text1大小以適應(yīng)窗體大小變化 If Form1.WindowState <> 1 Then Text1.Width = Form1.Width - 120 If Form1.Height < 1200 Then Form1.Height = 1200 End If Text1.Height = Form1.H

9、eight - 1350 End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim msg As IntegerIf Text1.Text <> neirong Then msg = MsgBox(" 內(nèi)容已被修改,是否保存文件", 48 + vbYesNoCancel, "提示") If msg = vbYes Then On Error GoTo Err cmndlg1.DialogTitle = "保存文件" cmndlg1.Filter = "文

10、本文件|*.txt" cmndlg1.CancelError = True cmndlg1.ShowSave Open cmndlg1.FileName For Output As #1 Print #1, Text1.Text Close #1Err: If Err.Number = cdlCancel Then Cancel = True End If ElseIf msg = vbNo Then End ElseIf msg = vbCancel Then Cancel = True End If Else End End IfEnd SubPrivate Sub mnucop

11、y_Click() '復(fù)制 利用SetText 方法,將選中的文本放入剪貼板上 Clipboard.SetText Text1.SelTextEnd SubPrivate Sub mnucut_Click() '剪切 Clipboard.SetText Text1.SelText Text1.SelText = ""End SubPrivate Sub mnudelete_Click() '刪除Text1.SelText = ""End SubPrivate Sub mnuedit_Click() '編輯 菜單項(xiàng)代碼 &#

12、39; 如果文本框中沒(méi)有選中的內(nèi)容,則剪切復(fù)制刪除和粘貼菜單無(wú)效,否則有效 If Text1.SelLength <> 0 Then mnucut.Enabled = True mnucopy.Enabled = True mnudelete.Enabled = True mnupaste.Enabled = True Else mnucut.Enabled = False mnucopy.Enabled = False mnudelete.Enabled = False End IfEnd SubPrivate Sub mnuexit_Click() '退出 EndEnd

13、 SubPrivate Sub mnufind_Click() '查找FindText 1mnuNext.Enabled = TrueEnd SubPrivate Sub mnufont_Click() '字體On Error GoTo A: cmndlg1.Flags = cdlCFBoth Or cdlCFEffects cmndlg1.ShowFont If cmndlg1.FontName > "" Then Text1.FontName = cmndlg1.FontName End If Text1.FontSize = cmndlg1.Fo

14、ntSize Text1.FontBold = cmndlg1.FontBold Text1.FontItalic = cmndlg1.FontItalic Text1.FontStrikethru = cmndlg1.FontStrikethru Text1.FontUnderline = cmndlg1.FontUnderline Text1.FontBold = cmndlg1.FontBold Text1.ForeColor = cmndlg1.ColorA: If Err.Number < 0 ThenExit SubEnd IfEnd SubPrivate Sub mnufo

15、ntcolor_Click() '字體顏色cmndlg1.ShowColorText1.ForeColor = cmndlg1.ColorEnd SubPrivate Sub mnuleft_Click() '左對(duì)齊 Text1.Alignment = 0 mnuleft.Checked = True mnuright(1).Checked = False mnuright(2).Checked = FalseEnd SubPrivate Sub mnunew_Click() '新建 Text1.Text = ""End SubPrivate Sub

16、 FindTex(ByVal start_at As Integer)targey = targeypos = InStr(start_at, Text1.Text, targey)If pos > 0 Then '找到了匹配字符串TargetPosition = posText1.SelStart = TargetPosition - 1'選中找到的字符串Text1.SelLength = Len(targey)Text1.SetFocusElse '沒(méi)有找到匹配的字符串MsgBox "沒(méi)找到匹配的字符串", 48, "提示&quo

17、t;Text1.SetFocusEnd IfEnd SubPrivate Sub mnuNext_Click() '查找下一個(gè)FindTex TargetPosition + 1End SubPrivate Sub mnuopen_Click() '打開(kāi)Dim inputdata As String On Error GoTo nofile cmndlg1.Filter = "文本文件|*.txt" cmndlg1.CancelError = True cmndlg1.ShowOpen Text1.Text = "" If cmndlg1

18、.FileName <> "" Then Open cmndlg1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text & inputdata & vbCr Loop Close #1 End If Exit Subnofile: If Err.Number = 32755 Then Exit SubEnd SubPrivate Sub FindText(ByVal start_at As Integer)

19、9;獲取用戶(hù)輸入的要查找的字符串targey = InputBox("請(qǐng)輸入要查找的內(nèi)容", "查找")pos = InStr(start_at, Text1.Text, targey)If pos > 0 Then '找到了匹配字符串TargetPosition = posForm1.Text1.SelStart = TargetPosition - 1'選中找到的字符串Form1.Text1.SelLength = Len(targey)Form1.Text1.SetFocusElse '沒(méi)有找到匹配的字符串MsgBox

20、 "沒(méi)找到匹配的字符串", 48, "提示"Form1.Text1.SetFocusEnd IfEnd SubPrivate Sub mnupaste_Click() '粘貼 用GetText1 方法,將剪切板中的內(nèi)容粘貼到光標(biāo)所在位置 Text1.SelText = Clipboard.GetText()End SubPrivate Sub mnuprint_Click() '打印On Error Resume Next cmndlg1.ShowPrinter Printer.Copies = cmndlg1.Copies Printe

21、r.Print Text1.TextEnd SubPrivate Sub mnuright_Click(Index As Integer) '右對(duì)齊居中菜單代碼Select Case IndexCase 1Text1.Alignment = 1mnuleft.Checked = Falsemnuright(1).Checked = Truemnuright(2).Checked = FalseCase 2Text1.Alignment = 2mnuleft.Checked = Falsemnuright(1).Checked = Falsemnuright(2).Checked = T

22、rueEnd SelectEnd SubPrivate Sub mnusave_Click() '保存 On Error Resume Next cmndlg1.DialogTitle = "保存文件" cmndlg1.Filter = "文本文件|*.txt" cmndlg1.CancelError = True cmndlg1.ShowSave Open cmndlg1.FileName For Output As #1 Print #1, Text1.Text Close #1End SubPrivate Sub mnuselectall_

23、Click() '全選 Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_Change()If Text1.Text = "" Thenmnufind.Enabled = FalsemnuNext.Enabled = FalseElsemnufind.Enabled = Truemnuselectall.Enabled = TrueEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case ButtonCase "新建"Call mnunew_ClickCase "打開(kāi)"Call mnuopen_ClickCase "剪切"Call mnucut_ClickCase