当前位置：文档之家 › VB 记事本

VB 记事本

  • 格式：doc
  • 大小：35.00 KB
  • 文档页数：7

End SubVB做自己个性记事本(代码已发出来)用VB做记事本其实很多方法可以用！这个源码发出来大家参考下！用VB做记事本用VB做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。

但本文只打算讨论用手动方法制作记事本，旨在向VB初学者展示：学VB原来是如此容易！通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用RichText控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。

第一章让我们的记事本马上运行急于求成是初学者共有的心愿。

那好，请按如下三个步骤做，我们的愿望立即就可以实现！步骤一：绘制界面。

新建一个标准EXE工程，将其Caption属性改为“超级记事本”，点击Icon属性给它找个合适的Icon图标。

单击菜单“工程”-“部件”，在弹出的“部件”对话框里找到Microsoft RichText Box 6.0和公共对话框Microsoft Common control 6.0并选中它们，单击“确定”按钮。

这时左边的工具栏上出现了我们刚才新添的两个控件了。

在窗体上绘制RichText Box和Commn control，其中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 = 6000Me.Width = 9000End Sub注释：设置编辑框的位置和大小Private Sub Form_Resize()On Error Resume Next RichTextBox1.Top=20RichTextBox1.Left=20RichTextBox1.Height = ScaleHeight-40RichTextBox1.Width = ScaleWidth-40End Sub注释：新建文件Private Sub mnuNew_Click()RichTextBox1.Text = "" 注释：清空文本框FileName = "未命名"Me.Caption = FileNameEnd Sub注释：打开文件Private Sub mnuOpen_Click()CommonDialog1.Filter ="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.Text = "" 注释：清空文本框FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNam eMe.Caption = "超级记事本：" & FileNameEnd Sub注释：保存文件Private Sub mnuSave_Click()CommonDialog1.Filter ="文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowSaveFileType = CommonDialog1.FileTitleFiType = LCase(Right(FileType, 3))FileName = CommonDialog1.FileNameSelect Case FiTypeCase "txt"RichTextBox1.SaveFile FileName, rtfTextCase "rtf"RichTextBox1.SaveFile FileName, rtfRTFCase "*.*"RichTextBox1.SaveFile FileNameEnd SelectMe.Caption = "超级记事本：" & FileNameEnd Sub注释：退出Private Sub mnuExit_Click()EndEnd Sub注释：复制Private Sub mnuCopy_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd Sub注释：剪切Private Sub mnuCut_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End Sub注释：全选Private Sub mnuSelectAll_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End Sub注释：粘贴Private Sub mnuPaste_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub注释：查找Private Sub mnuFind_Click()sFind = Input Box("请输入要查找的字、词：", "查找内容", sFind)RichTextBox1.Find sFindEnd Sub注释：继续查找Private Sub mnuFindOn_Click()RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1 RichTextBox1.Find sFind, , Len(RichTextBox1)End Sub注释：使用说明Private Sub mnuReadme_Click()On Error GoTo handlerRichTextBox1.LoadFile "Readme.txt", rtfText 注释：请写好Readme.txt文件并存入程序所在文件夹中Me.Caption = "超级记事本：" & "使用说明"Exit Subhandler:MsgBox "使用说明文档可能已经被移除，请与作者联系。

", vbOKOnly, " 错误信息"End Sub注释：关于Private Sub mnuAbout_Click()MsgBox "超级记事本Ver1.0 版权所有(C) 2001 土人",vbOKOnly,"关于"End Sub注释：设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPopupMenu mnuEdit, vbPopupMenuLeftAlignElseExit SubEnd IfEnd Sub注释：防止在切换输入法时字体自变(感谢王必成先生提供此方案)Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd Sub至此，我们的记事本可以编译使用了。

点击菜单“文件”-“生成XXX.EX E”，回到桌面运行我们的记事本看看，是不是颇有成就感？当然，这样的记事本还比较粗糙,我们还需要做些工作，请看下一章。

第二章美化程序界面多数字处理软件都有工具栏和状态栏。

工具栏和状态栏除了能美化我们的程序使其更具有专业性质外，还给用户带来操作上的便利。

现在我们就来做一做这两样东西。

一.工具栏(一)制作工具栏单击“工程”-“部件”，选中Microsoft Windows Common Control 6.0并确定。

