《软件设计基础(VB)》课程设计- RTF编辑器.doc

河北理工大学 软件设计基础（VB）课程设计报告设计名称： RTF编辑器 姓 名： 赵子明 学 号： 200906040209 专业班级： 材料成型二班 学 院： 冶金与能源学院 设计时间： 2010年5月10日至2010年6月20日 设计地点： 学校机房 成绩：指导教师评语： 指导教师签字： 年 月 日目 录1.课程设计目的2.课程设计任务与要求3.课程设计说明书4.课程设计成果5.程序调试过程6.设计问题的不足和改进方案7.课程设计心得8.附录9.参考文献1课程设计目的软件设计基础（VB）课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础（VB）课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：1.基本要求：欲完成此设计题目，要求必须掌握VB的几种扩展控件，ToolBar, StatusBar, ImageList和RichEditBox,最后一个部件是的Rich TextBox Control 6.0,其它3个都在Microsoft Common Controls 6.0中,还有一个是讲过的公用对话框控件，但也是扩展控件，需要加载才能使用。设计一个和写字板功能相当的RTF编辑器。l 有完备的菜单和工具条以方便的使用各项功能l 支持打开、保存文件的功能，支持常用的编辑操作和对齐方式l 可以使用系统可用的各种字体和字号，支持彩色文字和图片l 光标所到之处，工具条上的相应按钮能依据当前情况自动调整l 设置一个状态条，以显示当前的编辑状态2.创新要求：在基本要求达到后，进行创新设计，如实现与WORD类似的强力查找和替换功能。3课程设计说明书功能描述有完备的菜单和工具条以方便的使用各项功能，支持打开、保存文件的功能，支持常用的编辑操作和对齐方式，可以使用系统可用的各种字体和字号，支持彩色文字和图片。光标所到之处，工具条上的相应按钮能依据当前情况自动调整，设置一个状态条，以显示当前的编辑状态。概要设计扩展控件的正确增加与使用用代码使工具条中的按钮进行click事件正确的添加选色窗体和查找窗体，并实现对文本文字的查找使编辑器实现对文件的保存，打开等功能。主要写模块说明，模块结构图，系统流程图（例N-S流程图）（五号，宋体）模块结构图： 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系（如下图）。简易文件系统图形处理文件管理文件读写移动复制加工图片显示图片绘制图形读文件写文件浏览简易文件系统功能框图 详细设计 总体流程图：各功能模块流程图：输入文本文字触发toolbar1-buttonclick事件粘贴帮助新建打开保存查找剪切切复制右对齐左对齐居中斜体粗体颜色删除代码实现详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共10个窗体：form1form10详细如下：form1、首页作用：“进入应用程序”。所用控件：5个标签，4个时钟。设计思路：用时钟控制label1、2,3,4的运动。单击label1,2,5和命令选择器可进入后面窗体，label3.无链接窗体，无label4 。详细内容：属性较特殊的需要说明。代码如下：Private Sub Form_Load()添加字号，字体Dim i As Integer, a As VariantFor i = 0 To Screen.FontCount - 1 Combo1.AddItem Screen.Fonts(i)Next ia = Array(8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 26, 28, 36, 48, 72)For i = 0 To 15Combo2.AddItem a(i)Next i使状态条显示当前时间和日期StatusBar1.Panels.Item(6) = DateStatusBar1.Panels.Item(7) = TimeStatusBar1.Panels.Item(2) = 行号：End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)在文件关闭时提示是否保存Dim aa = MsgBox(文件尚未保存，是否保存？, vbYesNoCancel)If a = vbYes ThenCommonDialog1.Filter = txt文件(*.txt)|*.txt|bmp文(*.bmp)|*.bmp|jpg文件(*.jpg)|.jpgMe.CommonDialog1.ShowSaveRichTextBox1.SaveFile CommonDialog1.FileNameElseIf a = vbCancel ThenCancel = 1End IfEnd IfEnd Sub SelBold 的返回值为 0, -1, 或 Null. 如果是 Null, 那么 MixedState property to True. Select Case RichTextBox1.SelBold Case 0 Not bold. Toolbar1.Buttons(jia cu).Value = tbrUnpressed Case -1 Bold. Toolbar1.Buttons(jia cu).Value = tbrPressed Case Else Mixed state. Toolbar1.Buttons(jia cu).MixedState = True End Select SelItalic 的返回值为 0, -1, or Null. If its Null, 那么 MixedState property to True. Select Case RichTextBox1.SelItalic Case 0 Not italic. Toolbar1.Buttons(xie ti).Value = tbrUnpressed Case -1 Italic. Toolbar1.Buttons(xie ti).Value = tbrPressed Case Else Mixed State. Toolbar1.Buttons(xie ti).MixedState = True End Select SelItalic 的返回值为 0, -1, or Null. If its Null, 那么 MixedState property to True. Select Case RichTextBox1.SelUnderline Case 0 Not italic. Toolbar1.Buttons(xia hua xian).Value = tbrUnpressed Case -1 Italic. Toolbar1.Buttons(xia hua xian).Value = tbrPressed Case Else Mixed State. Toolbar1.Buttons(xia hua xian).MixedState = True End Select 当段落格式改变时Toolbar按钮显示相应的状态 Select Case RichTextBox1.SelAlignment Case Is = rtfLeft 0 Toolbar1.Buttons(zuo dui qi).Value = tbrPressed Case Is = rtfRight 1 Toolbar1.Buttons(you dui qi).Value = tbrPressed Case Is = rtfCenter 2 Toolbar1.Buttons(ju zhong).Value = tbrPressed Case Else Null - No buttons are shown in the up position. Toolbar1.Buttons(zuo dui qi).Value = tbrUnpressed Toolbar1.Buttons(you dui qi).Value = tbrUnpressed Toolbar1.Buttons(ju zhong).Value = tbrUnpressed End Select End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Dim answer As IntegerSelect Case Button.Tag段落沿右边距对齐Case you dui qiRichTextBox1.SelAlignment = rtfRight 段落沿左边距对齐Case zuo dui qiRichTextBox1.SelAlignment = rtfLeft段落居中对齐。Case ju zhongRichTextBox1.SelAlignment = rtfCenter 加粗Case jia cu RichTextBox1.SelBold = Not RichTextBox1.SelBold 斜体Case xie tiRichTextBox1.SelItalic = Not RichTextBox1.SelItalic下画线Case xia hua xianRichTextBox1.SelUnderline = Not RichTextBox1.SelUnderline复制Case fu zhiClipboard.SetText RichTextBox1.SelText剪切Case jianqieClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = 粘贴Case nian tieIf Clipboard.GetFormat(vbCFText) = True ThenRichTextBox1.SelText = Clipboard.GetTextEnd If打开Case da kaiCommonDialog1.Filter = txt文件(*.txt)|*.txt|bmp文(*.bmp)|*.bmp|jpg文件(*.jpg)|.jpgMe.CommonDialog1.ShowOpenRichTextBox1.LoadFile CommonDialog1.FileName保存Case bao cunCommonDialog1.Filter = txt文件(*.txt)|*.txt|bmp文(*.bmp)|*.bmp|jpg文件(*.jpg)|.jpgMe.CommonDialog1.ShowSaveRichTextBox1.SaveFile CommonDialog1.FileName新建Case xin jiananswer = MsgBox(您是否要保存, vbYesNoCancel, 保存吗？)If answer = vbYes ThenCommonDialog1.Filter = txt文件(*.txt)|*.txt|bmp文(*.bmp)|*.bmp|jpg文件(*.jpg)|.jpgMe.CommonDialog1.ShowSaveRichTextBox1.SaveFile CommonDialog1.FileNameRichTextBox1.TextRTF = ElseIf answer = vbNo ThenRichTextBox1.TextRTF = ElseEnd If删除Case shan chuRichTextBox1.SelText = 颜色Case yan seMe.CommonDialog1.ShowColorRichTextBox1.SelColor = CommonDialog1.Color查找Case cha zhaoForm2.ShowEnd SelectEnd Sub4课程设计成果运行结果（可用屏幕抓图的方法说明）（五号，宋体）(多页)5.程序调试过程写出程序调试步骤，及遇到的问题。6.设计问题的不足和改进方案1设计方案要完善的地方字体可改变的颜色不够完全可实现对查找的文字进行替换可在工具栏中添加画图功能2. 目前存在的问题使按钮显示按下状态实现对图片的插7.课程设计心得通过对RTF编辑器VB程序的制作，使我全面的了解了工具栏，状态栏，公用对话框，并学会了加载和使用方法。让我对VB这门课程有了深入的了解，并认识了其在日常生活中的运用的正确性。在这些天的辛苦的编程工作中，使我的自学能力有增加，使我明白了一个程序的来之不易，要想编一个完整的程序，还是需要我们有全面的编程只是，在下一步 ，我会更全面的学习VB的各种知识。8.附录有些需要说明的部分。如添加ActiveX等非不标准部件，或使用文件操作时对路径有特殊要求等。若没有特殊要求，此处为“无”。1、 必须掌握VB的几种扩展控件，ToolBar, StatusBar, ImageList和RichEditBox,最后一个部件是的Rich TextBox Control 6.0,2、 本题中需要使用5个扩展控件，分别是：工具条ToolBar,状态条 StatusBar,图象列表 ImageList，超级文本框RichEditBox, 公用对话框控件(Common Dialog，用于取得打开和保存文件的文件名)。3、9.参考文献1、 陈明锐.Visual Basic程序设计及应用教程.北京:高等教育出版社,2008.12