VB课程设计报告 26.docx
《VB课程设计报告 26.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告 26.docx（11页珍藏版）》请在冰点文库上搜索。
VB课程设计报告26
沈阳航空航天大学
课程设计
学号__
班级____
姓名_____
指导教师______
2011年3月15日
沈阳航空航天大学
课程设计任务书
学院：
机电工程专业：
机械设计制造及其自动化班级：
04060101
学号：
2010040601019题目：
模仿记事本程序
一、课程设计时间
2012年3月5~9日（第1周），共计1周，20学时。
二、课程设计内容
Windows系统的记事本程序是一个纯文本的编辑软件。
要求模仿该程序，实现它的如下基本功能：
文本的编辑、文件的保存与打开、文字的字体（包括字形、大小、颜色）的设置；其它功能则不要求。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课程结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点6
主要界面截图8
总结9
完整的源程序10
参考文献13
需求分析
模仿记事本,即模仿记事本对文本输入，更改，打开，保存，以及对所输入文字进行编辑的程序。
要求：
1、界面简单易操作
2、能实现文件的打开，保存、文本的编辑，对文字的字体（包括字形、大小、颜色）的设置
设计分析
（1）概述：
在程序设计上主要使用了用户界面设计的技术，包括菜单编辑，弹出式菜单的设计，通用对话框的使用，以及文件的保存与读取
（2）总体设计：
（3）详细设计：
技术要点
1关于程序的加载，以及对文本框大小定义
PrivateSubForm_Load（）
Me.Height=6000
Me.Width=9000
EndSub
PrivateSubForm_Resize（）利用resize事件调整文本框大小
OnErrorResumeNext'
text1.Move0,0,ScaleWidth,ScaleHeight
EndSub
2右键弹出式菜单
PrivateSubtext1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2ThenPopupMenuedit,vbpopupmenucenteralifgn
EndSub
3利用通用对话框和文件读写实现文件的保存与打开
PrivateSubopen_Click（）打开
OnErrorResumeNextCommonDialog1.Action=1text1.Text=""
OpenCommonDialog1.FileNameForInputAs#1
DoWhileNotEOF
（1）
LineInput#1,inputdate
text1.Text=text1.Text+inputdate+vbCrLf
Loop
Close#1
EndSub
PrivateSubsavedate_Click（）保存
OnErrorResumeNext
CommonDialog1.FileName="新建文本文件.Txt"
CommonDialog1.DefaultExt="文本文档（*.txt）"
CommonDialog1.Action=2
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,text1.Text
Close#1
EndSub
4利用sendkeys语句完成撤销，粘贴，复制，剪切等功能
PrivateSubcopy_Click（）以复制为例
Iftext1.SelLength>0ThenSendKeys（"^c"）
EndSub
5使用通用对话框队选中文字进行字体、大小等内容的编辑
PrivateSubfont_Click（）
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects
CommonDialog1.Action=4
Iftext1.SelLength>0Then
text1.SelFontName=CommonDialog1.FontName
text1.SelFontSize=CommonDialog1.FontSize
text1.SelBold=CommonDialog1.FontBold
text1.SelItalic=CommonDialog1.FontItalic
text1.SelStrikeThru=CommonDialog1.FontStrikethru
text1.SelUnderline=CommonDialog1.FontUnderline
text1.SelColor=CommonDialog1.color
EndIf
EndSub
6利用msgbox实现功能
在新建文件时弹出对话框询问是否保存
主要界面截图
图1.主界面运行情况
图2.msgbox运行情况
图3.通用对话框运行
总结
这次为期一周的课程设计结束了，虽然很短但是却给我留下了很深刻的影响。
作为第一次课设我不仅认真对待，也在这短短一周时间里学到了很多东西。
课程设计让我们不仅仅使用书本的理论，还让我独立解决问题的能力大大提升，更培养了我的逻辑思维能力。
在一次次的编写程序，发现问题，解决问题的过程中，让我对vb产生了非常浓厚的兴趣。
Vb作为大学生计算机学习的基本课程为我将来工作以及以后的学习生活打下了良好的基础。
总而言之，我的收获颇多，以后我会更加认真地对待课程设计，学习更多知识，达到更高水准。
完整的源程序
PrivateSubForm_Load（）'设置程序启动时的大小
Me.Height=6000'窗体高度
Me.Width=9000'窗体宽度
EndSub
PrivateSubForm_Resize（）'设置编辑框的位置和大小
OnErrorResumeNext'出错处理
text1.Move0,0,ScaleWidth,ScaleHeight
EndSub
PrivateSubtext1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）'右键点击出现弹出式菜单
IfButton=2ThenPopupMenuedit,vbpopupmenucenteralifgn
EndSub
PrivateSubnew_Click（）'新建
Iftext1.Text=""Then'如果文本框为空则清空文本框
text1.Text=""
Else:
ask=MsgBox（"是否保存",vbYesNoCancel）
Ifask=6Then
CommonDialog1.FileName="新建文本文件.Txt"
CommonDialog1.DefaultExt="文本文档（*.txt）"
CommonDialog1.Action=2
OpenCommonDialog1.FileNameForOutputAs#1
Print#1,text1.Text
Close#1
Else:
Ifask=7Thentext1.Text=""'选择否，清空文本框
EndIf
EndIf
EndSub
PrivateSubopen_Click（）'打开
OnErrorResumeNext'出错处理
CommonDialog1.Action=1'打开“打开”通用对话框
text1.Text=""
OpenCommonDialog1.FileNameForInputAs#1'打开文件进行读操作
DoWhileNotEOF
（1）
LineInput#1,inputdate'读一行数据
text1.Text=text1.Text+inputdate+vbCrLf
Loop
Close#1'关闭文件
EndSub
PrivateSubsavedate_Click（）'保存
OnErrorResumeNext
CommonDialog1.FileName="新建文本文件.Txt"'设置默认文件名
CommonDialog1.DefaultExt="文本文档（*.txt）"'设置默认扩展名
CommonDialog1.Action=2'打开“保存”对话框
OpenCommonDialog1.FileNameForOutputAs#1'打开文件进行写操作
Print#1,text1.Text
Close#1'关闭文件
EndSub
PrivateSubback_Click（）'撤销
SendKeys（"^z"）'利用sendkeys语句完成动作
EndSub
PrivateSubcopy_Click（）'复制
Iftext1.SelLength>0ThenSendKeys（"^c"）
EndSub
PrivateSubcut_Click（）'剪切
Iftext1.SelLength>0ThenSendKeys（"^x"）
EndSub
PrivateSubpaste_Click（）'粘贴
SendKeys（"^v"）
EndSub
PrivateSubdelete_Click（）'删除
Iftext1.SelLength>0ThenSendKeys"{DELETE}"
EndSub
PrivateSubseall_Click（）'全选
Iftext1.SelLength>0ThenSendKeys（"^a"）
EndSub
PrivateSubfont_Click（）'字体
CommonDialog1.Flags=cdlCFBothOrcdlCFEffects'Flags属性设置
CommonDialog1.Action=4'打开“字体”通用对话框
Iftext1.SelLength>0Then
text1.SelFontName=CommonDialog1.FontName'改变选中字体、大小、加粗、倾斜、删除线、下划线、颜色
text1.SelFontSize=CommonDialog1.FontSize
text1.SelBold=CommonDialog1.FontBold
text1.SelItalic=CommonDialog1.FontItalic
text1.SelStrikeThru=CommonDialog1.FontStrikethru
text1.SelUnderline=CommonDialog1.FontUnderline
text1.SelColor=CommonDialog1.color
EndIf
EndSub
PrivateSubcolor_Click（）'颜色
CommonDialog1.Action=3'打开“颜色”通用对话框
text1.SelColor=CommonDialog1.color'改变选中字体颜色
EndSub
参考文献
[1]龚沛曾．《VisualBasic程序设计教程》．北京：
高等教育出版社，2007
[2]苏瑞.《VisualBasic开发实用编程200例》.北京：
中国铁道出版社.2005
[3]王栋《VisualBasic程序设计实用教程》.北京：
清华大学出版社.2007
升级会员 