欢迎来到天天文库
浏览记录
ID:40574135
大小:152.50 KB
页数:10页
时间:2019-08-04
《VB高级编程论文》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、VB程序设计课程设计:VB程序设计论文班级:学生:叶陈吉088072334前言记事本:英文名称为:WORDPAD或NOTEPAD。 现在一般特指Windows操作系统附带的一个简单的文本编辑、浏览软件Notepad。 记事本只能处理纯文本文件,但是,由于多种格式源代码都是纯文本的,所以记事本也就成为了使用最多的源代码编辑器。 它只具备最基本的编辑功能,所以体积小巧,启动快,占用内存低,容易使用。 记事本的功能只有:新建,保存,打印,查找,替换这几个功能。但是记事本:打开速度快,文件小。 记事本可以保存无格式
2、文件。你可以把记事本编辑的文件保存为:“.html”,“.java”,“.asp”等等任意格式。所以我们学习VB程序,利用VB编写一款简单的基本的文本处理办公软件,类似于记事本,基本可以实现记事本的功能。因为制作者的能力有限,只是实现了简单的基础功能,所以,为提供软件的可行性、安全性、稳定性,我们将在以后的版本中不断改进。一、功能描述1.打开记事本菜单栏“文件”菜单具有新建文本文档、保存(另存)文档以及打开等功能。2.编辑编辑可实现撤销、剪切、复制、粘贴、删除、查找、替换等功能;同时亦可实现插入时间日期的功能。3.格
3、式格式可实现自动换行的功能以及字体、字号、颜色的选择。4.帮助对记事本程序的版权声明,本记事本所有程序设计与编写均属原创。二、程序代码记事本应用程序的详细代码如下:DimsFindAsString'定义sfind为一个字符型变量DimFileType,FiTypeAsString'定义filetype,fitype为一个字符型变量DimtxtchangeAsBoolean'定义txtchange为一个逻辑型变量DimisaveAsBooleanPrivateSubAbout_Click()MsgBox"记事本2010
4、版权所有(C)",vbOKOnly,"关于记事本"EndSubPrivateSubAsave_Click()CommonDialog1.CancelError=True'调用公共对话框'OnErrorGoToerrhandlerCommonDialog1.DialogTitle="另存为"'通用对话框的标题为“另存为”CommonDialog1.InitDir="c:windows"'初始化路径CommonDialog1.FileName="*.txt"CommonDialog1.Filter="textfiles
5、(*.txt)
6、*.txt"'文件过滤器CommonDialog1.ShowSaveOpenCommonDialog1.FileNameForOutputAs#1'文件名Print#1,Mid(text1.Text,1,Len(text1.Text))Close#1'errhandler:ExitSubEndSubPrivateSubCopy_Click()Clipboard.SetTextRichTextBox1.SelRTF'剪切板得到的文本来自于文本框得到的文本EndSubPrivateSubCut_Click
7、()Clipboard.Clear'清空剪切板内容Clipboard.SetTextRichTextBox1.SelText'剪切板得到的文本来自于文本框得到的文本RichTextBox1.SelText=""'清空剪切板内容EndSubPrivateSubDate_Click()RichTextBox1.SelText=Now()'显示当前日期和时间EndSubPrivateSubDelete_Click()RichTextBox1.SelText=""EndSubPrivateSubExit_Click()End
8、EndSubPrivateSubFind_Click()sFind=InputBox("请输入要查找的字、词:","查找内容",sFind)RichTextBox1.FindsFindEndSubPrivateSubFindOn_Click()RichTextBox1.SelStart=RichTextBox1.SelStart+RichTextBox1.SelLength+1RichTextBox1.FindsFind,,Len(RichTextBox1)EndSubPrivateSubFont_Click()On
9、ErrorResumeNextCommonDialog1.Flags=&H3Or&H1Or&H2Or&H100CommonDialog1.Action=4RichTextBox1.Font.Name=CommonDialog1.FontName'设置名称RichTextBox1.Font.Size=CommonDialog1.FontSize'
此文档下载收益归作者所有