VB高级编程论文.docx

VB高级编程论文.docx

《VB高级编程论文.docx》由会员分享，可在线阅读，更多相关《VB高级编程论文.docx（10页珍藏版）》请在冰豆网上搜索。

VB高级编程论文高级编程论文VB程序设计课程设计：

VB程序设计论文班级：

学生：

叶陈吉088072334前言记事本：

英文名称为：

WORDPAD或NOTEPAD。

现在一般特指Windows操作系统附带的一个简单的文本编辑、浏览软件Notepad。

记事本只能处理纯文本文件，但是，由于多种格式源代码都是纯文本的，所以记事本也就成为了使用最多的源代码编辑器。

它只具备最基本的编辑功能，所以体积小巧，启动快，占用内存低，容易使用。

记事本的功能只有：

新建，保存，打印，查找，替换这几个功能。

但是记事本：

打开速度快，文件小。

记事本可以保存无格式文件。

你可以把记事本编辑的文件保存为：

“.html”，“.java”，“.asp”等等任意格式。

所以我们学习VB程序，利用VB编写一款简单的基本的文本处理办公软件，类似于记事本，基本可以实现记事本的功能。

因为制作者的能力有限，只是实现了简单的基础功能，所以，为提供软件的可行性、安全性、稳定性，我们将在以后的版本中不断改进。

一、功能描述1.打开记事本菜单栏“文件”菜单具有新建文本文档、保存（另存）文档以及打开等功能。

2编辑编辑可实现撤销、剪切、复制、粘贴、删除、查找、替换等功能；同时亦可实现插入时间日期的功能。

3格式格式可实现自动换行的功能以及字体、字号、颜色的选择。

4帮助对记事本程序的版权声明，本记事本所有程序设计与编写均属原创。

二、程序代码记事本应用程序的详细代码如下：

DimsFindAsString定义sfind为一个字符型变量DimFileType,FiTypeAsString定义filetype,fitype为一个字符型变量DimtxtchangeAsBoolean定义txtchange为一个逻辑型变量DimisaveAsBooleanPrivateSubAbout_Click（）MsgBox记事本2010版权所有（C）,vbOKOnly,关于记事本EndSubPrivateSubAsave_Click（）CommonDialog1.CancelError=True调用公共对话框OnErrorGoToerrhandlerCommonDialog1.DialogTitle=另存为通用对话框的标题为“另存为”CommonDialog1.InitDir=c:

windows初始化路径CommonDialog1.FileName=*.txtCommonDialog1.Filter=textfiles（*.txt）|*.txt文件过滤器CommonDialog1.ShowSaveOpenCommonDialog1.FileNameForOutputAs#1文件名Print#1,Mid（text1.Text,1,Len（text1.Text）Close#1errhandler:

ExitSubEndSubPrivateSubCopy_Click（）Clipboard.SetTextRichTextBox1.SelRTF剪切板得到的文本来自于文本框得到的文本EndSubPrivateSubCut_Click（）Clipboard.Clear清空剪切板内容Clipboard.SetTextRichTextBox1.SelText剪切板得到的文本来自于文本框得到的文本RichTextBox1.SelText=清空剪切板内容EndSubPrivateSubDate_Click（）RichTextBox1.SelText=Now（）显示当前日期和时间EndSubPrivateSubDelete_Click（）RichTextBox1.SelText=EndSubPrivateSubExit_Click（）EndEndSubPrivateSubFind_Click（）sFind=InputBox（请输入要查找的字、词：

查找内容,sFind）RichTextBox1.FindsFindEndSubPrivateSubFindOn_Click（）RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1RichTextBox1.FindsFind,Len（RichTextBox1）EndSubPrivateSubFont_Click（）OnErrorResumeNextCommonDialog1.Flags=&H3Or&H1Or&H2Or&H100CommonDialog1.Action=4RichTextBox1.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设置颜色EndSubPrivateSubForm_Load（）窗体大小Me.Height=6000Me.Width=9000txtchange=Falseisave=FalseEndSubPrivateSubForm_Resize（）文本框随窗体大小改变OnErrorResumeNextRichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height=ScaleHeight-40RichTextBox1.Width=ScaleWidth-40EndSubPrivateSubForm_Unload（CancelAsInteger）Iftxtchange=TrueAndisave=FalseThenCallsaveElseEndEndIfEndSubPrivateSubmnuSave_Click（）Callsave调出保存过程isave=TrueEndSubPrivateSubOpen_Click（）CommonDialog1.Filter=文本文档（*.txt）|*.txt|RTF文档（*.rtf）|*.rtf|所有文件（*.*）|*.*CommonDialog1.ShowOpen新建一个记事本RichTextBox1.Text=清空原记事本的内容FileName=CommonDialog1.FileNameRichTextBox1.LoadFileFileName打开文件函数表达式Me.Caption=记事本：

