VB高级编程论文.docx

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程序设计教程》熊李艳周美玲主编人民邮电出版社