VB简易记事本课程设计报告

课程:记事本的开发学号:201130210114姓名:吕仕雄班级:1132101专业:信息工程（信息安全）小组成员:吴彧刘金强2013-1引言随着计算机硬件技术的不断进步，计算机已经从当初的计算工具演变为如今的信息终端性质的工具，服务于各个行业领域。人们获取信息的方式是多种多样的，飞速发展的计算机技术给人们带来的是丰富的信息和多样化的获取信息的途径。电子计算机已广泛的应用于信息管理、文字处理、辅助设计、辅助教学及人们的日常生活中。特别是在计算机的操作系统具有了图形化的界面后，使用计算机已经不再是某些专业人员的专利，各行各业的人们不需要经过专业化的训练就能自如的在计算机上进行各种复杂的操作。时下，为了能创造更大的经济效益和社会效益，更有利于参与国际竞争，越来越多的企业、公司和学校迫切需要引入现代化的管理手段，而计算机的大容量操作，精确的计算，使它成为企业管理不可缺少的手段之一，但随着计算机应用的不断深入，用户对软件的需求也不断增加，越来越多的用户希望拥有适合自己需要的特殊软件来满足自己的特殊要求。而用VB技术制作的记事本软件以其小巧精湛而深的广大用户的宠Visualbasic介绍VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。1.VB语言的基本特点及VB应用程序的基本持点①可视化设②事件驱动2．程序开发过程①创建应用程序界面②设置属性③编写代码④保存应用程序⑤调试，运行应用程序⑥生成可执行文记事本的开发功能描述该记事本具有简单的文本编辑功能，其功能主要包括文件的新建、打开、剪切、粘贴等。同时，该记事本还可以进行内容的查找和字体大小以及颜色的改变实现图及代码通过两个文本框，对自动换行的实现。再有就是载入时对窗体大小的设计，以及窗体变化时文本框随着窗体大小的变换，其主要代码如下：PrivateSubForm_Load()Text2.Visible=FalseText1.FontSize=16Text2.FontSize=16自动换行.Checked=FalseCommonDialog1.CancelError=TrueText1.Top=Form1.ScaleTopText1.Left=Form1.ScaleLeftText1.Width=Form1.ScaleWidthText1.Height=Form1.ScaleHeight'运行时与窗体大小一致Text2.Top=Form1.ScaleTopText2.Left=Form1.ScaleLeftText2.Width=Form1.ScaleWidthText2.Height=Form1.ScaleHeightEndSubPrivateSubForm_Resize()Text1.Top=Form1.ScaleTopText1.Left=Form1.ScaleLeftText1.Width=Form1.ScaleWidthText1.Height=Form1.ScaleHeight'放大与缩小时也与窗体一致Text2.Top=Form1.ScaleTopText2.Left=Form1.ScaleLeftText2.Width=Form1.ScaleWidthText2.Height=Form1.ScaleHeightEndSub编辑菜单的设计代码如下打开：PrivateSubOpen_Click()OnErrorResumeNextCommonDialog1.ShowOpenOnErrorGoTobb:IfText1.Visible=FalseThenOpenCommonDialog1.FileNameForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText2.Text=Text2.Text&inputdata&vbCrLfLoopClose#1ElseOpenCommonDialog1.FileNameForInputAs#1DoWhileNotEOF(1)LineInput#1,inputdataText1.Text=Text1.Text&inputdata&vbCrLfLoopClose#1EndIfbb:Close#1EndSub另存为PrivateSubAsSaveFile_Click()OnErrorResumeNextCommonDialog1.FileName=CommonDialog1.FileTitleCommonDialog1.DefaultExt=txtCommonDialog1.ShowSaveOnErrorGoToaa:OpenCommonDialog1.FileNameForOutputAs#1Print#1,Text1.TextClose#1MsgBox文件保存成功,64,提示Text1.Text=Text2.Text=aa:ExitSubEndSub打印PrivateSubFilePrint_Click()OnErrorResumeNextCommonDialog1.ShowPrinterIfText1.Visible=TrueThenFori=1ToCommonDialog1.CopiesPrinter.PrintText1.TextNextiElseFori=1ToCommonDialog1.CopiesPrinter.PrintText2.TextNextiEndIfPrinter.EndDocEndSub退出PrivateSubFileExit_Click()IfText1.Text=AndText2.Text=ThenX=MsgBox(确定退出吗？,vbYesNo)IfX=6ThenEndEndIfElseOnErrorResumeNextCommonDialog1.FileName=CommonDialog1.FileTitleCommonDialog1.DefaultExt=txtCommonDialog1.ShowSaveOnErrorGoToaa:OpenCommonDialog1.FileNameForOutputAs#1Print#1,Text1.TextClose#1MsgBox文件保存成功,64,提示Text1.Text=Text2.Text=aa:ExitSubEndIfEndSub编辑菜单，以及其他功能，代码就不一一介绍了。查找功能则换了另一个窗体，实现是由form2.show实现的，其代码是仿照书本附页PrivateSubCommand1_Click()Dims1AsString,s2AsString,l1AsInteger,l2AsInteger,nAsIntegerStaticXAsIntegerIfflag=TrueThenX=0k=1flag=FalseEndIfIfCheck1.Value=1ThenIfn0ThenText1.SetFocusX=X+ni=MsgBox(找到了&Text2&,1+48)Text1.SelStart=X-1Text1.SelLength=Len(Text2)s=Mid(s,n+1)ElseMsgBox(没有找到&Text2&s)EndIfEndIfIfOption2.Value=TrueThenn=InStr(UCase(s),UCase(Text2))Ifn0ThenText1.SetFocusX=X+ni=MsgBox(找到了&Text2&,1+48)Text1.SelStart=X-1Text1.SelLength=Len(Text2)s=Mid(s,n+1)ElseMsgBox没有找到&Text2&EndIfElses1=StrReverse(Text1)s2=StrReverse(Text2)l1=Len(Text1)l2=Len(Text2)n=InStr(k,UCase(s1),UCase(s2))Ifn0ThenText1.SetFocusi=MsgBox(找到了&Text2&,11+48)Text1.SelStart=l1-(n+l2-1)Text1.SelLength=l2k=n+l2ElseMsgBox没有找到&Text2&EndIfEndIfEndSub格式中背景色，以及字体颜变实现代码如下：PrivateSubbeijingse_Click()OnErrorResumeNextCommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.ShowColorText1.BackColor=CommonDialog1.ColorText2.BackColor=CommonDialog1.ColorEndSubPrivateSubmnufont_Click()OnErrorResumeNextCommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.ShowFontText1.FontSize=CommonDialog1.FontSizeText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethruText1.FontUnderline=CommonDialog1.FontUnderlineText1.ForeColor=CommonDialog1.ColorText2.FontSize=CommonDialog1.FontSizeText2.FontSize=CommonDialog1.FontSizeText2.FontBold=CommonDialog1.FontBoldText2.FontItalic=CommonDialog1.FontItalicText2.FontStrikethru=CommonDialog1.FontStrikethruText2.FontUnderline=CommonDialog1.FontUnderlineEndSub参考书：《visualbasic案例教程》电子工业出版社，《visualbasic程序设计实验指导》冶金工业出版社总结通过编这个简易记事本，我觉得编程不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，也许就是因为一个符号或一个字母，就得花上个几个小时，半天，甚至更长。越是这样越不能灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我们就一定能找到问题所在，最后一定能露出开心的笑容，也一定能找到成功者的感觉。所以编程能很好的锻炼人的意志。同时，我觉得良好的编程习惯是必不可少的。在很多人的编程语言中，用“+”来连接字符串，这样容易导致歧义。良好的习惯是用“&”来连接字符串。此外，变量命名应大小写,语句错落有秩。还有，尽量使用Debug.print进行调试，在很多人的调试中,习惯用MsgBox来跟踪变量值。其实用Debug.print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除。