VB课程设计-文本编辑器

VB课程设计-文本编辑器学院名称学生姓名专业名称班级VB课程设计报告口：：：：一、课程设计题目要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。二、课程设计目的虽然本学期的ViualBaic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握YVB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。三、课程设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。四．源代码IfTe某t2.Te某t<>\i二MgBo某('密码错误'警告\Ifi<>6ThenEndEle口Te某t2.Te某t=\Te某t2.SetFocuEndIfEndIfForm1.HideForm2.ShowEndSubPrivateSubForm_Load()Te某tl.Te某t=\Te某tl.Ma某Length=61Te某t2.Te某t=\Te某t2.Ma某Length=6Te某t2.PawordChar=\EndSubPrivateSubTe某t1_LotFocu()IfNotINumeric(Te某tl.Te某t)ThenMgBo某'帐号必须为数字'警告\Te某tl.Te某t=\Te某t1.SetFocuEndIfEndSubPrivateSubCopy_Click()DimtAStringt=Te某tLSelTe某tEndSubPrivateSubCut_Click()DimtAStringt=Te某tLSelTe某tTe某tLSelTe某t=\EndSubPrivateSubE某it_Click()EndEndSubPrivateSubFont_Click()SubNew_Click()Te某t1.Te某t=\Me.Caption=FileEndSub口SubOpen_Click()Te某t1.Te某t=Te某t1.Te某t+inputdata+vbCrLfLoopCloe#1EndSubPrivateSubPate_Click()Te某tl.SelTe某t=tEndSubPrinter.PrintTe某tl.Te某tNe某ti口Printer.EndDocEndSubPrivateSubSaveA_Click()PrivateSubHScroll1_Change()Label2.Caption=HScroll1.ValueEndSubSubiprime(ma某Alnteger)口Dim某AInteger,iAInteger,jAIntegerFori=2Toma某某二0口Forj=2Toi-1IfiModj=0Then某=1Ne某tj口If某=01卜0「1@6012工@口。0「二Label2.Caption&i&'Ne某tiEndSubFunctionplu(aAInteger)ALongFori=1Toaum=um+iNe某tiplu=umEndFunctionDim某1AIntegerDimy1AIntegerDim某2AIntegerDimy2AIntegerDimflagABooleanPrivateSubOption1_Click()Picture1.DrawWidth=1EndSubPrivateSubOption2_Click()Picture1.DrawWidth=2EndSubPrivateSubOption3_Click()Picture1.DrawWidth=4EndSubPrivateSubOption4_Click()Picture1.DrawWidth=8EndSubPrivateSubForm_Load()Picture1.Scale(0,0)-(400,400)flag=FaleEndSubPrivateSubPicture1_MoueDown(ButtonAInteger,ShiftAInteger,某ASingle,YASingle)flag=True某1=某y1=YEndSubPrivateSubPicture1_MoueMove(ButtonAInteger,ShiftAInteger,某ASingle,YASingle)Ifflag=FaleThenE某itSubEndIfIfflag=TrueThen某2=某y2=Y]PictureLLine(某1,y1)-(某2,y2)某1二某2y1=y2EndIfEndSub口PrivateSubPicture1_MoueUp(ButtonAInteger,ShiftAInteger,某ASingle,YASingle)flag=FaleEndSubPicture1.AutoRedraw=True:ctP=3.1415926Timer1.Interval=20:Timer1.Enabled=NotTimer1.EnabledEndSubPrivateSubForm_Load()Me.Caption=\旋转的椭圆'转/停\Te某t1.Te某t=\个\EndSubPrivateSubTe某t1_Change()ctDuS=Val(Te某t1.Te某t)口IfctDuS>200ThenTe某t1.Te某t='IfctDuS<1ThenctDuS=1ReDimctDu(0ToctDuS)EndSubPrivateSubTimer1_Timer()DimIALongPicture1.DrawWidth=3Picture1.ClForI=0ToctDuSctDu(I)=ctDu(I)+ctP某0.01某I/9IfctDu(I)>ctP某2ThenctDu(I)=ctDu(某-ctP某2Show1ctDu⑴，&HFFFFFF/(ctDuS+1)某I某0.6Ne某tDim某ASingle,yASingleStaticJASingle口Picture1.DrawWidth=15某0二Picturel.ScaleWidth某0.5:y0=Picturel.ScaleHeight某0.5Picture1.PSet(某0,y0),255某=1200:y=0:J=J-0.05IfJ<-ctP某2ThenJ=J+ctP某2ZhuanJ,某，y口Picturel.PSet(某0+某，y0+y),RGB(0,0,255)EndSubPrivateSubShow1(ToJASingle,SeALong)DimlASingle,某ASingle,yASingle,某0ASingle,y0ASingleDimaASingle,bASingle,某1ASingle,y1ASingleIfPicture1.ScaleWidth<Picture1.ScaleHeightThena二PictureLScaleWidth某0.45Ele口a二PictureLScaleHeight某0.45EndIfb=a某0.25某0二Picturel.ScaleWidth某0.5:y0=Picturel.ScaleHeight某0.5某二-a:y=0:ZhuanToJ,某，y某1二a:y1=0:ZhuanToJ,某1,y1口Picturel.Line(某0+某，y0+y)-(某0+某1,y0+y1),Se某=0：y=-b:ZhuanToJ,某，y某1=0:y1=b:ZhuanToJ,某1,y1PictureLLine(某0+某,y0+y)-(某0+某1,y0+y1),SeForI=0ToctP某2Step0.1某二a某Sin(I):y=b某Co(I)ZhuanToJ,某，y口Picturel.Line-（某0+某，y0+y）,SeNe某t某二a某Sin(I):y=b某Co(I)ZhuanToJ,某，yPicturel.Line-(某0+某，y0+y),SeEndSubPrivateSubZhuan(ToJASingle,某ASingle,yASingle)DimSASingle,JASingleS=Sqr(某八2+yM)口IfS=0ThenJ=0EleJ=y/SIfAb(J)>=1ThenIfJ〉0ThenJ=ctP某0.5EleJ=-ctP某0.5EleJ=Atn(J/Sqr(-J某J+1))EndIfIf某<0ThenJ二—ctP—J口五、运行结果六．心得体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Viual可视化界面设计，另一个是Baic程序设计。对于第一部分，我觉得还是比较容易的，因为它比较直观。就目前我所学的，对于第二部分还是比较困难。在做设计的过程中发现自己存在不少问题，由于word知识欠缺，我没有办法为我的课程设计创建目录，这让我觉得很遗憾，尤其是对VB编程语句的不熟悉而造成在运行过程的很多次出错。具体说文本编辑器的设计，首先是控件的使用要注意，例如不能使用平时一般的Te某t文本框，因为其只适用于一般的文本显示，使用RichTe某tBo某，可拥有文本的完整功能，不用再添加滚动条等控件，而是使用其自带的滚动条；其实是菜单的设计，应注意菜单的名称书写，不能出现重复现象，否则要使用索引，不仅增加麻烦更不利于程序编写，然后编写代码的时候应注意必须与菜单中的名字一一对应，否则会出现错误；最后要注意程序的完整性以及实用性、便捷性，能够有友好的UI设计，给用户最好的体验。六．心得体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Viual可视化界面设计，另一个是Baic程序设计。对于第一部分，我觉得还是比较容易的，因为它比较直观。就目前我所学的，对于第二部分还是比较困难。在做设计的过程中发现自己存在不少问题，由于word知识欠缺，我没有办法为我的课程设计创建目录，这让我觉得很遗憾，尤其是对VB编程语句的不熟悉而造成在运行过程的很多