用vb6.0编写一个简单完整的记事本如何编写

《用vb6.0编写一个简单完整的记事本如何编写》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。第一章让我们的记事本马上运行急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！步骤一：绘制界面。新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。单击菜单“工程”-“部件”，在弹出的“部件”对

2、话框里找到MicrosoftRichTextBox6.0和公共对话框MicrosoftCommonDialog6.0并选中它们，单击“确定”按钮。这时左边的工具栏上出现了我们刚才新添的两个控件了。在窗体上绘制RichTextBox和CommnDialog，其中RichTextBox的大小和位置可不用理睬，我们将在代码中处理它，当然，有必要把它的ScrollBar属性设为2-rtfVertical，这样在打开和编辑文件时垂直滚动条才可用。步骤二：编辑菜单。按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：一.文件菜单：文件（第一层）mnuFile新建（第二层）mnuNew打开（第二层）mn

3、uOpen保存（第二层）mnuSave-（第二层）mnuFileSep(分隔线）退出（第二层）mnuExit二.编辑菜单：编辑（第一层）mnuEdit复制（第二层）mnuCopy剪切（第二层）mnuCut粘贴（第二层）mnuPaste-（第二层）mnuEditSep（分隔线）全选（第二层）mnuSelecAll三.搜索菜单：搜索（第一层）mnuSearch查找（第二层）mnuFind查找下一个（第二层）mnuFindOn四.帮助菜单：帮助（第一层）mnuHelp使用说明（第二层）mnuUsage关于（第二层）mnuAbout(注：各菜单项的快捷键请自行设置)好了，其它的菜单项以后再根据需要

4、添加。现在进入：步骤三：编写代码。'声明查找变量DimsFindAsString'声明文件类型DimFileType,FiTypeAsString'初始化程序PrivateSubForm_Load()'设置程序启动时的大小Me.Height=6000Me.Width=9000EndSub'设置编辑框的位置和大小PrivateSubForm_Resize()OnErrorResumeNext'出错处理RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height=ScaleHeight-40RichTextBox1.Width=Scale

5、Width-40EndSub'新建文件PrivateSubmnuNew_Click()RichTextBox1.Text=""'清空文本框FileName="未命名"Me.Caption=FileNameEndSub'打开文件PrivateSubmnuOpen_Click()CommonDialog1.Filter="文本文档(*.txt)

6、*.txt

7、RTF文档(*.rtf)

8、*.rtf

9、所有文件(*.*)

10、*.*"CommonDialog1.ShowOpenRichTextBox1.Text=""'清空文本框FileName=CommonDialog1.FileNameRichText

11、Box1.LoadFileFileNameMe.Caption="超级记事本："&FileNameEndSub'保存文件PrivateSubmnuSave_Click()CommonDialog1.Filter="文本文档(*.txt)

12、*.txt

13、RTF文档(*.rtf)

14、*.rtf

15、所有文件(*.*)

16、*.*"CommonDialog1.ShowSaveFileType=CommonDialog1.FileTitleFiType=LCase(Right(FileType,3))FileName=CommonDialog1.FileNameSelectCaseFiTypeCase"txt

17、"RichTextBox1.SaveFileFileName,rtfTextCase"rtf"RichTextBox1.SaveFileFileName,rtfRTFCase"*.*"RichTextBox1.SaveFileFileNameEndSelectMe.Caption="超级记事本："&FileNameEndSub'退出PrivateSubmnuExit_Click()EndEndSub'复制PrivateS