这时，我们要用到的控件就出现在左边的工具栏上了。

要做工具栏，首先需要一个叫ImageList的控件来装载图像。

在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”就可以一次性装载图片了（如不满意，以后还可以添加）。

图片可在C:\Microsoft Visual Studio\Common\Graphics\Bit m aps\TlBr_W95下选择(这里假设你的VB安装在C盘下)。

注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。

如插入“新建”的图片，我们在“关键字”栏注明“New”。

图片有了，接下来在程序界面添加工具栏(ToolBar)。

添加后工具栏就出现在菜单下面，右键单击它，选择“属性”，在弹出的“属性页”对话框中的“通用”项作些设置，主要如下两项：1.“图像列表”：选择ImageList12.“样式”：根据喜爱选择1-trbStandard或者2-trbFlat继续点击“属性页”的“按钮”选项，插入若干按钮。

合集下载

vb记事本控件属性

vb记事本控件属性

RichTextBox控件的常用属性属性说明(Name)RichTextBox控件的名称 (自定义)打开属性页 Appearance是否用立体效果绘制。

取值为： 0 rtfFlat(平面)1 rtfThreeD(立体) AutoVerbMenu返回或设置该控件是否能作为 OLE放下目标。

取值为： TrueFalseBackColor背景颜色。

可从弹出的调色板选择。

BorderStyle获得或设置对象的边框样式。

取值为： 0 rtfNone(无边界线)1 rtfFixedSingle(固定单线框)BulletIndent返回或设置当 SelBullet设为 True时，RichTextBox控件中的缩进数量。

CauseValidation该控件获得焦点时，失去焦点的控件的 Validate事件是否发生。

取值为： True 发生 False 不发生DataBindings获得或设置一数据绑定集合对象，他收集开发人员可利用的可绑定属性。

DataField获得或设置一个值，将控件绑定到当前记录的一个字段 DataFormat返回数据格式对象，用于该部件的可绑定性(打开属性页) DataMember获得或设置一个值，为数据连接描述数据成员DataSource设置一个数值，指出数据控件通过它将当前控件绑定到数据库 DisableNoScroll 返回或设置一个值，决定 RichTextBox控件的滚动条是否无效。

取值为： True False DragIcon该对象在拖动过程中鼠标的图标 DragMode该对象的拖动模式。

取值为： 0 vbManual(手动) 1 vbAutomatic(自动) Enabled用于设定是否对事件产生响应。

取值为： True 可用False 不可用。

在执行程序时，该对象用灰色显示，并且不响应任何事件 FileName获得或设置设计时加载到 RichTextBox控件的文件的文件名。

VB编程——创建记事本——济源职业技术学院

VB编程——创建记事本——济源职业技术学院

