VB课设记事本编辑器

沈阳航空航天大学课程设计学号_2011040303061班级_14030302_____姓名樊世兵_____指导教师_王晓岩_____2011年09月09日沈阳航空航天大学课程设计任务书学院：航空航天学部专业：飞行器设计与工程班级：14030302学号：2011040303061题目：模仿记事本程序一、课程设计时间2012年8月27日~9月7日（第1~2周），共计两周，40学时。二、课程设计内容Windows系统的记事本程序是一个纯文本的编辑软件。要求模仿该程序，实现它如下功能：1.文件的新建三、课程设计要求程序质量：贯彻事件驱动的程序设计思想。用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩六、教师评语沈阳航空航天大学设计用纸第3页，共23页目录需求分析.................................................................................4设计分析.................................................................................4技术要点.................................................................................8主要界面截图........................................................................11总结.......................................................................................14完整的源程序.......................................................................16参考文献...............................................................................23沈阳航空航天大学设计用纸第4页，共23页需求分析制作一个文本编辑器，实现编辑器的主要功能。记事本编辑软件是用来快捷有效的记录用户简单事宜的小工具。它不需要office文档强大功能，它要做的就是操作简单，用户界面小巧简便。我所设计的这款记事本编辑软件正是基于对操作简便的考虑，在不影响用户的运用的情况下，尽可能的追求界面的整洁。对于这一点，这款记事本程序完全符合我的设想。设计分析（1）概述：我所设计的这款记事本编辑软件主要运用了CommonDialog控件和Richtextbox控件的部分功能实现的。如ComonDialog的ShowColor、ShowFont、ShowHelp、ShowOpen、ShowPrinter、ShowSave属性，Richtextbox的Font、Visible、Text、Filename等属性。此外还设及了Msgbox和Inputbox等小工具的使用。在此不一一列出。我所使用的控件等都是使用频率较高的，效果相同的情况下，越简单才沈阳航空航天大学设计用纸第5页，共23页越有韵味。（2）总体设计：（3）详细设计：文件编辑格式帮助模板运行结束沈阳航空航天大学设计用纸第6页，共23页文件判断新建打开保存打印退出编辑判断剪切全选复制删除粘贴查找继续查找子过程1、2格式判断字体颜色子过程3沈阳航空航天大学设计用纸第7页，共23页略。框图部分，若干框图。应以传统流程图或N-S框图的方式，表示出各个主要模块的工作过程。模板帮助关于记事本日记信件判断判断子过程4、5沈阳航空航天大学设计用纸第8页，共23页技术要点1关于Commondialog控件的应用在记事本程序的设计当中CommonDialog的应用使得整个设计过程变得简单了许多。Commondialog控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。可将其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog控件是以图标的形式显示在窗体中。该图标的大小不能改变。使用指定的方法，CommonDialog控件能够显示下列对话。方法所显示的对话框ShowOpen显示“打开”对话框ShowSave显示“另存为”对话框沈阳航空航天大学设计用纸第9页，共23页ShowColor显示“颜色”对话框ShowFont显示“字体”对话框ShowPrinter显示“打印”或“打印选项”对话框ShowHelp调用Windows帮助引擎在对话框接口上单击，CommonDialog控件将自动提供与上下文有关的帮助：操作系统提供在Windows95帮助弹出中显示的文本。也可以通过设置Flags属性，在带有CommonDialog控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。2Richtextbox控件的应用沈阳航空航天大学设计用纸第10页，共23页文本编辑和阅读是应用软件最常用的功能之一，WPF中提供两个最基本的文本输入控件：TextBox控件和RichTextBox控件。TextBox控件提供简单的文本编辑和阅读支持，可以进行多行显示，也可以设置字体、字号、颜色等信息，但这些信息并不能保存并记录到文件中，TextBox控件的使用相当简单。顾名思义，RichTextBox控件也是用于文本编辑和阅读的，但是它比TextBox功能强大，它可以编辑RTF格式的文档信息。要加载文档信息到RichTextBox通常需要以下几个步骤：（1）准备文件路径、文件类型（如文本格式、RTF格式等）信息，确保文件存在等。（2）获取基于要显示的RichTextBox控件的TextRange对象。（3）通过TextRange用指定的文件格式从文件流加载数据。沈阳航空航天大学设计用纸第11页，共23页主要界面截图图1记事本编辑器运行界面沈阳航空航天大学设计用纸第12页，共23页图2记事本设计界面沈阳航空航天大学设计用纸第13页，共23页图3运行中运用帮助功能图4运行界面的查找功能运用沈阳航空航天大学设计用纸第14页，共23页总结为期两周的VB课程设计已经结束了。在这短暂又紧凑的学习当中，静静冥想，将万千思绪凝于脑海，诉于笔尖，发现收益颇多。首先，我了解到了理论和实践之间隔着一道鸿沟。如果你不主动、单独地跨过去一次，你永远不会知道实践出真知的道理。其次，对于程序设计这门课心中有了更多的了解了。软件的开发无非就是庞烦复杂的众多知识的糅合。千里之行，始于足下。困难的大事情都是由很简单的小事情堆积而来的。就如同，一个个小的控件组合而来就成了一个联系紧密的整体。对于这次运用的控件有一种是首次接触的，但通过多方面的查询和了解，我还是搞明白了它的主要属性。Richtextbox这一控件属性有许多地方和Text文本框的属性用法一致，但有些则有些差别。如RichTextBox控件允许用户输入和编辑文本的同时提供了比普通的TextBox控件更高级的格式特征。Richtextbox控件提供了数个有用的特征，我们可以在控件中安排文本的格式。要改变文本的格式，必沈阳航空航天大学设计用纸第15页，共23页须先选中该文本。只有选中的文本才可以编排字符和段落的格式。有了这些属性，就可以设置文本使用粗体，改变字体的颜色，创建超底稿和子底稿。也可以设置左右缩排或不缩排，从而调整段落的格式。Richtextbox控件可以打开和保存RTF文件或普通的ASCII文本文件。你可以使用控件的方法(LoadFile和SaveFile)直接读和写文件。这一点是普通Textbox所无法比拟的。我在应用程序中使用的CommonDialog控件，通过其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog控件是以图标的形式显示在窗体中。该图标的大小不能改变。当然现代的软件开发的速度大大的提高了，各类开发软件层出不穷，我们所要掌握的应当是其运用软件的技巧和自主学习的能力。授人以鱼不如授人以渔！沈阳航空航天大学设计用纸第16页，共23页完整的源程序DimpbAsString,sfindAsString'定义通用变PrivateSubAbout_Click()MsgBox内容暂缺，请与作者联系,,注意'帮助提醒EndSubPrivateSubColor_Click()CommonDialog1.CancelError=TrueOnErrorGoTolxn:CommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.ShowFontRichtextBox1.SelColor=CommonDialog1.Color'颜色设置lxn:EndSub沈阳航空航天大学设计用纸第17页，共23页PrivateSubCopy_Click()pb=RichtextBox1.SelText'复制操作EndSubPrivateSubCut_Click()pb=RichtextBox1.SelTextRichtextBox1.SelText='剪切操作EndSubPrivateSubDelect_Click()RichtextBox1.SelText='删除操作EndSubPrivateSubExit_Click()'退出EndEndSubPrivateSubFind_Click()sfind=InputBox(请输入要查找的字、词：,查找内容沈阳航空航天大学设计用纸第18页，共23页,sfind)RichtextBox1.FindsfindEndSub'查找操作PrivateSubFont_Click()CommonDialog1.CancelError=TrueOnErrorGoTolxn:CommonDialog1.Flags=cdlCFBothOrcdlCFEffectsCommonDialog1.ShowFontRichtextBox1.SelFontName=CommonDialog1.FontNameRichtextBox1.SelFontSize=CommonDialog1.FontSizeRichtextBox1.SelBold=CommonDialog1.FontBold'字体设置RichtextBox1.SelItalic=CommonDialog1.FontBoldRichtextBox1.SelStrikeThru=CommonDialog1.FontStrikethruRichtextBox1.SelUnderline=CommonDialog1.FontUnderlineRichtextBox1.SelColor=CommonDialog1.Color沈阳航空航天大学设计用纸第19页，共23页lxn:EndSubPrivateSubForm_Load()Me.Height=6000Me.Width=9000RichtextBox1.Top=20'记事本初设RichtextBox1.Left=20RichtextBox1.Height=ScaleHeight-40RichtextBox1.Width=ScaleWidth-40EndSubPrivateSubLetter_Clic