用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)*.txtRTF文档(*.rtf)*.rtf所有文件(*.*)*.*"
  CommonDialog1.ShowOpen
  

• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用VB编写记事本 相关文章：
• ·用VB跟我学做记事本（很简单哟）
• ·用VB编写记事本
• ·用Java编写的记事本程序（1）
• ·鼠标右键新建记事本消失
• ·玩你没商量 小小记事本整美眉QQ
• ·直接双击就用记事本打开未知文件
• ·为什么我下的Vista有2G大,却是一个记事本?
• ·记事便条随心贴——Atnotes
• ·可别小看它！记事本暗藏技巧四则看
• ·用java启动记事本程序，并输入内容
• 用VB编写记事本 相关软件
• ·BDV Notepad[BDV记事本] V5.1 汉化版
• ·藏爱记事

上一篇:用VB打造自己的SQL连接器

下一篇:用VB设计VCD播放器的方法与技巧

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