创建记事本步骤：1．设计菜单如下父菜单标题子菜单标题菜单名文件 file新建 file_new打开 file_open保存 file_save - file_line退出 file_exit编辑 edit剪切 edit_cut复制 edit_copy粘贴 edit_paste删除 edit_dele字体 zt颜色 ys帮助 help2．设计窗体界面如下：3．添加rich textbox control6.0控件，命名为text1,界面如下：4．添加窗体的resize事件Private Sub Form_Resize()Text1.Top = 50Text1.Left = 50Text1.Width = Form1.Width - 200Text1.Height = Form1.Height - 5005．添加菜单file的各项子菜单功能（在窗体上添加一个通用对话框控件，命名为CD）新建子菜单功能：Private Sub file_new_Click()b = MsgBox("是否保存?", vbYesNo, "提示信息")If b = vbYes ThenCall file_save_Click ‘调用保存End IfText1.Text = ""End Sub打开子菜单功能：Private Sub file_open_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowOpenText1.LoadFile CD.FileNameEnd Sub保存子菜单功能：Private Sub file_save_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowSaveText1.SaveFile CD.FileNameEnd Sub退出子菜单功能：Private Sub file_exit_Click()b = MsgBox("确定要退出吗?", vbYesNo, "提示信息")If b = vbYes ThenEndEnd IfEnd Sub6. 添加菜单编辑菜单的各项子菜单功能(注意要在通用下定义一个变量Dim s As String,和粘贴板功能类似)Dim s As String复制子菜单功能：Private Sub edit_copy_Click()s = Text1.SelTextEnd Sub剪切子菜单功能:Private Sub edit_cut_Click()s = Text1.SelTextText1.SelText = ""End Sub删除子菜单功能:Private Sub edit_dele_Click()Text1.SelText = ""粘贴子菜单功能:Private Sub edit_paste_Click()Text1.Text = Left(Text1.Text, Text1.SelStart) + s + Mid(Text1.Text, Text1.SelStart + 1)End Sub7. 字体菜单功能Private Sub zt_Click()CD.Flags = 3CD.ShowFontText1.SelFontName = CD.FileNameText1.SelBold = CD.FontBoldText1.SelFontSize = CD.FontSizeEnd Sub8.颜色菜单功能Private Sub ys_Click()CD.Flags = 2CD.ShowColorText1.SelColor = CD.ColorEnd Sub9. 帮助菜单功能Private Sub help_Click()CD.HelpCommand = cdlHelpForceFileCD.HelpFile = "c:\WINNT\VB5DEF.HLP" '请大家搜索任意一个扩展名为hlp的文件CD.ShowHelp '显示Windows帮助引擎End Sub创建记事本步骤：1．设计菜单如下父菜单标题子菜单标题菜单名文件 file新建 file_new打开 file_open保存 file_save - file_line退出 file_exit编辑 edit剪切 edit_cut复制 edit_copy粘贴 edit_paste删除 edit_dele字体 zt颜色 ys帮助 help2．设计窗体界面如下：3．添加rich textbox control6.0控件，命名为text1,界面如下：4．添加窗体的resize事件Private Sub Form_Resize()Text1.Top = 50Text1.Left = 50Text1.Width = Form1.Width - 200Text1.Height = Form1.Height - 500End Sub5．添加菜单file的各项子菜单功能（在窗体上添加一个通用对话框控件，命名为CD）新建子菜单功能：Private Sub file_new_Click()b = MsgBox("是否保存?", vbYesNo, "提示信息")If b = vbYes ThenCall file_save_Click ‘调用保存End IfText1.Text = ""End Sub打开子菜单功能：Private Sub file_open_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowOpenText1.LoadFile CD.FileNameEnd Sub保存子菜单功能：Private Sub file_save_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowSaveText1.SaveFile CD.FileNameEnd Sub退出子菜单功能：Private Sub file_exit_Click()b = MsgBox("确定要退出吗?", vbYesNo, "提示信息")If b = vbYes ThenEndEnd IfEnd Sub6. 添加菜单编辑菜单的各项子菜单功能(注意要在通用下定义一个变量Dim s As String,和粘贴板功能类似)Dim s As String复制子菜单功能：Private Sub edit_copy_Click()s = Text1.SelTextEnd Sub剪切子菜单功能:Private Sub edit_cut_Click()s = Text1.SelTextText1.SelText = ""End Sub删除子菜单功能:Private Sub edit_dele_Click()Text1.SelText = ""End Sub粘贴子菜单功能:Private Sub edit_paste_Click()Text1.Text = Left(Text1.Text, Text1.SelStart) + s + Mid(Text1.Text, Text1.SelStart + 1)End Sub7. 字体菜单功能Private Sub zt_Click()CD.Flags = 3CD.ShowFontText1.SelFontName = CD.FileNameText1.SelBold = CD.FontBoldText1.SelFontSize = CD.FontSizeEnd Sub8.颜色菜单功能Private Sub ys_Click()CD.Flags = 2CD.ShowColorText1.SelColor = CD.ColorEnd Sub9. 帮助菜单功能Private Sub help_Click()CD.HelpCommand = cdlHelpForceFileCD.HelpFile = "c:\WINNT\VB5DEF.HLP" '请大家搜索任意一个扩展名为hlp的文件CD.ShowHelp '显示Windows帮助引擎End Sub创建记事本步骤：1．设计菜单如下父菜单标题子菜单标题菜单名文件 file新建 file_new打开 file_open保存 file_save - file_line退出 file_exit编辑 edit剪切 edit_cut复制 edit_copy粘贴 edit_paste删除 edit_dele字体 zt颜色 ys帮助 help2．设计窗体界面如下：3．添加rich textbox control6.0控件，命名为text1,界面如下：4．添加窗体的resize事件Private Sub Form_Resize()Text1.Top = 50Text1.Left = 50Text1.Width = Form1.Width - 200Text1.Height = Form1.Height - 5005．添加菜单file的各项子菜单功能（在窗体上添加一个通用对话框控件，命名为CD）新建子菜单功能：Private Sub file_new_Click()b = MsgBox("是否保存?", vbYesNo, "提示信息")If b = vbYes ThenCall file_save_Click ‘调用保存End IfText1.Text = ""End Sub打开子菜单功能：Private Sub file_open_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowOpenText1.LoadFile CD.FileNameEnd Sub保存子菜单功能：Private Sub file_save_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowSaveText1.SaveFile CD.FileNameEnd Sub退出子菜单功能：Private Sub file_exit_Click()b = MsgBox("确定要退出吗?", vbYesNo, "提示信息")If b = vbYes ThenEndEnd IfEnd Sub6. 添加菜单编辑菜单的各项子菜单功能(注意要在通用下定义一个变量Dim s As String,和粘贴板功能类似)Dim s As String复制子菜单功能：Private Sub edit_copy_Click()s = Text1.SelTextEnd Sub剪切子菜单功能:Private Sub edit_cut_Click()s = Text1.SelTextText1.SelText = ""End Sub删除子菜单功能:Private Sub edit_dele_Click()Text1.SelText = ""粘贴子菜单功能:Private Sub edit_paste_Click()Text1.Text = Left(Text1.Text, Text1.SelStart) + s + Mid(Text1.Text, Text1.SelStart + 1)End Sub7. 字体菜单功能Private Sub zt_Click()CD.Flags = 3CD.ShowFontText1.SelFontName = CD.FileNameText1.SelBold = CD.FontBoldText1.SelFontSize = CD.FontSizeEnd Sub8.颜色菜单功能Private Sub ys_Click()CD.Flags = 2CD.ShowColorText1.SelColor = CD.ColorEnd Sub9. 帮助菜单功能Private Sub help_Click()CD.HelpCommand = cdlHelpForceFileCD.HelpFile = "c:\WINNT\VB5DEF.HLP" '请大家搜索任意一个扩展名为hlp的文件CD.ShowHelp '显示Windows帮助引擎End Sub创建记事本步骤：1．设计菜单如下父菜单标题子菜单标题菜单名文件 file新建 file_new打开 file_open保存 file_save - file_line退出 file_exit编辑 edit剪切 edit_cut复制 edit_copy粘贴 edit_paste删除 edit_dele字体 zt颜色 ys帮助 help2．设计窗体界面如下：3．添加rich textbox control6.0控件，命名为text1,界面如下：4．添加窗体的resize事件Private Sub Form_Resize()Text1.Top = 50Text1.Left = 50Text1.Width = Form1.Width - 200Text1.Height = Form1.Height - 5005．添加菜单file的各项子菜单功能（在窗体上添加一个通用对话框控件，命名为CD）新建子菜单功能：Private Sub file_new_Click()b = MsgBox("是否保存?", vbYesNo, "提示信息")If b = vbYes ThenCall file_save_Click ‘调用保存End IfText1.Text = ""End Sub打开子菜单功能：Private Sub file_open_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowOpenText1.LoadFile CD.FileNameEnd Sub保存子菜单功能：Private Sub file_save_Click()CD.Filter = "所有文件(*.*)|*.*|(*.txt)|*.txt"CD.ShowSaveText1.SaveFile CD.FileNameEnd Sub退出子菜单功能：Private Sub file_exit_Click()b = MsgBox("确定要退出吗?", vbYesNo, "提示信息")If b = vbYes ThenEndEnd IfEnd Sub6. 添加菜单编辑菜单的各项子菜单功能(注意要在通用下定义一个变量Dim s As String,和粘贴板功能类似)Dim s As String复制子菜单功能：Private Sub edit_copy_Click()s = Text1.SelTextEnd Sub剪切子菜单功能:Private Sub edit_cut_Click()s = Text1.SelTextText1.SelText = ""End Sub删除子菜单功能:Private Sub edit_dele_Click()Text1.SelText = ""粘贴子菜单功能:Private Sub edit_paste_Click()Text1.Text = Left(Text1.Text, Text1.SelStart) + s + Mid(Text1.Text, Text1.SelStart + 1)End Sub7. 字体菜单功能Private Sub zt_Click()CD.Flags = 3CD.ShowFontText1.SelFontName = CD.FileNameText1.SelBold = CD.FontBoldText1.SelFontSize = CD.FontSizeEnd Sub8.颜色菜单功能Private Sub ys_Click()CD.Flags = 2CD.ShowColorText1.SelColor = CD.ColorEnd Sub9. 帮助菜单功能Private Sub help_Click()CD.HelpCommand = cdlHelpForceFileCD.HelpFile = "c:\WINNT\VB5DEF.HLP" '请大家搜索任意一个扩展名为hlp的文件CD.ShowHelp '显示Windows帮助引擎End Sub。

