还剩13页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
河北理工大学《软件设计基础(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的几种扩展控件,ToolBarStatu__arI__geList和RichEditBox最后一个部件是的RichTextBoxControl
6.0其它3个都在MicrosoftCommonControls
6.0中还有一个是讲过的公用对话框控件,但也是扩展控件,需要加载才能使用设计一个和写字板功能相当的RTF编辑器有完备的菜单和工具条以方便的使用各项功能支持打开、保存文件的功能,支持常用的编辑操作和对齐方式可以使用系统可用的各种字体和字号,支持彩色文字和__光标所到之处,工具条上的相应按钮能依据当前情况自动调整设置一个状态条,以显示当前的编辑状态
2.创新要求在基本要求达到后,进行创新设计,如实现与WORD类似的强力查找和替换功能3.课程设计说明书⑴功能描述有完备的菜单和工具条以方便的使用各项功能,支持打开、保存文件的功能,支持常用的编辑操作和对齐方式,可以使用系统可用的各种字体和字号,支持彩色文字和__光标所到之处,工具条上的相应按钮能依据当前情况自动调整,设置一个状态条,以显示当前的编辑状态⑵概要设计
①扩展控件的正确增加与使用
②用代码使工具条中的按钮进行click__
③正确的添加选色窗体和查找窗体,并实现对文本文字的查找
④使编辑器实现对文件的保存,打开等功能主要写模块说明,模块结构图,系统流程图(例N-S流程图)(五号,宋体)模块结构图根据功能分析,建立系统的体系结构,即将整个系统分解成若干子模块,用框图表示各功能模块之间的接口关系(如下图)简易文件系统功能框图⑶详细设计总体流程图各功能模块流程图⑷代码实现详细说明各功能模块的实现过程,所用到的算法、技巧等(附上代码)如本系统总共10个窗体form1~form10详细如下form
1、首页作用“进入应用程序”所用控件5个标签,4个时钟设计思路用时钟控制label
1、234的运动单击label125和命令选择器可进入后面窗体,label
3.无链接窗体,无label4详细内容属性较特殊的需要说明代码如下PrivateSubForm_Load添加字号,字体DimiAsIntegeraAsVariantFori=0ToScreen.FontCount-1Combo
1.AddItemScreen.FontsiNextia=Array891011121416182022242628364872Fori=0To15Combo
2.AddItemaiNexti使状态条显示当前时间和日期Statu__ar
1.Panels.Item6=DateStatu__ar
1.Panels.Item7=TimeStatu__ar
1.Panels.Item2=行号EndSubPrivateSubForm_QueryUnloadCan__lAsIntegerUnloadModeAsInteger在文件关闭时提示是否保存Dimaa=MsgBox文件尚未保存,是否保存?vbYesNoCan__lIfa=vbYesThenCommonDialog
1.Filter=___文件*.___|*.___|bmp文*.bmp|*.bmp|jpg文件*.jpg|.jpgMe.CommonDialog
1.ShowS__eRichTextBox
1.S__eFileCommonDialog
1.FileNameElseIfa=vbCan__lThenCan__l=1EndIfEndIfEndSubSelBold的返回值为0-1或Null.如果是Null那么MixedStatepropertytoTrue.SelectCaseRichTextBox
1.SelBoldCase0Notbold.Toolbar
1.Buttonsjiacu.Value=tbrUnpressedCase-1Bold.Toolbar
1.Buttonsjiacu.Value=tbrPressedCaseElseMixedstate.Toolbar
1.Buttonsjiacu.MixedState=TrueEndSelectSelItalic的返回值为0-1orNull.IfitsNull那么MixedStatepropertytoTrue.SelectCaseRichTextBox
1.SelItalicCase0Notitalic.Toolbar
1.Buttonsxieti.Value=tbrUnpressedCase-1Italic.Toolbar
1.Buttonsxieti.Value=tbrPressedCaseElseMixedState.Toolbar
1.Buttonsxieti.MixedState=TrueEndSelectSelItalic的返回值为0-1orNull.IfitsNull那么MixedStatepropertytoTrue.SelectCaseRichTextBox
1.SelUnderlineCase0Notitalic.Toolbar
1.Buttonsxiahuaxian.Value=tbrUnpressedCase-1Italic.Toolbar
1.Buttonsxiahuaxian.Value=tbrPressedCaseElseMixedState.Toolbar
1.Buttonsxiahuaxian.MixedState=TrueEndSelect当段落格式改变时Toolbar按钮显示相应的状态SelectCaseRichTextBox
1.SelAlig__entCaseIs=rtfLeft0Toolbar
1.Buttonszuoduiqi.Value=tbrPressedCaseIs=rtfRight1Toolbar
1.Buttonsyouduiqi.Value=tbrPressedCaseIs=rtf__nter2Toolbar
1.Buttonsjuzhong.Value=tbrPressedCaseElseNull--Nobuttonsareshownintheupposition.Toolbar
1.Buttonszuoduiqi.Value=tbrUnpressedToolbar
1.Buttonsyouduiqi.Value=tbrUnpressedToolbar
1.Buttonsjuzhong.Value=tbrUnpressedEndSelectEndSubPrivateSubToolbar1_ButtonClickByValButtonAsMSComctlLib.ButtonDimanswerAsIntegerSelectCaseButton.Tag段落沿右边距对齐CaseyouduiqiRichTextBox
1.SelAlig__ent=rtfRight段落沿左边距对齐CasezuoduiqiRichTextBox
1.SelAlig__ent=rtfLeft段落居中对齐CasejuzhongRichTextBox
1.SelAlig__ent=rtf__nter加粗CasejiacuRichTextBox
1.SelBold=NotRichTextBox
1.SelBold斜体CasexietiRichTextBox
1.SelItalic=NotRichTextBox
1.SelItalic下画线CasexiahuaxianRichTextBox
1.SelUnderline=NotRichTextBox
1.SelUnderline__CasefuzhiClipboard.SetTextRichTextBox
1.SelText剪切CasejianqieClipboard.SetTextRichTextBox
1.SelTextRichTextBox
1.SelText=粘贴CaseniantieIfClipboard.GetFor__tvbCFText=TrueThenRichTextBox
1.SelText=Clipboard.GetTextEndIf打开CasedakaiCommonDialog
1.Filter=___文件*.___|*.___|bmp文*.bmp|*.bmp|jpg文件*.jpg|.jpgMe.CommonDialog
1.ShowOpenRichTextBox
1.LoadFileCommonDialog
1.FileName保存CasebaocunCommonDialog
1.Filter=___文件*.___|*.___|bmp文*.bmp|*.bmp|jpg文件*.jpg|.jpgMe.CommonDialog
1.ShowS__eRichTextBox
1.S__eFileCommonDialog
1.FileName新建Casexinjiananswer=MsgBox您是否要保存vbYesNoCan__l保存吗?Ifanswer=vbYesThenCommonDialog
1.Filter=___文件*.___|*.___|bmp文*.bmp|*.bmp|jpg文件*.jpg|.jpgMe.CommonDialog
1.ShowS__eRichTextBox
1.S__eFileCommonDialog
1.FileNameRichTextBox
1.TextRTF=ElseIfanswer=vbNoThenRichTextBox
1.TextRTF=ElseEndIf删除CaseshanchuRichTextBox
1.SelText=颜色CaseyanseMe.CommonDialog
1.ShowColorRichTextBox
1.SelColor=CommonDialog
1.Color查找CasechazhaoForm
2.ShowEndSelectEndSub4.课程设计成果运行结果(可用屏幕抓图的方法说明)(五号,宋体)多页
5.程序调试过程写出程序调试步骤,及遇到的问题
6.设计问题的不足和改进方案1.设计方案要完善的地方
①字体可改变的颜色不够完全
②可实现对查找的文字进行替换
③可在工具栏中添加画图功能
2.目前存在的问题
①使按钮显示按下状态
②实现对__的插
7.课程设计心得通过对RTF编辑器VB程序的制作,使我全面的了解了工具栏,状态栏,公用对话框,并学会了加载和使用方法让我对VB这门课程有了深入的了解,并认识了其在日常生活中的运用的正确性在这些天的辛苦的编程工作中,使我的自学能力有增加,使我明白了一个程序的来之不易,要想编一个完整的程序,还是需要我们有全面的编程只是,在下一步,我会更全面的学习VB的各种知识
8.附录有些需要说明的部分如添加ActiveX等非不标准部件,或使用文件操作时对路径有特殊要求等若没有特殊要求,此处为“无”必须掌握VB的几种扩展控件,ToolBarStatu__arI__geList和RichEditBox最后一个部件是的RichTextBoxControl
6.0本题中需要使用5个扩展控件,分别是工具条ToolBar状态条Statu__ar图象列表I__geList,超级文本框RichEditBox公用对话框控件CommonDialog,用于取得打开和保存文件的文件名
9.____陈明锐.VisualBasic程序设计及应用教程.北京:高等教育出版社
2008.12成绩简易文件系统图形处理文件管理文件读写移动复制____显示__绘制图形读文件写文件浏览输入文本文字触发toolbar1-buttonclick__粘贴帮助新建打开保存查找剪切切__右对齐左对齐居中斜体粗体颜色删除。