VB高级编程论文Word格式文档下载.docx
《VB高级编程论文Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《VB高级编程论文Word格式文档下载.docx(12页珍藏版)》请在冰豆网上搜索。
它只具备最基本的编辑功能,所以体积小巧,启动快,占用内存低,容易使用。
记事本的功能只有:
新建,保存,打印,查找,替换这几个功能。
但是记事本:
打开速度快,文件小。
记事本可以保存无格式文件。
你可以把记事本编辑的文件保存为:
“.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
PrivateSubCopy_Click()
Clipboard.SetTextRichTextBox1.SelRTF'
剪切板得到的文本来自于文本框得到的文本
PrivateSubCut_Click()
Clipboard.Clear'
清空剪切板内容
Clipboard.SetTextRichTextBox1.SelText'
RichTextBox1.SelText="
"
'
PrivateSubDate_Click()
RichTextBox1.SelText=Now()'
显示当前日期和时间
PrivateSubDelete_Click()
PrivateSubExit_Click()
End
PrivateSubFind_Click()
sFind=InputBox("
请输入要查找的字、词:
"
查找内容"
sFind)
RichTextBox1.FindsFind
PrivateSubFindOn_Click()
RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1
RichTextBox1.FindsFind,,Len(RichTextBox1)
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'
设置颜色
PrivateSubForm_Load()'
窗体大小
Me.Height=6000
Me.Width=9000
txtchange=False
isave=False
PrivateSubForm_Resize()'
文本框随窗体大小改变
RichTextBox1.Top=20
RichTextBox1.Left=20
RichTextBox1.Height=ScaleHeight-40
RichTextBox1.Width=ScaleWidth-40
PrivateSubForm_Unload(CancelAsInteger)
Iftxtchange=TrueAndisave=FalseThen
Callsave
Else
EndIf
PrivateSubmnuSave_Click()
Callsave'
调出保存过程
isave=True
PrivateSubOpen_Click()
文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen'
新建一个记事本
RichTextBox1.Text="
清空原记事本的内容
FileName=CommonDialog1.FileName
RichTextBox1.LoadFileFileName'
打开文件函数表达式
Me.Caption="
&
FileName
PrivateSubPaste_Click()
RichTextBox1.SelText=Clipboard.GetText'
复制所选至剪切板
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
Nexti
EndSub
PrivateSubEdit_Click()
IfRichTextBox1.SelText="
Then'
内容为空,则复制、删除、剪切不可用
Copy.Enabled=False
Cut.Enabled=False
Delete.Enabled=False
Delete.Enabled=True
Copy.Enabled=True
Cut.Enabled=True
IfRichTextBox1.Text="
Then
Find.Enabled=False
FindOn.Enabled=False
Find.Enabled=True
FindOn.Enabled=True
PrivateSubRichTextBox1_Change()
txtchange=True'
PrivateSubSelectAll_Click()
RichTextBox1.SelStart=0
RichTextBox1.SelLength=Len(RichTextBox1.Text)'
PrivateSubTopic_Click()
OnErrorGoTohandler
RichTextBox1.LoadFile"
Readme.txt"
rtfText
Me.Caption="
"
使用说明"
handler:
抱歉,内容未找到!
64,"
提示"
弹出提示对话框
PrivateSubRichTextBox1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
PopupMenuEdit,vbPopupMenuLeftAlign
ExitSub
PrivateSubxinjian_Click()
清空文本文档
FileName="
未命名"
更改文档的Caption属性
Me.Caption=FileName
PublicSubsave()
FiType=CommonDialog1.FileTitle
FiType=LCase(Right(FileType,3))
SelectCaseFileType
Case"
txt"
RichTextBox1.SaveFileFileName,rtfText
rtf"
RichTextBox1.SaveFileFileName,rtfRTF
*.*"
RichTextBox1.SaveFileFileName
EndSelect
(程序代码编写结束)
三、运行界面
界面1.如下:
界面2.如下:
四、运行中存在的问题与不足
1.没有实现状态栏的功能;
2.打开时有时会出现如下错误:
3.创新功能不足,因为操作着能力有限,记事本可观性与实用性较差,会在以后的程序中加以改进;
4.部分代码设计较为繁琐。
五、心得与体会
1.编写较大程序之前需要提前计算好算法,并且作以规划。
如记事本程序中,首先应该设计好各级菜单,其次每个按钮的功能基本实现的方法应当清楚;
2.尽量以注释代替删除,有时我们在处理文档代码过程中会出现一些问题,但不要轻易删除,可能会在后边程序中用来参考,减轻我们在编写工程中的繁复性;
3.编写大的程序中会遇到很多问题,需要不断的调试并分析代码,对出现的问题进行排查,以提高程序的可行性;
4.在编写代码的过程中,要循序渐进,不断改进,发现并弥补漏洞和不足,提高程序的实用性。
5.部分代码设计较为繁琐。
6.感谢老师的指导和同学的帮助!
六、参考文献:
《VisualBasic程序设计教程》熊李艳周美玲主编人民邮电出版社