用vb制作简易记事本

《用vb制作简易记事本》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用VB做一个记事本实在不很复杂http://www.21tx.com2012年8月25日(hndd转载谅解)用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！　　通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。　　第一章让我们的记事本马上运行　　急于求成是初学者共有的心愿。那好，请按如下三个步骤做，我们的愿望立即就可以实现！　　步骤一：绘制界面　　新建

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

3、件时垂直滚动条才可用。　　步骤二：编辑菜单　　按Ctrl+E调出菜单编辑器，我们来做如下几个菜单：　　一.文件菜单：　　文件（第一层）mnuFile　　新建（第二层）mnuNew　　打开（第二层）mnuOpen　　保存（第二层）mnuSave　　-（第二层）mnuFileSep(分隔线）　　退出（第二层）mnuExit　　二.编辑菜单：　　编辑（第一层）mnuEdit　　复制（第二层）mnuCopy　　剪切（第二层）mnuCut　　粘贴（第二层）mnuPaste-（第二层）mnuEditSep（分隔线）　　全选（第二层）mnuSelecAll　　三.搜索菜单：　　

4、搜索（第一层）mnuSearch　　查找（第二层）mnuFind　　查找下一个（第二层）mnuFindOn　　四.帮助菜单：　　帮助（第一层）mnuHelp　　使用说明（第二层）mnuUsage　　关于（第二层）mnuAbout　　(注：各菜单项的快捷键请自行设置)　　好了，其它的菜单项以后再根据需要添加。现在进入：　　步骤三：编写代码　　'声明查找变量　　DimsFindAsString　　'声明文件类型　　DimFileType,FiTypeAsString　　　　'初始化程序　　PrivateSubForm_Load()　　'设置程序启动时的大小　　Me.H

5、eight=6000　　Me.Width=9000　　EndSub　　'设置编辑框的位置和大小PrivateSubForm_Resize()　　OnErrorResumeNext'出错处理　　RichTextBox1.Top=20　　RichTextBox1.Left=20　　RichTextBox1.Height=ScaleHeight-40　　RichTextBox1.Width=ScaleWidth-40　　EndSub　　新建文件PrivateSubmnuNew_Click()　　RichTextBox1.Text=""'清空文本框　　FileName="

6、未命名"　　Me.Caption=FileName　　EndSub　　'打开文件PrivateSubmnuOpen_Click()　　CommonDialog1.Filter="文本文档(*.txt)

7、*.txt

8、RTF文档(*.rtf)

9、*.rtf

10、所有文件(*.*)

11、*.*"　　CommonDialog1.ShowOpen　　RichTextBox1.Text=""'清空文本框　　FileName=CommonDialog1.FileName　　RichTextBox1.LoadFileFileName　　Me.Caption="超级记事本："&FileNam

12、e　　EndSub　'保存文件PrivateSubmnuSave_Click()　　CommonDialog1.Filter="文本文档(*.txt)

13、*.txt

14、RTF文档(*.rtf)

15、*.rtf

16、所有文件(*.*)

17、*.*"　　CommonDialog1.ShowSave　　FileType=CommonDialog1.FileTitle　　FiType=LCase(Right(FileType,3))　　FileName=CommonDialog1.FileName　　SelectCaseFiType　　Case"txt"　　RichTextBox1.Sa

18、veFil