VB课设记事本编辑器

1、沈 阳 航 空 航 天 大 学 课程设计学 号 _61班 级 _ 姓 名 樊世兵_ 指导教师 _ 王晓岩_ 2011年 09 月 09 日沈阳航空航天大学课程设计任务书学院：航空航天学部 专业：飞行器设计与工程 班级： 学号：61 题目：模仿记事本程序一、课程设计时间2012年8月27日9月7日（第12周），共计两周，40学时。二、课程设计内容Windows系统的记事本程序是一个纯文本的编辑软件。要求模仿该程序，实现它如下功能：1.文件的新建三、课程设计要求程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 用户界面中的菜单至少应包括“进书”、

2、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录需求分析4设计分析4技术要点5主要界面截图6总结7完整的源程序8参考文献9需求分析制作一个文本编辑器，实现编辑器的主要功能。记事本编辑软件是用来快捷有效的记录用户简单事宜的小工具。它不需要office文档强大功能，它要做的就是操作简单，用户界面小巧简便。我所设计的这款记事本编辑软件正是基于对操作简便的考虑，在

3、不影响用户的运用的情况下，尽可能的追求界面的整洁。对于这一点，这款记事本程序完全符合我的设想。设计分析（1）概述：我所设计的这款记事本编辑软件主要运用了CommonDialog控件和Richtextbox控件的部分功能实现的。如ComonDialog的ShowColor、ShowFont、ShowHelp、ShowOpen、ShowPrinter、ShowSave属性，Richtextbox的Font、Visible、Text、Filename等属性。此外还设及了Msgbox和Inputbox等小工具的使用。在此不一一列出。我所使用的控件等都是使用频率较高的，效果相同的情况下，越简单才越有韵味

4、。（2） 总体设计： 运行模板帮助格式编辑文件 结束 （3）详细设计： 编辑 文件 子过程1、2判断判断继续查找查找全选新建打开保存打印退出粘贴剪切复制删除 格式子过程3判断颜色字体 模板 帮助 子过程4、5判断判断日记信件关于记事本略。框图部分，若干框图。应以传统流程图或N-S框图的方式，表示出各个主要模块的工作过程。技术要点1关于Commondialog控件的应用 在记事本程序的设计当中CommonDialog的应用使得整个设计过程变得简单了许多。Commondialog控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。可将其添加到窗体中并设置其

5、属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog 控件是以图标的形式显示在窗体中。该图标的大小不能改变。 使用指定的方法，CommonDialog 控件能够显示下列对话。方法所显示的对话框ShowOpen显示“打开”对话框ShowSave显示“另存为”对话框ShowColor显示“颜色”对话框ShowFont显示“字体”对话框ShowPrinter显示“打印”或“打印选项”对话框ShowHelp调用 Windows 帮助引擎在对话框接口上单击，CommonDialog 控件将自动提供与上下文有关的帮助

6、：操作系统提供在 Windows 95 帮助弹出中显示的文本。也可以通过设置 Flags属性，在带有 CommonDialog 控件的对话框中显示一个帮助按钮，但是，必须在这个位置提供帮助主题。2 Richtextbox控件的应用文本编辑和阅读是应用软件最常用的功能之一，WPF中提供两个最基本的文本输入控件：TextBox控件和RichTextBox控件。TextBox控件提供简单的文本编辑和阅读支持，可以进行多行显示，也可以设置字体、字号、颜色等信息，但这些信息并不能保存并记录到文件中，TextBox控件的使用相当简单。顾名思义，RichTextBox控件也是用于文本编辑和阅读的，但是它比T

7、extBox功能强大，它可以编辑RTF格式的文档信息。要加载文档信息到RichTextBox通常需要以下几个步骤：（1）准备文件路径、文件类型（如文本格式、RTF格式等）信息，确保文件存在等。（2）获取基于要显示的RichTextBox控件的TextRange对象。（3）通过TextRange用指定的文件格式从文件流加载数据。 主要界面截图图1 记事本编辑器运行界面图2 记事本设计界面图3 运行中运用帮助功能图4 运行界面的查找功能运用 总结 为期两周的VB课程设计已经结束了。在这短暂又紧凑的学习当中，静静冥想，将万千思绪凝于脑海，诉于笔尖，发现收益颇多。首先，我了解到了理论和实践之间隔着一道

