简易记事本设计报告

微机技能训练（简易记事本）学生姓名：徐峰学号：0408070133系别：信息与电子系专业：自动化0701指导教师：刘鹏程完成日期：2009-5-202前言随着计算机硬件技术的不断进步，计算机已经从当初的计算工具演变为如今的信息终端性质的工具，服务于各个行业领域。人们获取信息的方式是多种多样的，飞速发展的计算机技术给人们带来的是丰富的信息和多样化的获取信息的途径。电子计算机已广泛的应用于信息管理、文字处理、辅助设计、辅助教学及人们的日常生活中。特别是在计算机的操作系统具有了图形化的界面后，使用计算机已经不再是某些专业人员的专利，各行各业的人们不需要经过专业化的训练就能自如的在计算机上进行各种复杂的操作。时下，为了能创造更大的经济效益和社会效益，更有利于参与国际竞争，越来越多的企业、公司和学校迫切需要引入现代化的管理手段，而计算机的大容量操作，精确的计算，使它成为企业管理不可缺少的手段之一，但随着计算机应用的不断深入，用户对软件的需求也不断增加，越来越多的用户希望拥有适合自己需要的特殊软件来满足自己的特殊要求。而用VB技术制作的记事本软件以其小巧精湛而深的广大用户的宠爱。关键词：VB程序、记事本。第一章VB语言概述1.1、VB简介VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。美国微软公司在1991年推出VB1.0至今已经经历了6个版本，VB6.0运行在win9x或winme，win2000，winxp，windowsNT等操作系统下，是一个32位的应用程序开发工具。1.2、VB语言的基本特点及VB应用程序的基本持点VB程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:可视化设计和事件驱动编程.1、可视化设计3同其他的一些可视化程序开发工具一样,VB具有可视化设计的特点,微软的Word在刚刚进入市场时,同WPS竞争的一个重要的功能砝码就是所见即所得的字处理功能,VB在设计应用程序界面时也可以说是所见即所得.在设计时,头脑中所想象的应用程序界面,完全可以通过键盘鼠标以及徒手画出来,而不是编制大量的代码然后再编译生成,如果需要修改,也是利用键盘鼠标和手画,而底层的一些程序代码由VB自动生成或修改。VB为用户提供大量的界面元素(在VB中称为控件对象),这些控件对象对于熟悉Windows应用程序的用户而言是一点也不陌生,如窗体、菜单、命令按钮、工具按钮、检查框等等,用户只需要利用鼠标、键盘把这些控件对象拖动到适当的位置,设置它们的大小、形状、属性等,就可以设计出所需的应用程序界面。2、事件驱动事件驱动就是面向对象的可视化窗口，窗体和事件就是对象，事件驱动就是一切程序由事件触发，这是进行基础编程的基础，就是以事件为基础。1.3、VB6.0应用程序开发过程1创建应用程序界面2设置属性3编写代码4保存应用程序5调试，运行应用程序6生成可执行文件第二章用VB开发记事本软件2.1功能描述该记事本具有简单的文本编辑功能，其功能主要包括文件的新建、打开、剪切、粘贴等。同时，该记事本还可以进行内容的查找和字体大小以及颜色的改变。2.2概要设计及代码4DimfilecountAsIntegerDiminputdataAsStringDimTargetPositionAsIntegerDimposAsIntegerDimtargeyAsStringDimneirongAsStringPrivateSubA_Click()OnErrorResumeNextcmndlg1.Filter=文本文件|*.txtcmndlg1.CancelError=Truecmndlg1.Action=2Opencmndlg1.FileNameForOutputAs#1Print#1,Text1.TextClose#1EndSubPrivateSubC_Click()EndSubPrivateSubD_Click()EndSubPrivateSubForm_Load()Text1.Text=Text1.Left=0Text1.Top=550Text1.Width=Form1.ScaleWidthText1.Height=Form1.ScaleHeightmnucut.Enabled=Falsemnucopy.Enabled=Falsemnudelete.Enabled=Falsemnuselectall.Enabled=Falsemnupaste.Enabled=Truemnuleft.Checked=TrueEndSubPrivateSubForm_Resize()'如果窗体不处于最小化text1状态，改变text1大小以适应窗体大小变化5IfForm1.WindowState1ThenText1.Width=Form1.Width-120IfForm1.Height1200ThenForm1.Height=1200EndIfText1.Height=Form1.Height-1350EndIfEndSubPrivateSubForm_Unload(CancelAsInteger)DimmsgAsIntegerIfText1.TextneirongThenmsg=MsgBox(内容已被修改,是否保存文件,48+vbYesNoCancel,提示)Ifmsg=vbYesThenOnErrorGoToErrcmndlg1.DialogTitle=保存文件cmndlg1.Filter=文本文件|*.txtcmndlg1.CancelError=Truecmndlg1.ShowSaveOpencmndlg1.FileNameForOutputAs#1Print#1,Text1.TextClose#1Err:IfErr.Number=cdlCancelThenCancel=TrueEndIfElseIfmsg=vbNoThenEndElseIfmsg=vbCancelThenCancel=TrueEndIfElseEndEndIfEndSubPrivateSubmnucopy_Click()'复制利用SetText方法,将选中的文本放入剪贴板上6Clipboard.SetTextText1.SelTextEndSubPrivateSubmnucut_Click()'剪切Clipboard.SetTextText1.SelTextText1.SelText=EndSubPrivateSubmnudelete_Click()'删除Text1.SelText=EndSubPrivateSubmnuedit_Click()'编辑菜单项代码'如果文本框中没有选中的内容,则剪切\复制\删除和粘贴菜单无效,否则有效IfText1.SelLength0Thenmnucut.Enabled=Truemnucopy.Enabled=Truemnudelete.Enabled=Truemnupaste.Enabled=TrueElsemnucut.Enabled=Falsemnucopy.Enabled=Falsemnudelete.Enabled=FalseEndIfEndSubPrivateSubmnuexit_Click()'退出EndEndSubPrivateSubmnufind_Click()'查找FindText1mnuNext.Enabled=TrueEndSubPrivateSubmnufont_Click()'字体OnErrorGoToA:cmndlg1.Flags=cdlCFBothOrcdlCFEffectscmndlg1.ShowFont7Ifcmndlg1.FontNameThenText1.FontName=cmndlg1.FontNameEndIfText1.FontSize=cmndlg1.FontSizeText1.FontBold=cmndlg1.FontBoldText1.FontItalic=cmndlg1.FontItalicText1.FontStrikethru=cmndlg1.FontStrikethruText1.FontUnderline=cmndlg1.FontUnderlineText1.FontBold=cmndlg1.FontBoldText1.ForeColor=cmndlg1.ColorA:IfErr.Number0ThenExitSubEndIfEndSubPrivateSubmnufontcolor_Click()'字体颜色cmndlg1.ShowColorText1.ForeColor=cmndlg1.ColorEndSubPrivateSubmnuleft_Click()'左对齐Text1.Alignment=0mnuleft.Checked=Truemnuright(1).Checked=Falsemnuright(2).Checked=FalseEndSubPrivateSubmnunew_Click()'新建Text1.Text=EndSubPrivateSubFindTex(ByValstart_atAsInteger)targey=targeypos=InStr(start_at,Text1.Text,targey)Ifpos0Then'找到了匹配字符串TargetPosition=posText1.SelStart=TargetPosition-1'选中找到的字符串Text1.SelLength=Len(targey)Text1.SetFocusElse'没有找到匹配的字符串MsgBox没找到匹配的字符串,48,提示Text1.SetFocusEndIf8EndSubPrivateSubmnuNext_Click()'查找下一个FindTexTargetPosition+1EndSubPrivateSubmnuopen_Click()'打开DiminputdataAsStringOnErrorGoTonofilecmndlg1.Filter=文本文件|*.txtcmndlg1.CancelError=Truecmndlg1.ShowOpenText1.Text=Ifcmndlg1.FileNameThenOpencmndlg1.FileNameForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText1.Text=Text1.Text&inputdata&vbCrLoopClose#1EndIfExitSubnofile:IfErr.Number=32755ThenExitSubEndSubPrivateSubFindText(ByValstart_atAsInteger)'获取用户输入的要查找的字符串targey=InputBox(请输入要查找的内容,查找)pos=InStr(start_at,Text1.Text,targey)Ifpos0Then'找到了匹配字符串TargetPosition=posForm1.Text1.SelStart=TargetPosition-1'选中找到的字符串Form1.Text1.SelLength=Len(targey)Form1.Text1.SetFocusElse'没有找到匹配的字符串MsgBox没找到匹配的字符串,48,提示Form1.Text1.SetFocusEndIfEndSubPrivateSubmnupaste_Click()'粘贴用GetText1方法,将剪切板中的内容粘贴到光标所在位置9Text1.SelText=Clipboard.GetText()EndSubPrivateSubmnuprint_Click()'打印OnErrorResumeNextcmndlg1.ShowP