VB高级编程论文

《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'