8、鸿沟。如果你不主动、单独地跨过去一次，你永远不会知道实践出真知的道理。其次，对于程序设计这门课心中有了更多的了解了。软件的开发无非就是庞烦复杂的众多知识的糅合。千里之行，始于足下。困难的大事情都是由很简单的小事情堆积而来的。就如同，一个个小的控件组合而来就成了一个联系紧密的整体。对于这次运用的控件有一种是首次接触的，但通过多方面的查询和了解，我还是搞明白了它的主要属性。Richtextbox这一控件属性有许多地方和Text文本框的属性用法一致，但有些则有些差别。如RichTextBox控件允许用户输入和编辑文本的同时提供了比普通的TextBox控件更高级的格式特征。 Richtextbox控件

9、提供了数个有用的特征，我们可以在控件中安排文本的格式。要改变文本的格式，必须先选中该文本。只有选中的文本才可以编排字符和段落的格式。有了这些属性，就可以设置文本使用粗体，改变字体的颜色，创建超底稿和子底稿。也可以设置左右缩排或不缩排，从而调整段落的格式。 Richtextbox控件可以打开和保存RTF文件或普通的ASCII文本文件。你可以使用控件的方法(LoadFile和SaveFile)直接读和写文件。这一点是普通Textbox所无法比拟的。 我在应用程序中使用的 CommonDialog 控件，通过其添加到窗体中并设置其属性。控件所显示的对话框由控件的方法确定。在运行时，当相应的方法被调用

10、时，将显示一个对话框或是执行帮助引擎；在设计时，CommonDialog 控件是以图标的形式显示在窗体中。该图标的大小不能改变。 当然现代的软件开发的速度大大的提高了，各类开发软件层出不穷，我们所要掌握的应当是其运用软件的技巧和自主学习的能力。授人以鱼不如授人以渔！完整的源程序Dim pb As String, sfind As String 定义通用变Private Sub About_Click() MsgBox 内容暂缺，请与作者联系, , 注意 帮助提醒End SubPrivate Sub Color_Click() CommonDialog1.CancelError = True O

11、n Error GoTo lxn: CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.ShowFont RichtextBox1.SelColor = CommonDialog1.Color 颜色设置 lxn:End SubPrivate Sub Copy_Click() pb = RichtextBox1.SelText 复制操作End SubPrivate Sub Cut_Click() pb = RichtextBox1.SelText RichtextBox1.SelText = 剪切操作End SubPriva

12、te Sub Delect_Click() RichtextBox1.SelText = 删除操作End SubPrivate Sub Exit_Click() 退出 EndEnd SubPrivate Sub Find_Click() sfind = InputBox(请输入要查找的字、词：, 查找内容, sfind) RichtextBox1.Find sfindEnd Sub 查找操作Private Sub Font_Click() CommonDialog1.CancelError = True On Error GoTo lxn: CommonDialog1.Flags = cdlC

13、FBoth Or cdlCFEffects CommonDialog1.ShowFontRichtextBox1.SelFontName = CommonDialog1.FontNameRichtextBox1.SelFontSize = CommonDialog1.FontSizeRichtextBox1.SelBold = CommonDialog1.FontBold 字体设置RichtextBox1.SelItalic = CommonDialog1.FontBoldRichtextBox1.SelStrikeThru=CommonDialog1.FontStrikethruRichte

14、xtBox1.SelUnderline = CommonDialog1.FontUnderline RichtextBox1.SelColor = CommonDialog1.Colorlxn:End SubPrivate Sub Form_Load() Me.Height = 6000 Me.Width = 9000 RichtextBox1.Top = 20 记事本初设 RichtextBox1.Left = 20 RichtextBox1.Height = ScaleHeight - 40 RichtextBox1.Width = ScaleWidth - 40End SubPrivat

15、e Sub Letter_Click() Msgbox “暂无信息录入”End SubPrivate Sub Mfind_Click() 继续查找 RichtextBox1.SelStart=RichtextBox1.SelStart+ RichtextBoxlength + 1 RichtextBox1.Find sfind, , Len(RichtextBox1)End SubPrivate Sub New_Click() RichtextBox1.Text = FileName = 未命名 用于新建文本框 Me.Caption = FileNameEnd SubPrivate Sub O

16、pen_Click() CommonDialog1.Action = 1 RichtextBox1.Text = Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) 打开文件 Line Input #1, inputdata RichtextBox1.Text = RichtextBox1.Text + inputdata + vbCrLfLoop Close #1End SubPrivate Sub Paste_Click() RichtextBox1.SelText = pb 粘贴操作End SubPrivate Sub Print_Click() CommonDialog1.Action = 5 For i = 1 To CommonDialog1.Copies 打印操作 Printer.Print RichtextBox1.Text Next i Printer.EndDocEnd SubPrivate Sub Save_Click() CommonDialog1.FileName = Default.Txt CommonDialog1.DefaultExt = Txt CommonDialog1.A