模仿记事本.docx

1、模仿记事本沈 阳 航 空 航 天 大 学 课程设计 学 号 2009040301028班 级 94030101 姓 名 魏光浩指导教师 刘学平2010年 3月 18 日沈阳航空航天大学课程设计任务书学院：航宇宇航工程学院 专业：飞行器制造 班级：94030101学号:2009040301028 题目:模仿记事本一、课程设计时间2011年3月7日11日（第1周），共计1周。二、课程设计内容Windows的记事本程序是一个纯文本的编辑软件。要求模仿该程序，实现如下基本功能：文件的保存与打开、文本的编辑(复制、剪切、粘贴)、格式设置（包括：字体、字形、大小、颜色），其它功能可选做。三、课程设计要求程

2、序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书： 课设结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：_ 学生签名：_五、成绩六、教师评语目 录一、需求分析 4二、设计分析 5三、关键技术 7四、总结 10五、完整的源程序 10六、参考文献 13一、需求分析模拟文本编辑软件，主要指“文本编辑”和“文件打开与保存”和“文本字体与颜色”3种功能。由于文本的编辑等功能要求简明扼要，与菜单管理器的联系较大。要求：1 在菜单管理

3、其中编辑菜单，以“文件”和“编辑”“格式”3种功能为主。此菜单如下定义：文件打开保存，复制，剪切，粘贴，字体，颜色。能够将文本文档保存于打开。能够实现文本编辑的功能。能够随时改变字体，字号，和颜色。二、设计分析（1） 基本原理：建立程序设计与菜单管理器的连接，用Action属性实现文件功能，用简单的语句事先编辑与格式的功能。（2） 总体设计：图1 总体设计（3）详细设计：图1 详细设计（4）菜单管理器设计：菜单管理器的设计是总体设计阶段非常重要的环节，菜单管理器的变化会造成编码的改动，所以必须认真设计数据库结构后再进行编码，从而避免无谓的重复工作。本系统的功能包括文件、编辑以及格式三、关键技术

4、（1）采用菜单管理器制作菜单。 ( 2 ) 建立如下界面 ，运用Ation属性编辑打开与保存的程序 Private Sub Open_Click() CommonDialog1.Action = 1 Text1.Text = Open CommonDialog1.FileName For Input As #1 打开文件进行读操作 Do While Not EOF(1) Line Input #1, inputdata 读一行数据 Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 关闭文件 End Sub Private Su

5、b Save_Click()CommonDialog1.FileName = Defaut.Txt 设置默认文件名CommonDialog1.DefaultExt = Txt 设置默认扩展名CommonDialog1.Action = 2 打开保存对话框Open CommonDialog1.FileName For Output As #1 打开文件供写入数据Print #1, Text1.TextClose #1End Sub 四、总结 这次课设我的题目是要求模仿记事本程序，通过这次课设让我了解了VB中菜单管理器的应用以及Action属性的应用，并能运用其他语句编写简单的程 在课设过程中，我

6、遇到了重重困难，通过老师的指点以及同学的帮助我完成了这次任务。同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，所以，学好VB是社会发展的需要。五、完整的源程序Dim stst$Private Sub Copy_Click() stst = Text1.SelTextEnd SubPrivate Sub Cut_Click() Text1.SelText = End SubPrivate Sub er_Click() Text1.FontSize = 20End SubPrivate Sub hs_Click() Text1.ForeColor = &HFF&End

7、 SubPrivate Sub ht_Click() Text1.FontName = 黑体End SubPrivate Sub ls_Click() Text1.ForeColor = &HFF00&End SubPrivate Sub Open_Click() CommonDialog1.Action = 1 Text1.Text = Open CommonDialog1.FileName For Input As #1 打开文件进行读操作 Do While Not EOF(1) Line Input #1, inputdata 读一行数据 Text1.Text = Text1.Text

8、+ inputdata + vbCrLf Loop Close #1 关闭文件 End SubPrivate Sub Paste_Click() Text1 = Text1 + ststEnd SubPrivate Sub Save_Click()CommonDialog1.FileName = Defaut.Txt 设置默认文件名CommonDialog1.DefaultExt = Txt 设置默认扩展名CommonDialog1.Action = 2 打开保存对话框Open CommonDialog1.FileName For Output As #1 打开文件供写入数据Print #1,

9、 Text1.TextClose #1End SubPrivate Sub sh_Click() Text1.FontSize = 30End SubPrivate Sub shsh_Click() Text1.FontSize = 40End SubPrivate Sub st_Click() Text1.FontName = 宋体End SubPrivate Sub tc_Click() EndEnd Sub六、参考文献1 刘瑞新Visual Basic程序设计教程北京：机械工业出版社，20032 龚沛曾杨志强陆慰民Visual Basic程序设计教程高等教育出版社，20093 龚沛曾杨志强陆慰民Visual Basic程序设计-实验指导与测试高等教育出版社，2009