VB高级编程论文

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

题目：记事本程序设计

课程设计：VB程序设计论文 院系：人文社会科学学院 班级：09对外汉语（1）班 学生：

任小亚 20090710050123 杨 鑫 20090710050128 程志坚 20090710050124 余日盛 200907100502

指导教师：王鹏鸣老师

2010年6月25日

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

前 言

记事本：英文名称为：WORDPAD或NOTEPAD。

现在一般特指Windows操作系统附带的一个简单的文本编辑、浏览软件Notepad。

记事本只能处理纯文本文件，但是，由于多种格式源代码都是纯文本的，所以记事本也就成为了使用最多的源代码编辑器。 它只具备最基本的编辑功能，所以体积小巧，启动快，占用内存低，容易使用。

记事本的功能只有：新建，保存，打印，查找，替换这几个功能。但是记事本：打开速度快，文件小。

记事本可以保存无格式文件。你可以把记事本编辑的文件保存为：“.html”， “.java”，“.asp”等等任意格式。 所以我们学习VB程序，利用VB编写一款简单的基本的文本处理办公软件，类似于记事本，基本可以实现记事本的功能。因为制作者的能力有限，只是实现了简单的基础功能，所以，为提供软件的可行性、安全性、稳定性，我们将在以后的版本中不断改进。

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

一、 功能描述

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()

CommonDialog1.CancelError = True '调用公共对话框 ' On Error GoTo errhandler

CommonDialog1.DialogTitle = "另存为" '通用对话框的标题为“另存为”

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

CommonDialog1.InitDir = "c:\windows" '初始化路径 CommonDialog1.FileName = "*.txt"

CommonDialog1.Filter = "text files(*.txt)|*.txt" '文件过滤器 CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1 '文件名 Print #1, Mid(text1.Text, 1, Len(text1.Text)) Close #1 'errhandler: Exit Sub End Sub

Private Sub Copy_Click()

Clipboard.SetText RichTextBox1.SelRTF '剪切板得到的文本来自于文本框得到的文本 End Sub

Private Sub Cut_Click()

Clipboard.Clear '清空剪切板内容 Clipboard.SetText RichTextBox1.SelText '剪切板得到的文本来自于文本框得到的文本 RichTextBox1.SelText = "" '清空剪切板内容 End Sub

Private Sub Date_Click()

RichTextBox1.SelText = Now() '显示当前日期和时间 End Sub

Private Sub Delete_Click() RichTextBox1.SelText = "" End Sub

Private Sub Exit_Click() End End Sub

Private Sub Find_Click()

sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind) RichTextBox1.Find sFind End Sub

Private Sub FindOn_Click()

RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

RichTextBox1.Find sFind, , Len(RichTextBox1) End Sub

Private Sub Font_Click() On Error Resume Next

CommonDialog1.Flags = &H3 Or &H1 Or &H2 Or &H100 CommonDialog1.Action = 4

= 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 'End Sub

Private Sub Form_Load() ' Me.Height = 6000 Me.Width = 9000 txtchange = False isave = False End Sub

Private Sub Form_Resize() 'On Error Resume Next RichTextBox1.Top = 20 RichTextBox1.Left = 20

RichTextBox1.Height = ScaleHeight - 40 RichTextBox1.Width = ScaleWidth - 40 End Sub

Private Sub Form_Unload(Cancel As Integer) If txtchange = True And isave = False Then

Call save Else End End If End Sub

Private Sub mnuSave_Click()

Call save '设置名称 设置字号 设置粗体 设置斜体 设置下划线 设置颜色 窗体大小 文本框随窗体大小改变调出保存过程

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

isave = True End Sub

Private Sub Open_Click()

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowOpen '新建一个记事本 RichTextBox1.Text = "" '清空原记事本的内容 FileName = CommonDialog1.FileName

RichTextBox1.LoadFile FileName ' 打开文件函数表达式 Me.Caption = "记事本：" & FileName End Sub

