VB来做一个记事本程序

VB来做一个记事本程序,像堆积木一样简单！{推荐}

用VB编程就像堆积木，现在我就教大家用VB来做一个记事本程序，通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。

第一章让我们的记事本马上运行

急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！

步骤一：绘制界面。

新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common Dialog 6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichText Box和Commn Dialog，其中RichText Box的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。

步骤二：编辑菜单。

按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：

一.文件菜单：

文件（第一层）mnuFile

新建（第二层）mnuNew

打开（第二层）mnuOpen

保存（第二层）mnuSave

- （第二层）mnuFileSep (分隔线）

退出（第二层）mnuExit

二.编辑菜单：

编辑（第一层）mnuEdit

复制（第二层）mnuCopy

剪切（第二层）mnuCut

粘贴（第二层）mnuPaste

- （第二层）mnuEditSep （分隔线）

全选（第二层）mnuSelecAll

三.搜索菜单：

搜索（第一层）mnuSearch

查找（第二层）mnuFind

查找下一个（第二层）mnuFindOn

四.帮助菜单：

帮助（第一层）mnuHelp

使用说明（第二层）mnuUsage

关于（第二层）mnuAbout

(注：各菜单项的快捷键请自行设置)

好了，其它的菜单项以后再根据需要添加。现在进入：

步骤三：编写代码。

`声明查找变量

Dim sFind As String

`声明文件类型

Dim FileType, FiType As String

`初始化程序

Private Sub Form_Load()

`设置程序启动时的大小

Me.Height = 6000

Me.Width = 9000

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

RichTextBox1.Text = "" `清空文本框

FileName = "未命名"

Me.Caption = FileName

End Sub

`打开文件

Private Sub mnuOpen_Click()

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

RichTextBox1.Text = "" `清空文本框

FileName = CommonDialog1.FileName

RichTextBox1.LoadFile FileName

Me.Caption = "超级记事本：" & FileName

`保存文件

Private Sub mnuSave_Click()

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

FileType = CommonDialog1.FileTitle

FiType = LCase(Right(FileType, 3))

FileName = CommonDialog1.FileName

Select Case FiType

Case "txt"

RichTextBox1.SaveFile FileName, rtfText

Case "rtf"

RichTextBox1.SaveFile FileName, rtfRTF

Case "*.*"

RichTextBox1.SaveFile FileName

End Select

Me.Caption = "超级记事本：" & FileName

End Sub

`退出

Private Sub mnuExit_Click()

End

End Sub

`复制

Private Sub mnuCopy_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

End Sub

`剪切

Private Sub mnuCut_Click()

Clipboard.Clear

Clipboard.SetText RichTextBox1.SelText

RichTextBox1.SelText = ""

End Sub

`全选

Private Sub mnuSelectAll_Click()

RichTextBox1.SelStart = 0

RichTextBox1.SelLength = Len(RichTextBox1.Text)