&FileNameEndSubPrivateSubPaste_Click（）RichTextBox1.SelText=Clipboard.GetText复制所选至剪切板EndSubPrivateSubReplace_Click（）DimFindAsString,changeAsString,xuanAsString定义为字符型函数DimiAsLong,len1AsLong,len2AsLong,nAsLongFind=InputBox（要查找的内容）change=InputBox（要替换的内容）len1=Len（Find）len2=Len（RichTextBox1.Text）Fori=1Tolen2-len1+1IfFind=Mid（RichTextBox1.Text,i,len1）ThenRichTextBox1.SetFocusRichTextBox1.SelStart=i-1RichTextBox1.SelLength=len1xuan=是否替换n=MsgBox（xuan,vbYesNoCancel+vbDefaultButton1+vbQuestion）Ifn=6ThenRichTextBox1.SelText=changeEndIfEndIfNextiEndSubPrivateSubEdit_Click（）IfRichTextBox1.SelText=Then内容为空，则复制、删除、剪切不可用Copy.Enabled=FalseCut.Enabled=FalseDelete.Enabled=FalseElseDelete.Enabled=TrueCopy.Enabled=TrueCut.Enabled=TrueEndIfIfRichTextBox1.Text=ThenFind.Enabled=FalseFindOn.Enabled=FalseElseFind.Enabled=TrueFindOn.Enabled=TrueEndIfEndSubPrivateSubRichTextBox1_Change（）txtchange=TrueEndSubPrivateSubSelectAll_Click（）RichTextBox1.SelStart=0RichTextBox1.SelLength=Len（RichTextBox1.Text）EndSubPrivateSubTopic_Click（）OnErrorGoTohandlerRichTextBox1.LoadFileReadme.txt,rtfTextMe.Caption=记事本：

&使用说明ExitSubhandler:

MsgBox抱歉,内容未找到!

64,提示弹出提示对话框EndSubPrivateSubRichTextBox1_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）IfButton=2ThenPopupMenuEdit,vbPopupMenuLeftAlignElseExitSubEndIfEndSubPrivateSubxinjian_Click（）RichTextBox1.Text=清空文本文档FileName=未命名更改文档的Caption属性Me.Caption=FileNameEndSubPublicSubsave（）CommonDialog1.Filter=文本文档（*.txt）|*.txt|RTF文档（*.rtf）|*.rtf|所有文件（*.*）|*.*CommonDialog1.ShowSaveFiType=CommonDialog1.FileTitleFiType=LCase（Right（FileType,3）FileName=CommonDialog1.FileNameSelectCaseFileTypeCasetxtRichTextBox1.SaveFileFileName,rtfTextCasertfRichTextBox1.SaveFileFileName,rtfRTFCase*.*RichTextBox1.SaveFileFileNameEndSelectMe.Caption=记事本：

&FileNameEndSub（程序代码编写结束）三、运行界面界面1.如下：

界面2.如下：

四、运行中存在的问题与不足1没有实现状态栏的功能；2打开时有时会出现如下错误：

3创新功能不足，因为操作着能力有限，记事本可观性与实用性较差，会在以后的程序中加以改进；4部分代码设计较为繁琐。

五、心得与体会1编写较大程序之前需要提前计算好算法，并且作以规划。

如记事本程序中，首先应该设计好各级菜单，其次每个按钮的功能基本实现的方法应当清楚；2尽量以注释代替删除，有时我们在处理文档代码过程中会出现一些问题，但不要轻易删除，可能会在后边程序中用来参考，减轻我们在编写工程中的繁复性；3编写大的程序中会遇到很多问题，需要不断的调试并分析代码，对出现的问题进行排查，以提高程序的可行性；4在编写代码的过程中，要循序渐进，不断改进，发现并弥补漏洞和不足，提高程序的实用性。

5部分代码设计较为繁琐。

6感谢老师的指导和同学的帮助！

六、参考文献：

VisualBasic程序设计教程熊李艳周美玲主编人民邮电出版社