VB简易记事本优秀教案

VB简易记事本优秀教案

教案注：课程类别：公共基础课专业基础课专业必修课专业选修课公共选修课等授课主要内容与教学过程设计（一）教法设计“简易记事本”的制作是本项目的主要任务，教学过程中将“简易记事本”分解为1、菜单制作；2、工具栏与组合框制作；3、高级文本框与通用对话框三个任务进行授课。

最后再将三个任务综合，完成“简易记事本”的制作。

教学过程中学生模仿练习是授课过程中学生拓展提高的主要方法，要求学生在每个任务结束时要提交分解后的小作品。

每个任务的教学流程图如下：（二）授课主要内容及流程时间安排教学内容与教学过程教学方法与学习指导教师活动学生活动5分钟一、新课导入：1、演示“简易记事本”程序，同时将“简易记事本”可执行文件传输到学生机，让学生进行项目操作感受。

2、分解“简易记事本”，提出任务1的制作要求：制作如程序所示菜单栏。

3、操作“菜单”，让学生试着分析每一个菜单的部件和排版；（提问）①“菜单”的分类：下拉式菜单和弹出式菜单②主菜单、子菜单、菜单标题、菜单项、分隔线、快捷键、访问键设疑：菜单是怎么样创建出来的？4、引出“菜单编辑器”，介绍其打开方法：打开【菜单编辑器】的方法通过以下四种方法可以打开【菜单编辑器】：（1）在【工具】菜单中选择【菜单编辑器】选项。

