VB高级编程论文.docx
《VB高级编程论文.docx》由会员分享，可在线阅读，更多相关《VB高级编程论文.docx（12页珍藏版）》请在冰豆网上搜索。
VB高级编程论文
题目：
记事本程序设计
课程设计：
VB程序设计论文
院系：
***学院
班级：
…
学生：
…20090710050123
***20090710050128
&&&&20090710050124
&&&&200907100502
指导教师：
****老师
2010年6月25日
前言
记事本：
英文名称为：
WORDPAD或NOTEPAD。
现在一般特指Windows操作系统附带的一个简单的文本编辑、浏览软件Notepad。
记事本只能处理纯文本文件，但是，由于多种格式源代码都是纯文本的，所以记事本也就成为了使用最多的源代码编辑器。
它只具备最基本的编辑功能，所以体积小巧，启动快，占用内存低，容易使用。
记事本的功能只有：
新建，保存，打印，查找，替换这几个功能。
但是记事本：
打开速度快，文件小。
记事本可以保存无格式文件。
你可以把记事本编辑的文件保存为：
“.html”，“.java”，“.asp”等等任意格式。
所以我们学习VB程序，利用VB编写一款简单的基本的文本处理办公软件，类似于记事本，基本可以实现记事本的功能。
因为制作者的能力有限，只是实现了简单的基础功能，所以，为提供软件的可行性、安全性、稳定性，我们将在以后的版本中不断改进。
一、功能描述
1.打开
记事本菜单栏“文件”菜单具有新建文本文档、保存（另存）文档以及打开等功能。
2．编辑
编辑可实现撤销、剪切、复制、粘贴、删除、查找、替换等功能；同时亦可实现插入时间日期的功能。
3．格式
格式可实现自动换行的功能以及字体、字号、颜色的选择。
4．帮助
对记事本程序的版权声明，本记事本所有程序设计与编写均属原创。
二、程序代码
记事本应用程序的详细代码如下：
DimsFindAsString'定义sfind为一个字符型变量
DimFileType,FiTypeAsString'定义filetype,fitype为一个字符型变量
DimtxtchangeAsBoolean'定义txtchange为一个逻辑型变量
DimisaveAsBoolean
PrivateSubAbout_Click（）
MsgBox"记事本2010版权所有（C）",vbOKOnly,"关于记事本"
EndSub
PrivateSubAsave_Click（）
CommonDialog1.CancelError=True'调用公共对话框
'OnErrorGoToerrhandler
CommonDialog1.DialogTitle="另存为"'通用对话框的标题为“另存为”
CommonDialog1.InitDir="c:
\windows"'初始化路径
CommonDialog1.FileName="*.txt"
CommonDialog1.Filter="textfiles（*.txt）|*.txt"'文件过滤器
CommonDialog1.ShowSave
OpenCommonDialog1.FileNameForOutputAs#1'文件名
Print#1,Mid（text1.Text,1,Len（text1.Text））
Close#1
'errhandler:
ExitSub
EndSub
PrivateSubCopy_Click（）
Clipboard.SetTextRichTextBox1.SelRTF'剪切板得到的文本来自于文本框得到的文本
EndSub
PrivateSubCut_Click（）
Clipboard.Clear'清空剪切板内容
Clipboard.SetTextRichTextBox1.SelText'剪切板得到的文本来自于文本框得到的文本
RichTextBox1.SelText=""'清空剪切板内容
EndSub
PrivateSubDate_Click（）
RichTextBox1.SelText=Now（）'显示当前日期和时间
EndSub
PrivateSubDelete_Click（）
RichTextBox1.SelText=""
EndSub
PrivateSubExit_Click（）
End
EndSub
PrivateSubFind_Click（）
sFind=InputBox（"请输入要查找的字、词：
","查找内容",sFind）
RichTextBox1.FindsFind
EndSub
PrivateSubFindOn_Click（）
RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1
RichTextBox1.FindsFind,,Len（RichTextBox1）
EndSub
PrivateSubFont_Click（）
OnErrorResumeNext
CommonDialog1.Flags=&H3Or&H1Or&H2Or&H100
CommonDialog1.Action=4
RichTextBox1.Font.Name=CommonDialog1.FontName'设置名称
RichTextBox1.Font.Size=CommonDialog1.FontSize'设置字号
RichTextBox1.Font.Bold=CommonDialog1.FontBold'设置粗体
RichTextBox1.Font.Italic=CommonDialog1.FontItalic'设置斜体
RichTextBox1.Font.Underline=CommonDialog1.FontUnderline'设置下划线
RichTextBox1.Font.setcolor=CommonDialog1.Color'设置颜色
EndSub
PrivateSubForm_Load（）'窗体大小
Me.Height=6000
Me.Width=9000
txtchange=False
isave=False
EndSub
PrivateSubForm_Resize（）'文本框随窗体大小改变
OnErrorResumeNext
RichTextBox1.Top=20
RichTextBox1.Left=20
RichTextBox1.Height=ScaleHeight-40
RichTextBox1.Width=ScaleWidth-40
EndSub
PrivateSubForm_Unload（CancelAsInteger）
Iftxtchange=TrueAndisave=FalseThen
Callsave
Else
End
EndIf
EndSub
PrivateSubmnuSave_Click（）
Callsave'调出保存过程
isave=True
EndSub
PrivateSubOpen_Click（）
CommonDialog1.Filter="文本文档（*.txt）|*.txt|RTF文档（*.rtf）|*.rtf|所有文件（*.*）|*.*"
CommonDialog1.ShowOpen'新建一个记事本
RichTextBox1.Text=""'清空原记事本的内容
FileName=CommonDialog1.FileName
RichTextBox1.LoadFileFileName'打开文件函数表达式
Me.Caption="记事本：
"&FileName
EndSub
PrivateSubPaste_Click（）
RichTextBox1.SelText=Clipboard.GetText'复制所选至剪切板
EndSub
PrivateSubReplace_Click（）
DimFindAsString,changeAsString,xuanAsString'定义为字符型函数
DimiAsLong,len1AsLong,len2AsLong,nAsLong
Find=InputBox（"要查找的内容"）
change=InputBox（"要替换的内容"）
len1=Len（Find）
len2=Len（RichTextBox1.Text）
Fori=1Tolen2-len1+1
IfFind=Mid（RichTextBox1.Text,i,len1）Then
RichTextBox1.SetFocus
RichTextBox1.SelStart=i-1
RichTextBox1.SelLength=len1
xuan="是否替换"
n=MsgBox（xuan,vbYesNoCancel+vbDefaultButton1+vbQuestion）
Ifn=6Then
RichTextBox1.SelText=change
EndIf
EndIf
Nexti
EndSub
PrivateSubEdit_Click（）
IfRichTextBox1.SelText=""Then'内容为空，则复制、删除、剪切不可用
Copy.Enabled=False
Cut.Enabled=False
Delete.Enabled=False
Else
Delete.Enabled=True
Copy.Enabled=True
Cut.Enabled=True
EndIf
IfRichTextBox1.Text=""Then
Find.Enabled=False
FindOn.Enabled=False
Else
Find.Enabled=True
FindOn.Enabled=True
EndIf
EndSub
PrivateSubRichTextBox1_Change（）
txtchange=True'
EndSub
PrivateSubSelectAll_Click（）
RichTextBox1.SelStart=0
RichTextBox1.SelLength=Len（RichTextBox1.Text）'
EndSub
PrivateSubTopic_Click（）
OnErrorGoTohandler
RichTextBox1.LoadFile"Readme.txt",rtfText
Me.Caption="记事本：
"&"使用说明"
ExitSub
handler:
MsgBox"抱歉,内容未找到!
",64,"提示"'弹出提示对话框
EndSub
PrivateSubRichTextBox1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
PopupMenuEdit,vbPopupMenuLeftAlign
Else
ExitSub
EndIf
EndSub
PrivateSubxinjian_Click（）
RichTextBox1.Text=""'清空文本文档
FileName="未命名"'更改文档的Caption属性
Me.Caption=FileName
EndSub
PublicSubsave（）
CommonDialog1.Filter="文本文档（*.txt）|*.txt|RTF文档（*.rtf）|*.rtf|所有文件（*.*）|*.*"
CommonDialog1.ShowSave
FiType=CommonDialog1.FileTitle
FiType=LCase（Right（FileType,3））
FileName=CommonDialog1.FileName
SelectCaseFileType
Case"txt"
RichTextBox1.SaveFileFileName,rtfText
Case"rtf"
RichTextBox1.SaveFileFileName,rtfRTF
Case"*.*"
RichTextBox1.SaveFileFileName
EndSelect
Me.Caption="记事本：
"&FileName
EndSub
（程序代码编写结束）
三、运行界面
界面1.如下：
界面2.如下：
四、运行中存在的问题与不足
1．没有实现状态栏的功能；
2．打开时有时会出现如下错误：
3．创新功能不足，因为操作着能力有限，记事本可观性与实用性较差，会在以后的程序中加以改进；
4．部分代码设计较为繁琐。
五、心得与体会
1．编写较大程序之前需要提前计算好算法，并且作以规划。
如记事本程序中，首先应该设计好各级菜单，其次每个按钮的功能基本实现的方法应当清楚；
2．尽量以注释代替删除，有时我们在处理文档代码过程中会出现一些问题，但不要轻易删除，可能会在后边程序中用来参考，减轻我们在编写工程中的繁复性；
3．编写大的程序中会遇到很多问题，需要不断的调试并分析代码，对出现的问题进行排查，以提高程序的可行性；
4．在编写代码的过程中，要循序渐进，不断改进，发现并弥补漏洞和不足，提高程序的实用性。
5．部分代码设计较为繁琐。
6．感谢老师的指导和同学的帮助！
六、参考文献：
《VisualBasic程序设计教程》熊李艳周美玲主编人民邮电出版社
升级会员 