模仿记事本.docx
《模仿记事本.docx》由会员分享，可在线阅读，更多相关《模仿记事本.docx（8页珍藏版）》请在冰豆网上搜索。
模仿记事本
沈阳航空航天大学
课程设计
学号2009040301028
班级94030101
姓名魏光浩
指导教师刘学平
2010年3月18日
沈阳航空航天大学
课程设计任务书
学院：
航宇宇航工程学院专业：
飞行器制造班级：
94030101
学号:
2009040301028题目:
模仿记事本
一、课程设计时间
2011年3月7日~11日（第1周），共计1周。
二、课程设计内容
Windows的记事本程序是一个纯文本的编辑软件。
要求模仿该程序，实现如下基本功能：
文件的保存与打开、文本的编辑（复制、剪切、粘贴）、格式设置（包括：
字体、字形、大小、颜色），其它功能可选做。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课设结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
一、需求分析4
二、设计分析5
三、关键技术7
四、总结10
五、完整的源程序10
六、参考文献13
一、需求分析
模拟文本编辑软件，主要指“文本编辑”和“文件打开与保存”和“文本字体与颜色”3种功能。
由于文本的编辑等功能要求简明扼要，与菜单管理器的联系较大。
要求：
1在菜单管理其中编辑菜单，以“文件”和“编辑”
“格式”3种功能为主。
此菜单如下定义：
文件打开保存，复制，剪切，粘贴，字体，颜色。
②能够将文本文档保存于打开。
③能够实现文本编辑的功能。
④能够随时改变字体，字号，和颜色。
二、设计分析
（1）基本原理：
建立程序设计与菜单管理器的连接，用Action属性实现文件功能，用简单的语句事先编辑与格式的功能。
（2）总体设计：
图1总体设计
（3）详细设计：
图1详细设计
（4）菜单管理器设计：
菜单管理器的设计是总体设计阶段非常重要的环节，菜单管理器的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。
本系统的功能包括文件、编辑以及格式
三、关键技术
（1）采用菜单管理器制作菜单。
（2）建立如下界面，运用Ation属性编辑打开与保存的程序
PrivateSubOpen_Click（）
CommonDialog1.Action=1
Text1.Text=""
OpenCommonDialog1.FileNameForInputAs#1'打开文件进行读操作
DoWhileNotEOF
（1）
LineInput#1,inputdata'读一行数据
Text1.Text=Text1.Text+inputdata+vbCrLf
Loop
Close#1'关闭文件
EndSub
PrivateSubSave_Click（）
CommonDialog1.FileName="Defaut.Txt"'设置默认文件名
CommonDialog1.DefaultExt="Txt"'设置默认扩展名
CommonDialog1.Action=2'打开保存对话框
OpenCommonDialog1.FileNameForOutputAs#1'打开文件供写入数据
Print#1,Text1.Text
Close#1
EndSub
四、总结
这次课设我的题目是要求模仿记事本程序，通过这次课设让我了解了VB中菜单管理器的应用以及Action属性的应用，并能运用其他语句编写简单的程
在课设过程中，我遇到了重重困难，通过老师的指点以及同学的帮助我完成了这次任务。
同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。
五、完整的源程序
Dimstst$
PrivateSubCopy_Click（）
stst=Text1.SelText
EndSub
PrivateSubCut_Click（）
Text1.SelText=""
EndSub
PrivateSuber_Click（）
Text1.FontSize=20
EndSub
PrivateSubhs_Click（）
Text1.ForeColor=&HFF&
EndSub
PrivateSubht_Click（）
Text1.FontName="黑体"
EndSub
PrivateSubls_Click（）
Text1.ForeColor=&HFF00&
EndSub
PrivateSubOpen_Click（）
CommonDialog1.Action=1
Text1.Text=""
OpenCommonDialog1.FileNameForInputAs#1'打开文件进行读操作
DoWhileNotEOF
（1）
LineInput#1,inputdata'读一行数据
Text1.Text=Text1.Text+inputdata+vbCrLf
Loop
Close#1'关闭文件
EndSub
PrivateSubPaste_Click（）
Text1=Text1+stst
EndSub
PrivateSubSave_Click（）
CommonDialog1.FileName="Defaut.Txt"'设置默认文件名
CommonDialog1.DefaultExt="Txt"'设置默认扩展名
CommonDialog1.Action=2'打开保存对话框
OpenCommonDialog1.FileNameForOutputAs#1'打开文件供写入数据
Print#1,Text1.Text
Close#1
EndSub
PrivateSubsh_Click（）
Text1.FontSize=30
EndSub
PrivateSubshsh_Click（）
Text1.FontSize=40
EndSub
PrivateSubst_Click（）
Text1.FontName="宋体"
EndSub
PrivateSubtc_Click（）
End
EndSub
六、参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
[2]龚沛曾．杨志强．陆慰民《VisualBasic程序设计教程》．高等教育出版社，2009
[3]龚沛曾．杨志强．陆慰民《VisualBasic程序设计-----实验指导与测试》．高等教育出版社，2009
升级会员 