文档介绍：题目: 记事本程序设计课程设计: VB 程序设计论文院系: *** 学院班级: …学生: … 20090710050123 *** 20090710050128 &&&& 20090710050124 &&&& 200907100502 指导教师: **** 老师 2010 年6月 25日前言记事本: 英文名称为: WORDPAD 或 NOTEPAD 。现在一般特指 Windows 操作系统附带的一个简单的文本编辑、浏览软件 N otepad 。记事本只能处理纯文本文件,但是,由于多种格式源代码都是纯文本的,所以记事本也就成为了使用最多的源代码编辑器。它只具备最基本的编辑功能,所以体积小巧,启动快,占用内存低,容易使用。记事本的功能只有:新建,保存,打印,查找,替换这几个功能。但是记事本:打开速度快,文件小。记事本可以保存无格式文件。你可以把记事本编辑的文件保存为: “.html ”,“.java ”,“.asp ”等等任意格式。所以我们学****VB 程序, 利用 VB 编写一款简单的基本的文本处理办公软件,类似于记事本,基本可以实现记事本的功能。因为制作者的能力有限,只是实现了简单的基础功能,所以,为提供软件的可行性、安全性、稳定性,我们将在以后的版本中不断改进。一、功能描述 1. 打开记事本菜单栏“文件”菜单具有新建文本文档、保存(另存)文档以及打开等功能。 2 .编辑编辑可实现撤销、剪切、复制、粘贴、删除、查找、替换等功能; 同时亦可实现插入时间日期的功能。 3 .格式格式可实现自动换行的功能以及字体、字号、颜色的选择。 4 .帮助对记事本程序的版权声明,本记事本所有程序设计与编写均属原创。二、程序代码记事本应用程序的详细代码如下: Dim sFind As String ' 定义 sfind 为一个字符型变量 Dim FileType, FiType As String ' 定义 filetype,fitype 为一个字符型变量 Dim txtchange As Boolean ' 定义 txtchange 为一个逻辑型变量 Dim isave As Boolean Private Sub About_Click() MsgBox " 记事本 2010 版权所有(C) ", vbOKOnly, " 关于记事本" End Sub Private Sub Asave_Click() = True ' 调用公共对话框' On Error GoTo =" 另存为"' 通用对话框的标题为“另存为” = "c:\windows" ' = "*.txt" = "text files(*.txt)|*.txt" ' For Output As #1' 文件名 Print #1, Mid(, 1, Len()) Close #1 'errhandler: Exit Sub End Sub Private Sub Copy_C