VB编程——创建记事本——济源职业技术学院
用VB设计能自动存盘的记事本
用VB设计能自动存盘的记事本
佚名
【期刊名称】《家庭电脑世界》
【年(卷),期】2004(000)12X
【摘要】新建一个工程，在窗体上添加一个时钟控件，并将属性INTBRVAL的值设置为1000(即1秒），再添加一个Label控件、一个TEXT控件textl和UpDown控件updown1．并设置updown1的autobuddy属性为“true”；buddyproperty属性为“Text”：increment属性为“1”：max属性为“20”：【总页数】1页(P59)
【正文语种】中文
【中图分类】TP311
【相关文献】
1.基于VB平台的DVB-T接收机自动测试系统的设计 [J], 吴志刚
2.基于VB,ACAD,VBA的结构基础模块计算机自动处理的研究设计 [J], 贺振为
3.记事本也能自动存盘 [J], 飞雪马
4.基于HTML5的手机端记事本设计r基于HTML5的手机端记事本设计 [J], 张
淑红
5.基于Excel VBA技术的门诊药房辅助库存盘点程序设计 [J], 闫冰洋; 李洁; 李维凤
因版权原因，仅展示原文概要，查看原文内容请购买。
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课程设计记账本一、教学目标本节课的学习目标包括：1.知识目标：学生需要掌握VB编程语言的基本语法、数据类型、变量、运算符等基本知识。
2.技能目标：学生能够运用VB编程语言实现简单的记账本功能，包括增加、删除、修改和查询账目信息。
3.情感态度价值观目标：通过学习VB编程，培养学生对计算机科学的兴趣，提高学生解决问题的能力，培养学生的团队合作意识。
二、教学内容本节课的教学内容主要包括：1.VB编程语言的基本语法和数据类型。
2.变量和运算符的概念及使用方法。
3.记账本的基本功能实现，包括增加、删除、修改和查询账目信息。
三、教学方法本节课采用以下教学方法：1.讲授法：教师讲解VB编程语言的基本语法、数据类型、变量、运算符等知识。
2.案例分析法：教师展示记账本的实际案例，引导学生分析并实现记账本功能。
3.实验法：学生动手实践，编写VB程序实现记账本功能。
四、教学资源本节课所需教学资源包括：1.教材：《VB编程入门》2.参考书：《VB编程进阶》3.多媒体资料：PPT课件4.实验设备：计算机、投影仪五、教学评估本节课的评估方式包括：1.平时表现：观察学生在课堂上的参与程度、提问回答等情况，占总成绩的30%。
2.作业：布置与课程内容相关的编程作业，要求学生在规定时间内完成，占总成绩的30%。
3.考试：期末进行VB编程考试，测试学生对课程知识的掌握程度，占总成绩的40%。
六、教学安排本节课的教学安排如下：1.课时：共10课时，每课时45分钟。
2.教学时间：每周五下午第三节课。
3.教学地点：计算机实验室。
4.教学进度：按照教材《VB编程入门》的章节顺序进行教学，每个章节安排相应的课时。
七、差异化教学针对不同学生的学习风格、兴趣和能力水平，本节课采取以下差异化教学措施：1.针对学习风格不同的学生，采用多样化的教学方法，如讲授、实践、讨论等。
2.针对兴趣不同的学生，提供与VB编程相关的拓展资源，如游戏开发、建设等。
VB设计记事本程序_VB编程
“格式（O）”菜单的属性设置如表11-3所示。
Text属性 Name属性 Check属性 ShowShortcut Keys属性
格式(&O) menuFor False mat
False
自动换行 menuAuto True (&W)
False
字体(&F) menuFont False
False
Visual Basic 2005 编程基础与项目实践——第11章 记事本
(&A)
ut5 编程基础与项目实践——第11章 记事本
ToolStrip
Visual Basic 2005 编程基础与项目实践——第11章 记事本
RichTextBox
添加一个RichTextBox控件，将控件的大小调整接近窗体 的边缘，并将其Name属性设为“richTextBox”， Anchor属性选择“Top，Bottom，Left，Right”，这样 当窗体大小改变时，richTextBox也会跟着改变，如图 11-5所示。
“查看（V）”菜单的属性设置如表11-4所示。
Text属性 Name属性 Check属性 ShowShortcut Keys属性
查看(&V) menuView False
False
工具栏 (&T)
menuTool True Bar
状态栏(&S) menuState True Bar
False False
记事本具有文件的新建、打开、保存功能；文字的复制、粘贴、删除功能； 字体类型、格式的设置功能；查看日期时间等功能，并且可以根据需要显 示或者隐藏工具栏和状态栏。
Visual Basic 2005 编程基础与项目实践——第11章 记事本
vb课程设计--记事本程序的编写
1 选题的背景与意义1.1 记事本创建的背景通过一学期的vb课程学习，理解并掌握了许多相关知识，知道了面向对象程序设计的基本概念和可视化程序设计的基本方法。
为了更好地掌握与运用vb 中最常用的有关窗体和各种控件的运用、菜单、工具栏、对话框、状态栏、的设计以及文件操作等技术，因此在在学完该课程之后，设计了一个能够编辑编辑文本文档、RichText 文档，其文字处理能力类似于Word的简易记事本。
1.2 记事本创建的意义该记事本具有操作简单，易懂灵活，一目了然的特点，同时由于运用了RichText控件，因此能够打开和编辑任意大的文档，运用起来比windows自带的记事本方便的多。
从而为那些计算机技术应用并不熟练但需要使用计算机快速编辑和修改文档的用户提供了便利。
同时该程序的编写也使得自己的知识掌握的更见牢固。
2 系统详细设计2.1 主要功能能够编辑文本文档，其文字处理功能类似于Word。
具有打开、保存、新建和退出文件功能。
具有剪切、复制、粘贴、设置文字的字体以及大小、颜色、对齐等文字编功能。
以及字符串的查找功能。
打印功能。
2.2 要点的实现既使用技术首先，在创建程序是应先设置窗体大小和编辑框的大小。
'窗体的加载事件Private Sub Form_Load()Form1.Top = 0Form1.Left = 0Me.Height = Screen.Height - 4000Me.Width = Screen.Width - 5000CommonDialog1.FontName = "宋体" '程序运行时字体是宋体End Sub'设置编辑框的大小和位置Private Sub Form_Resize()RichTextBox1.Top = 60RichTextBox1.Left = 20RichTextBox1.Height = Me.Height - 100RichTextBox1.Width = Me.Width - 100End Sub第二，程序设计过程中必须先在窗体中添加CommonDialog和RichText控件。
VB记事本的课程设计
一功能分析（1）目标：实现类似与WINDOWS平台下的记事本程序。
（2）涉及功能：新建、打开、保存、另存为、退出、编辑、撤销、复制、粘贴、剪切、删除、查找、全选、打印、格式、字体、颜色、查看、状态栏、帮助、关于等二设计安排（1）查资料（2）初步规划工程步骤（3）开始工程设计：1）建立一个标准的EXE工程。
2）确定窗体Form1的主要属性：Caption3）窗体中添加控件：Timer1 CommonDialog1 VScroll1 HScroll14）添加设置状态栏和工具栏5）编辑菜单控件属性6）编写代码（4）运行工程（5）结束三．界面设计见上传作业四．控件属性设置五．状态栏属性设置六．菜单属性设置见上传作业七．代码设置Dim filecount As IntegerDim inputdata As StringDim TargetPosition As IntegerDim pos As IntegerDim targey As StringDim neirong As StringPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button) Select Case ButtonCase "新建"Call mnunew_ClickCase "打开"Call mnuopen_ClickCase "剪切"Call mnuCut_ClickCase "复制"Call mnucopy_ClickCase "粘贴"Call mnupaste_ClickCase "保存"Call mnusave_ClickCase "查找"Call mnufind_ClickEnd SelectEnd SubPrivate Sub Toolbar2_ButtonClick(ByVal Button As MSComCtlLib.Button) On Error Resume NextSelect Case Button.KeyCase "新建"mnunew_ClickCase "打开"mnuopen_ClickCase "剪切"mnuCut_ClickCase "粘贴"mnupaste_ClickCase "保存"mnusave_ClickCase "查找"mnufind_ClickEnd SelectEnd SubPrivate Sub Form_Load()StatusBar1.Panels(1).Text = TimeText1.Text = ""Text1.Left = 0Text1.Top = 550Text1.Width = Form1.ScaleWidthText1.Height = Form1.ScaleHeightmnucut.Enabled = Falsemnucopy.Enabled = Falsemnudelete.Enabled = Falsemnuselectall.Enabled = Falsemnupaste.Enabled = Truemnuleft.Checked = TrueEnd SubPrivate Sub Form_Resize() '如果窗体不处于最小化text1状态，改变text1大小以适应窗体大小变化If Form1.WindowState <> 1 ThenText1.Width = Form1.Width - 120If Form1.Height < 1200 ThenForm1.Height = 1200End IfText1.Height = Form1.Height - 1350End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Dim msg As IntegerIf Text1.Text <> neirong Thenmsg = MsgBox(" 内容已被修改,是否保存文件", 48 + vbYesNoCancel, "提示")If msg = vbYes ThenOn Error GoTo ErrCommonDialog1.DialogTitle = "保存文件"CommonDialog1.Filter = "文本文件|*.txt"CommonDialog1.CancelError = TrueCommonDialog1.ShowSaveOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1Err:If Err.Number = cdlCancel ThenCancel = TrueEnd IfElseIf msg = vbNo ThenEndElseIf msg = vbCancel ThenCancel = TrueEnd IfElseEndEnd IfEnd SubPrivate Sub mnunew_Click() '新建Text1.Text = ""End SubPrivate Sub mnuopen_Click() '打开Dim inputdata As StringOn Error GoTo nofileCommonDialog1.Filter = "文本文件|*.txt"CommonDialog1.CancelError = TrueCommonDialog1.ShowOpenText1.Text = ""If CommonDialog1.FileName <> "" ThenOpen CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text & inputdata & vbCrLoopClose #1End IfExit Subnofile:If Err.Number = 32755 Then Exit SubEnd SubPrivate Sub mnusave_Click() '保存On Error Resume NextCommonDialog1.DialogTitle = "保存文件"CommonDialog1.Filter = "文本文件|*.txt"CommonDialog1.CancelError = TrueCommonDialog1.ShowSaveOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1End SubPrivate Sub mnusaveas_Click() '另存为On Error Resume NextCommonDialog1.Filter = "文本文件|*.txt" CommonDialog1.CancelError = TrueCommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1End SubPrivate Sub Text1_Change()If Text1.Text = "" Thenmnufind.Enabled = FalsemnuNext.Enabled = FalseElsemnufind.Enabled = Truemnuselectall.Enabled = TrueEnd IfEnd SubPrivate Sub mnuexit_Click() '退出EndEnd SubPrivate Sub mnuedit_Click() '编辑If Text1.SelLength <> 0 Then ' 如果文本框中没有选中的内容,则剪切\复制\删除和粘贴菜单无效,否则有效mnucut.Enabled = Truemnucopy.Enabled = Truemnudelete.Enabled = Truemnupaste.Enabled = TrueElsemnucut.Enabled = Falsemnucopy.Enabled = Falsemnudelete.Enabled = FalseEnd IfEnd SubPrivate Sub mnucancel_Click() '撤销MsgBox "点击鼠标右键撤销！", vbOKOnly, "提示"End SubPrivate Sub mnucopy_Click() '复制利用SetText 方法,将选中的文本放入剪贴板上Clipboard.SetText Text1.SelTextEnd SubPrivate Sub mnuCut_Click() '剪切Clipboard.SetText Text1.SelTextText1.SelText = ""End SubPrivate Sub mnupaste_Click() '粘贴用GetText1 方法,将剪切板中的内容粘贴到光标所在位置Text1.SelText = Clipboard.GetText()End SubPrivate Sub mnuprint_Click() '打印On Error Resume NextCommonDialog1.ShowPrinterPrinter.Copies = CommonDialog1.CopiesPrinter.Print Text1.TextEnd SubPrivate Sub mnudelete_Click() '删除Text1.SelText = ""End SubPrivate Sub mnuselectall_Click() '全选Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub mnufont_Click() '字体On Error GoTo mnusave:CommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.ShowFontIf CommonDialog1.FontName > "" ThenText1.FontName = CommonDialog1.FontName End IfText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.FontBold = CommonDialog1.FontBoldText1.ForeColor = CommonDialog1.Color mnusave:If Err.Number < 0 ThenExit SubEnd IfEnd SubPrivate Sub mnufontcolor_Click() '字体颜色CommonDialog1.ShowColorText1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub mnuleft_Click() '左对齐Text1.Alignment = 0mnuleft.Checked = Truemnuright(1).Checked = Falsemnuright(2).Checked = FalseEnd SubPrivate Sub mnufind_Click() '查找FindText 1mnuNext.Enabled = TrueEnd SubPrivate Sub mnuNext_Click() '查找下一个FindTex TargetPosition + 1End SubPrivate Sub FindText(ByVal start_at As Integer) '获取用户输入的要查找的字符串targey = InputBox("请输入要查找的内容", "查找")pos = InStr(start_at, Text1.Text, targey)If pos > 0 Then '找到了匹配字符串TargetPosition = posForm1.Text1.SelStart = TargetPosition - 1Form1.Text1.SelLength = Len(targey) '选中找到的字符串Form1.Text1.SetFocusElse '没有找到匹配的字符串MsgBox "没找到匹配的字符串", 48, "提示"Form1.Text1.SetFocusEnd IfEnd SubPrivate Sub mnuright_Click(Index As Integer) '右对齐\居中Select Case IndexCase 1Text1.Alignment = 1mnuleft.Checked = Falsemnuright(1).Checked = Truemnuright(2).Checked = FalseCase 2Text1.Alignment = 2mnuleft.Checked = Falsemnuright(1).Checked = Falsemnuright(2).Checked = TrueEnd SelectEnd SubPrivate Sub mnustatusbar_Click() '状态栏If mnustatusbar.Checked ThenStatusBar1.Visible = Falsemnustatusbar.Checked = FalseElseStatusBar1.Visible = Truemnustatusbar.Checked = TrueEnd IfEnd SubPrivate Sub Timer1_Timer() '时钟If StatusBar1.Panels(1).Text <> CStr(Time) ThenStatusBar1.Panels(1).Text = TimeEnd IfEnd SubPrivate Sub mnuabout_Click() '关于MsgBox "记事本版权所有蓝久莲和黄慧玲" End SubPrivate Sub mnuhelptopic_Click() '帮助主题Shell ("notepad 帮助文件.txt")End Sub八．运行结果（1）实现了在功能分析中要求实现的功能，具体界面如上传的作业（2）运行结果界面见上传作业九．工程设计过程中遇到的问题及解决方法（一）问题（1）.如何添加通用对话框，状态栏，工具栏控件（2）.保存后无法打开窗体文件，出现加载错误提示（3）.即使强行加载窗体文件，在运行时也出现“要求对象错误”（4）.在运行过程中出现对象未定义错误（二）解决方法（一）通过在网上查找资料以及在图书馆借阅相关资料，最终得以解决。
vb课程设计记账本
vb课程设计记账本一、教学目标本节课的学习目标包括以下三个方面：1.知识目标：学生需要掌握VB编程语言的基本语法和程序结构，了解事件驱动编程思想，并能够运用VB编写简单的记账本程序。
2.技能目标：学生能够熟练使用VB集成开发环境（IDE），进行程序的编写、调试和运行；能够运用所学的VB知识，解决实际问题，如编写一个简单的记账本程序。
3.情感态度价值观目标：培养学生对计算机编程的兴趣和好奇心，增强学生自主学习的意识和能力，培养学生团队合作的精神和良好的编程习惯。
二、教学内容本节课的教学内容主要包括以下几个部分：1.VB编程语言的基本语法和程序结构，如变量、数据类型、运算符、控制结构等。
2.事件驱动编程思想，如鼠标事件、键盘事件等。
3.VB集成开发环境（IDE）的使用，如代码编辑、调试和运行等。
4.记账本程序的设计与实现，包括界面设计、数据存储和处理等。
三、教学方法为了达到本节课的教学目标，将采用以下几种教学方法：1.讲授法：讲解VB编程语言的基本语法和程序结构，事件驱动编程思想等理论知识。
2.案例分析法：分析记账本程序的设计与实现，让学生了解并掌握实际应用中的编程技巧。
3.实验法：让学生动手编写和调试VB程序，培养学生的实际编程能力。
4.讨论法：分组讨论问题，培养学生的团队合作精神和沟通能力。
四、教学资源为了保证本节课的教学质量，将准备以下教学资源：1.教材：《VB编程入门》2.参考书：《VB编程实例解析》3.多媒体资料：VB编程教学视频、PPT等。
4.实验设备：计算机、网络等。
以上是本节课的教学设计，希望能够帮助学生更好地掌握VB编程知识，提高编程能力。
五、教学评估本节课的评估方式主要包括以下几个方面：1.平时表现：通过观察学生在课堂上的参与程度、提问回答、小组讨论等表现，评估学生的学习态度和积极性。
2.作业：布置与本节课内容相关的编程作业，评估学生对知识的理解和应用能力。
3.考试：进行一次课程考试，测试学生对VB编程语言的基本语法、程序结构和事件驱动编程思想的掌握程度。
VB编写的记事本实验报告
一、实验要求利用vb程序编写记事本，实现记事本的打开、保存、新建、编辑等一般功能。
二、实验目的掌握菜单编辑器的建立、控制，记事本新建打开保存的程序代码，理解并运用CommonDialog的属性和功能等内容。
三、设计软件所实现的功能实现记事本的功能如下：文件的新建、打开、保存、另存为、打印、退出功能，编辑的复制、粘贴、剪切、全选、时间\日期功能，以及格式里的字体功能。
四、设计介绍1、先利用菜单编辑器设计记事本的整体框架，如下图：2、通过在控件工具箱上右击点部件，找到Microsoft Commom Dialog Control 6.0将其左边的复选框勾上，选择确定，这样控件工具箱里就多了这个CommomDialog控件，将其拖拽到窗体上。
3、然后单击各个子菜单项，进入代码界面编写代码。
主要的代码如下：新建代码：Private Sub xinjian_Click()a = MsgBox("要保存吗？", 3, "记事本")If a = 6 Thenbaocun_ClickElseIf a = 7 ThenText1.Text = ""End IfEnd Sub打开的代码：Private Sub dakai_Click()a = MsgBox("要保存吗？", 3, "记事本")If a = 6 Thenbaocun_ClickElseIf a = 7 ThenCommonDialog1.FileName = ""CommonDialog1.Flags = vbofnfilemustexistCommonDialog1.Filter = "all files |*.*|(.exe)|*.exe|(*.txt)|*.txt"CommonDialog1.FilterIndex = 3CommonDialog1.DialogTitle = "open file(*.txt)"CommonDialog1.Action = 1form1.Caption = CommonDialog1.FileNameIf CommonDialog1.FileName = "" ThenMsgBox "no file selectd", 37, "checking"ElseText1.Text = ""Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, aText1.Text = Text1.Text + a + Chr$(13) + Chr$(10)LoopEnd IfEnd IfEnd Sub保存的代码：Private Sub baocun_Click()If CommonDialog1.FileName <> "" ThenOpen CommonDialog1.FileName For Output As #3Print #3, Text1.TextClose #3ElseCommonDialog1.DefaultExt = "txt"CommonDialog1.FileName = "1bw.txt"CommonDialog1.Filter = "text files(*.txt)|*.txt|all files(*.*)|*.*"CommonDialog1.FilterIndex = 1CommonDialog1.DialogTitle = "save file as(*.txt)"CommonDialog1.Flags = vbofnoverwriteprompt Or vbofnpathmustexistCommonDialog1.ShowSaveform1.Caption = CommonDialog1.FileNameIf CommonDialog1.FileName = "1bw.txt" ThenMsgBox "fail", 37, "checking"ElseOpen CommonDialog1.FileName For Output As #2Print #2, Text1.TextClose #2End IfEnd IfEnd Sub复制的代码：Private Sub fuzhi_Click()Clipboard.SetText Text1.SelTextEnd Sub粘贴的代码：Private Sub zhantie_Click()Text1.SelText = Clipboard.GetTextEnd Sub剪切的代码：Private Sub jianqie_Click()Clipboard.ClearClipboard.SetText Text1.SelTextText1.SelText = ""End Sub全选的代码：Private Sub quanxuan_Click()Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub字体的代码：Private Sub ziti_Click()CommonDialog1.Flags = 3CommonDialog1.ShowFontText1.FontName = CommonDialog1.FontNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontUnderline = CommonDialog1.FontUnderlineText1.FontStrikethru = CommonDialog1.FontStrikethru End Sub是文本框的大小随窗体的变化而变化的代码：Private Sub Form_Resize()Text1.Height = form1.ScaleHeightText1.Width = form1.ScaleWidthEnd Sub4、主要的显示效果图如下所示：打开的效果：字体的效果：。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
创建记事本步骤：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。