Private Sub Paste_Click()

RichTextBox1.SelText = Clipboard.GetText '复制所选至剪切板 End Sub

Private Sub Replace_Click()

Dim Find As String, change As String, xuan As String '定义为字符型函数 Dim i As Long, len1 As Long, len2 As Long, n As Long Find = InputBox("要查找的内容") change = InputBox("要替换的内容") len1 = Len(Find)

len2 = Len(RichTextBox1.Text) For i = 1 To len2 - len1 + 1

If Find = Mid(RichTextBox1.Text, i, len1) Then RichTextBox1.SetFocus

RichTextBox1.SelStart = i - 1 RichTextBox1.SelLength = len1 xuan = "是否替换"

n = MsgBox(xuan, vbYesNoCancel + vbDefaultButton1 + vbQuestion) If n = 6 Then

RichTextBox1.SelText = change End If End If Next i End Sub

Private Sub Edit_Click()

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

If RichTextBox1.SelText = "" Then '内容为空，则复制、删除、剪切不可用 Copy.Enabled = False

Cut.Enabled = False Delete.Enabled = False Else

Delete.Enabled = True Copy.Enabled = True

Cut.Enabled = True End If

If RichTextBox1.Text = "" Then Find.Enabled = False FindOn.Enabled = False Else

Find.Enabled = True FindOn.Enabled = True End If End Sub

Private Sub RichTextBox1_Change()

txtchange = True ' End Sub

Private Sub SelectAll_Click() RichTextBox1.SelStart = 0

RichTextBox1.SelLength = Len(RichTextBox1.Text) ' End Sub

Private Sub Topic_Click() On Error GoTo handler

RichTextBox1.LoadFile "Readme.txt", rtfText Me.Caption = "记事本：" & "使用说明" Exit Sub handler:

MsgBox "抱歉,内容未找到!", 64, "提示" 'End Sub

弹出提示对话框

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

PopupMenu Edit, vbPopupMenuLeftAlign Else Exit Sub End If End Sub

Private Sub xinjian_Click()

RichTextBox1.Text = "" '清空文本文档

FileName = "未命名" '更改文档的Caption属性 Me.Caption = FileName End Sub

Public Sub save()

CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"

CommonDialog1.ShowSave

FiType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3)) FileName = CommonDialog1.FileName Select Case FileType Case "txt"

RichTextBox1.SaveFile FileName, rtfText Case "rtf"

RichTextBox1.SaveFile FileName, rtfRTF Case "*.*"

RichTextBox1.SaveFile FileName End Select

Me.Caption = "记事本：" & FileName End Sub

（程序代码编写结束）

三、 运行界面

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

界面1.如下：

界面2.如下：

四、 运行中存在的问题与不足

1． 2．

没有实现状态栏的功能； 打开时有时会出现如下错误：

vb是Visual Basic的简称,是由美国微软公司于1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数

3．

创新功能不足，因为操作着能力有限，记事本可观性与实用性较差，会在以后的程序中加以改进； 4．

部分代码设计较为繁琐。

五、 心得与体会

1．

编写较大程序之前需要提前计算好算法，并且作以规划。

如记事本程序中，首先应该设计好各级菜单，其次每个按钮的功能基本实现的方法应当清楚；

2．

尽量以注释代替删除，有时我们在处理文档代码过程中会出现一些问题，但不要轻易删除，可能会在后边程序中用来参考，减轻我们在编写工程中的繁复性；

3．

编写大的程序中会遇到很多问题，需要不断的调试并分析代码，对出现的问题进行排查，以提高程序的可行性；

4．

在编写代码的过程中，要循序渐进，不断改进，发现并弥补漏洞和不足，提高程序的实用性。

5． 6．

部分代码设计较为繁琐。 感谢老师的指导和同学的帮助！

六、 参考文献：

《Visual Basic 程序设计教程》 熊李艳 周美玲 主编 人民邮电出版社

本文来源：https://www.bwwdw.com/article/37hj.html