（2）在工具栏上单击【菜单编辑器】按钮。

（3）在当前窗体上单击鼠标右键，将弹出一个快捷菜单，然后选择【菜单编辑器】选项。

（4）在当前窗体上使用热键“Ctrl + E”1、操作感受“简易记事本”程序；2、重点观察分析“菜单”组成。

教学方法：1、集中启发式教学；2、演示激趣；3、设疑导入。

学习指导：1、边演示边指出“简易记事本”的组成部件，引出本节课重点“菜单的制作”；2、引入“菜单编辑器”打开方法。

演示“简易记事本”程序分解任务知识点授课导学资料学生独立或相互合作完成知识点练习学生独立模仿制作分解任务教师分步引导、总结学生展示讲解小作品教师课堂总结学生提交小作品时间安排教学内容与教学过程教学方法与学习指导教师活动学生活动10分钟二、“菜单编辑器”结构1、【菜单编辑器】的结构【菜单编辑器】主要分为三个部分，即数据区、编辑区和菜单项显示区。

vb记事本编程源程序

vb记事本编程源程序

vb记事本编程源程序Option ExplicitDim filename As StringDim FileType As StringDim FiType As StringDim sFind As StringDim result As StringDim bWrap As BooleanDim ask As BooleanDim msgtext As StringDim Flag As StringPrivate Sub Form_Load()ask = FalseRichText.Text = ""filename = "无标题-记事本"Form1.Caption = "无标题-记事本" RichText.Height = Form1.ScaleHeight RichText.Width = Form1.ScaleWidth StatusBar1.Visible = False StatusBar1.Panels(1).Text = Time mnucopy.Enabled = False mnucut.Enabled = False mnufound.Enabled = False mnufoundnext.Enabled = False mnudel.Enabled = False mnucancel.Enabled = False mnuwordwrap.Checked = Truemnugoto.Enabled = FalseIf Clipboard.GetText <> "" Thenmnuplaster.Enabled = TrueElsemnuplaster.Enabled = FalseEnd IfApp.HelpFile = App.Path & "\notepad.chm"End SubPrivate Sub Form_Resize()RichText.Height = Form1.ScaleHeightRichText.Width = Form1.ScaleWidthEnd SubPrivate Sub Form_Unload(Cancel As Integer)msgtext = "文件" & filename & "的文字已经改变。