用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课程设计记账本一、教学目标本节课的学习目标包括：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编程
计算机语言课程设计——文本编辑器院系：地球物理与信息工程学院专业班级：自动化09-3班学生姓名：李宁学号： 2009043308完成日期： 2011年7月14 日设计成绩：一、设计目的：综合运用面向对象开发工具，设计Windows风格的软件。
通过此次程序设计题目，使学生熟练掌握Windows应用程序的开发过程，为以后专业课的学习奠定基础。
二、所选编程语言：Visual Basic 6.0三、系统总体设计思路：内容包括：对设计题目的设计想法、设计流程、功能模块的规划，预计软件实现的效果。
用VB设计记事本的想法：先了解记事本的基本功能，界面效果，然后设计程序加以实现。
用VB设计记事本的流程及规划：1.设计记事本的界面2.编辑菜单栏里的各个记事本功能3.编写代码4.对程序界面进行美化软件实现的效果：能实现文字的编辑，复制，粘贴，剪切，全选，查找；实现文件的保存，打开，；字体设置，文字大小写设置四、系统各功能模块设计包括采用的关键控件、关键技术、主要界面采用的主要控件有：RichTextBoxCommonDialogStatusBar主要界面：Menu Editor五、软件运行结果六、设计总结通过这次课程设计，我对VB的学习有了最初的了解。
在设计记事本的过程中，我对如何运用Menu Editor学习颇多，通过课件及参考书使我能很快的完成记事本的界面设计过程。
学习完编辑记事本后，我对如何利用VB编程软件有了大体的概况，大致步骤如下：1.绘制软件的界面2.了解软件的基本属性和功能3.编写代码，并运行检查可能出现的错误4.美化软件，做最后的整理工作七、参考文献格式如下：网页参考文献例：网络视频: /programs/view/zdxxIKDLst4/书籍参考文献例:课件以及VB学习参考书附录：源程序Private Sub Form_Load()Me.Height = 6000Me.Width = 9000End SubPrivate Sub Form_Resize()On Error Resume NextRichTextBox1.Top = 20RichTextBox1.Left = 20RichTextBox1.Height = ScaleHeight - 40RichTextBox1.Width = ScaleWidth - 40End SubPrivate Sub 保存_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 SubPrivate Sub 查找_Click()sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)RichTextBox1.Find sFindEnd SubPrivate Sub 打开_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*" CommonDialog1.ShowOpenRichTextBox1.Text = ""FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = "我的记事本：" & FileNameEnd SubPrivate Sub 大写_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = UCase(Clipboard.GetText) End SubPrivate Sub 复制_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub 剪切_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = ""End SubPrivate Sub 全选_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text) End SubPrivate Sub 退出_Click()EndEnd SubPrivate Sub 小写_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelText RichTextBox1.SelText = LCase(Clipboard.GetText) End SubPrivate Sub 新建_Click()RichTextBox1.Text = ""FileName = "未命名"Me.Caption = FileNameEnd SubPrivate Sub 粘贴_Click()RichTextBox1.SelText = Clipboard.GetTextEnd SubPrivate Sub 字体_Click()Dim sel As RichTextBoxSet sel = RichTextBox1With CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects.CancelError = False.ShowFontsel.SelFontName = .FontNamesel.SelFontSize = .FontSizesel.SelItalic = .FontItalicsel.SelUnderline = .FontUnderlinesel.SelStrikeThru = .FontStrikethru End WithEnd Sub。
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、主要的显示效果图如下所示：打开的效果：字体的效果：。
VB课程设计报告记事本设计
VB课程设计题目：记事本程序指导教师：姓名：2008-7-2目录一、预定功能------------------------------------------第3 页二、设计界面------------------------------------------第3 页三、运行界面及主要功能说明---------------------第4页四、操作流程图---------------------------------------第7页五、程序设计过程------------------------------------第12页一、预定功能新建：新建立一个记事本文档。
保存：重命名一个名字，保存文档。
打开：将打开一个已经存储在计算机中的文件（*.txt或*.rtf文件）。
退出：指退出这个记事本程序。
编辑：能对文本进行复制、剪切、粘贴，也可以改变文本字体、颜色、大小。
查找：类似Word文档的查找功能，通过输入关键字，词进行查找。
帮助：记事本简介以及功能的用法。
二、设计界面记事本界面有以下几部分组成：标题栏：自定义图标和记事本标题。
菜单栏：包括文件、编辑、搜索和帮助主题。
工具栏：菜单栏中部分功能的快捷键。
文本框：用于编辑、查看文本内容。
状态栏：显示编辑状态、当前日期和具体时间。
具体设计界面如下图：三、运行界面及主要功能说明双击“记事本.exe”出现如图主界面：主要功能：（1）文本打开、新建、保存等基本操作：（2）文本编辑功能：（3）文本查找功能：（4）记事本帮助主题：功能说明：（1）基本操作：能够打开计算机中存储的*.txt或*.rtf文件，进行读写操作，记事本拥有一个很好的优点：就是打开速度快，文件小。
通过记事本可以很方便地打开比较小文本文档。
（2）编辑操作：对文本匡中的文档内容进行编辑。
通过对文本进行复制、剪切、粘贴，方便了用户的操作。
使得记事本能够像Word一样，不仅可以查看文本，还能对其进行修改。
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写记事本的程序
用V B写记事本的程序文件编码（GHTU-UITID-GGBKT-POIU-WUUI-8968）可视化程序课程—记事本程序实验报告1、新建工程启动VB程序后，建立一个新的工程。
出现“窗体设计器”。
2、创建记事本的菜单栏打开工具选项条单击菜单编辑器（1）在标题栏里面分别添加“文件（&F）”“编辑（&E）”“格式（&A）”“帮助（&H）”并分别设置名称和快捷键。
（2）分别在“文件”“编辑”“格式”“帮助”选项下编辑如图所示的的子菜单，设置标题，名称，快捷键。
3、代码的编写（1）文件 file①新建 new注解： = "无标题-记事本" 把新建记事本的名字定义为“无标题-记事本”②打开 open注解：“On Error GoTo a ” a在代码倒数第二行有定义，如果在打开的过程中出现错误就到“a”退出程序；Dim index As Integer定义变量③保存 save④另存为 as注解：定义一个变量ss作为字符串如果正确执行操作错误就执行a退出⑤打印 print⑥退出 exit（2）编辑 editing①剪切 cut②复制 copy③粘贴 past④删除 delete⑤查找 find注释：sFind = InputBox 查找输入框MsgBox "找不到所要查询的内容", , "查询无果报告"⑥查找下一个 findnext⑦全选 seleall（3）格式①自动换行 autonewline②字体 fond（4）帮助 help关于 about。
VB记事本程序课程设计
VB记事本程序课程设计一、课程目标知识目标：1. 学生能理解VB编程的基本概念，掌握记事本程序的基本结构和功能。
2. 学生能运用VB编程语言，独立编写、修改和调试简单的记事本程序。
3. 学生了解文件操作的相关知识，能实现记事本程序的文件保存和打开功能。
技能目标：1. 学生能运用所学知识，设计并实现具有基本功能的记事本程序。
2. 学生通过动手实践，提高问题分析和解决问题的能力。
3. 学生掌握程序调试的基本方法，具备一定的程序优化能力。
情感态度价值观目标：1. 学生培养对计算机编程的兴趣，增强学习动力。
2. 学生在编程实践中，培养严谨、细心的良好习惯。
3. 学生通过小组合作，提高沟通协作能力，培养团队精神。
本课程针对初中年级学生，结合学科特点和教学要求，以VB编程为基础，设计记事本程序课程。
课程注重理论与实践相结合，引导学生通过动手实践，掌握编程技能。
课程目标具体、可衡量，旨在帮助学生明确学习方向，为后续教学设计和评估提供依据。
二、教学内容1. VB编程基础：- 数据类型与变量- 运算符与表达式- 控制结构（顺序、选择、循环）2. 窗体与控件：- 窗体属性、事件和方法- 文本框控件的使用- 常用控件（按钮、标签等）3. 文件操作：- 文件的保存与打开- 文件读写操作4. 程序调试与优化：- 常见错误类型及处理方法- 程序优化技巧5. 记事本程序设计：- 功能需求分析- 程序结构设计- 代码编写与调试教学内容依据课程目标，结合教材章节进行组织。
教学大纲明确教学内容安排和进度，确保学生循序渐进地掌握VB编程知识。
教学内容注重科学性和系统性，强调理论与实践相结合，使学生能够学以致用，为设计记事本程序打下坚实基础。
三、教学方法1. 讲授法：- 对于VB编程的基础知识，如数据类型、变量、运算符等，采用讲授法进行教学，为学生奠定扎实的基础。
- 通过生动的案例和实际应用，讲解窗体与控件、文件操作等知识点，使学生易于理解和掌握。
记事本—VB课程设计
VB课程设计报告记事本程序姓名：xxxx学号：xxxx教师：xxxx班级：xxxxxxxx年xx月xx日目录一、设计目的 (2)二、预定功能 (2)三、设计界面 (2)四、属性设置 (3)五、基本操作 (5)六、设计体会 (10)一、设计目的本次课程设计是运用所学的Visual Basic知识，参照Windows的附件中的“记事本”程序，编织一个与其类似的单文本编辑器，具有简单的文本编辑功能，如打开、保存文件，运用剪贴板编辑文本，查找文本、设置文本、设置字体、修改文本区的颜色等。
二、预定功能1.新建、打开、保存、另存为、打印：新建、.打开、保存、另存为、打印一个文本文档。
2.关闭、退出：关闭当前界面，若修改了内容则提示是否保存对文件的修改。
3.实现剪切、复制、粘贴、删除、全选、日期/时间等功能以及其的快捷键。
4.能改变文字的字体以及文本框的背景色。
5.文本框应该随窗体大小而改变。
三、设计界面记事本界面有以下几部分组成：1.标题栏：自定义图标与记事本标题。
2.菜单栏：包括文件、编辑和格式主题。
3.文本框：用于编辑、查看文本内容。
4.通用对话框控件四、属性设置1.对象属性设置：2.菜单项及其属性设置五、基本操作1.新建、打开、保存、另存为、①新建：②打开：2.全选3.时间/日期4.字体5.背景色六、设计体会本次课程设计是本人通过所学的VB知识，结合Windows操作系统中的记事本程序所编制的一个小程序。
因此，这不仅是本人的VB设计水平得到了一个大提高，加深了对VB的一个认知度，是自身的计算机编程水平提升到了一个新的高度。
同时也锻炼了本人的意志力，能够通过自身的不懈努力以及老师同学的帮助，从而成功地完成任务。
10。
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简易记事本课程设计报告
课程: 记事本的开发学号: 201130210114姓名: 吕仕雄班级: 1 1 3 2 1 0 1专业:信息工程（信息安全）小组成员: 吴彧刘金强2013-1引言随着计算机硬件技术的不断进步，计算机已经从当初的计算工具演变为如今的信息终端性质的工具，服务于各个行业领域。
人们获取信息的方式是多种多样的，飞速发展的计算机技术给人们带来的是丰富的信息和多样化的获取信息的途径。
电子计算机已广泛的应用于信息管理、文字处理、辅助设计、辅助教学及人们的日常生活中。
特别是在计算机的操作系统具有了图形化的界面后，使用计算机已经不再是某些专业人员的专利，各行各业的人们不需要经过专业化的训练就能自如的在计算机上进行各种复杂的操作。
时下，为了能创造更大的经济效益和社会效益，更有利于参与国际竞争，越来越多的企业、公司和学校迫切需要引入现代化的管理手段，而计算机的大容量操作，精确的计算，使它成为企业管理不可缺少的手段之一，但随着计算机应用的不断深入，用户对软件的需求也不断增加，越来越多的用户希望拥有适合自己需要的特殊软件来满足自己的特殊要求。
而用VB技术制作的记事本软件以其小巧精湛而深的广大用户的宠Visual basic介绍VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。
VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。
1. VB语言的基本特点及VB应用程序的基本持点①可视化设②事件驱动2．程序开发过程①创建应用程序界面②设置属性③编写代码④保存应用程序⑤调试，运行应用程序⑥生成可执行文记事本的开发功能描述该记事本具有简单的文本编辑功能，其功能主要包括文件的新建、打开、剪切、粘贴等。
同时，该记事本还可以进行内容的查找和字体大小以及颜色的改变实现图及代码通过两个文本框，对自动换行的实现。
基于VB的记事本的设计与实现
基于VB的记事本的设计与实现学院名称：专业名称：年级班别：姓名：指导教师：2011年09月基于VB的记事本的设计与实现摘要Visual Basic 6.0具有很强的文字处理功能，能够方便地实现各种文字操作，并且设计流程简单，方便好用。
本文模仿Windows自带的记事本即Notepad程序来创建一个文本编辑器。
本设计主要通过使用Visual Basic 6.0中的公用对话框CommonDialog控件、ToolBar、TextBox、Label和RichRextBox等文本处理控件以及API函数来实现。
本文详细叙述了各个设计步骤和环节，并且对其中使用的控件和API函数的使用方法和技巧做了介绍。
所设计的文本编辑器的文字处理功能类似于Word，不仅能够编辑文本文档、RichText文档，具有打开文件、保存文件、剪切、拷贝、粘贴、设置文字的字体、大小、颜色等功能，最重要的是它还能实现对英文单词的翻译。
关键词Visual Basic；公用对话框CommanDialog控件；ToolBar控件；RichRextBox控件；API函数Design and Realization of a Notebook Based on VBAbstractVisual Basic 6.0 has a strong word-processing function,and it can facilitate the operation of various characters.The important thing is that its design process is simple and easy to prepare.This paper imatates Windows’s notebook-notepad procedure to create a text editor. The design comes to realize mainly through the use of Visual Basic 6.0’s commondialog tools,such as CommonDialog,ToolBar,TextBox,Label and other text-processing tools such as RichRextBox and API function.This paper describes in detail the various steps and aspects of the design, and the use of the text tools,API function and the use of the introductory skills.This designed text editor can edit text files, richtext documents,and its word processing functions is similar to the Word.It has the function of open files, save, shear, copy, paste, set the font and text size, color and other functions set.The most important features is that it can translate English words into Chinese.KeyWords Visual Basic;CommanDialog;ToolBar;RichRextBox;API目录摘要 (I)ABSTRACT (II)1 引言 (1)2 设计思路 (2)3 模块设计 (3)3.1模块部分 (3)3.1.1 主菜单模块 (3)3.1.2 工具栏模块 (3)3.1.3 文本处理模块 (3)3.2界面部分 (3)4 设计步骤 (5)4.1基本框架 (5)4.1.1 绘制界面 (5)4.1.2 编辑菜单 (6)4.1.3 编写代码 (7)4.2工具栏 (10)4.2.1 制作工具栏 (10)4.2.2 编写工具栏的按钮代码 (11)4.3状态栏 (11)4.3.1 制作状态栏 (11)4.3.2 编写代码 (11)4.4翻译功能的实现 (12)5 核心技术 (15)5.1R ICH T EXT B OX控件 (15)5.1.1 RichTextBox控件的主要属性 (15)5.1.2 RichTextBox控件的主要方法 (15)5.2C OMMON D IALOG控件 (16)5.2.1 使用CommonDialog控件 (16)5.2.2 显示“打开”对话框 (16)5.2.3 显示“颜色”对话框 (17)5.2.4 显示“字体”对话框 (17)5.3T OOLBAR的常用属性和方法 (18)5.3.1 常用属性 (18)5.3.2 常用方法 (19)5.4对API函数的介绍 (19)5.4.1 什么是API (19)5.4.2 对API函数的声明 (19)5.4.3 对设计中使用到的API函数的说明 (20)6 结束语 (21)参考文献 (22)致谢 (23)1 引言众所周知的Windows记事本Notepad是Windows自带的处理文本的重要软件，它功能强大，界面友好，是广大用户处理文本的好工具。
使用VB程序制作记事本
认识菜单
在VB中创建菜单
• 菜单编辑器
菜单编辑注意事项
• 访问键设置
– （&访问字母键），如：文件（&F） 访问字母键）， 访问字母键），如 文件（ ）
• 分隔线设置
– 在标题处输入“-”号 在标题处输入“ 号
• 菜单只识别单击事件：click 菜单只识别单击事件：
通用对话框
• 通用对话框Windows系统提供的一种Active X 控 Windows系统提供的一种Active 系统提供的一种
件VB中称之为CommonDialog 控件. VB中称之为CommonDialog 控件. 中称之为
–6种标准对话框，分别是： 6种标准对话框，分别是：
打开(Open)、另存为(Save as)、颜色(Color) (Color)、 打开(Open)、另存为(Save as)、颜色(Color)、 (Open) 字体(font) 打印机(Printer) 和帮助(Help). (font)、 (Printer)、 字体(font)、打印机(Printer)、和帮助(Help).
顺序文件的打开操作-示例
• Open “c:\cj.txt” for input as #1 • Open ss for input as #1
顺序文件的读操作
• Line Input语句 • 格式：Line Input #文件号 变量名 文件号,变量名 文件号 • 作用：从顺序文件中读出一行 一行后，存放在所对 一行 应的字符型或变体型变量中去。 • 示例：
文件处理时注意问题
• 文件操作时用到函数
– Eof（）：测试指针是否到了文件末尾。如 果到了文件的末尾，其值为True，否则为 False。 – Chr（），通过转换ASCII码值10，13 实 现回车换行功能。
vb课程设计说明书
Vb课程设计说明书学生姓名：学号：系别班级：题目：记事本应用程序2011年 12月19日1 选题背景与意义1．1 背景为了满足一般用户对文本文件编辑的最基本需求，主要包括文本输入、字体编辑、支持纯文本文件的保存和文件打开处理等功能。
所以在老师的帮助和自己查阅书籍的情况下，选择了记事本应用程序这个题目。
1.1.1 记事本应用程序的要求记事本应用程序要求实现新建，打开，保存文件，对文本进行字体颜色编辑，对文本实现查找，能够复制粘贴功能。
1.1.2 记事本应用程序的功能文件：可在任意时刻打开或新建文件，可将文件另存为和打印。
也可对打开后的任意文件进行保存关闭。
在退出时，对于没有保存的文件，程序将给予提示。
编辑：支持所有块操作。
利用菜单或快捷键进行设置，有粘贴、复制、剪切、全选等功能。
对齐：包括居中、左对齐、右对齐。
颜色：有黑色、蓝色、绿色、红色以及所有颜色。
样式：粗体、下划线、删除线、斜体。
查找：查找和查找下一个。
帮助：提供对所有操作的详细说明。
几乎所有操作都有对应的快捷键，使用户使用更加方便。
1．2 意义通过设计记事本程序，学会了更好的使用CommonDialog 控件、ComboBox控件、RichTextBox 等一些重要控件，掌握了如何设计工具栏和状态栏，在设计的过程中，把课堂上学到的知识，真正的运用到实践当中去，不仅加深了旧知识，还学到了一些新知识，收获很大。
2 主要程序代码及图示Private Sub mnuedit_Click() '编辑菜单项代码If RichTextBox1.SelLength <> 0 Then '如果文本框中有选中的内容muncut.Enabled = True '则剪切\复制\删除和粘贴菜单有效,muncopy.Enabled = Truemnudelete.Enabled = Truemunpaste.Enabled = TrueElsemuncut.Enabled = False '否则无效muncopy.Enabled = Falsemnudelete.Enabled = FalseEnd IfEnd Sub设计界面如下：Private Sub center_Click() '居中RichTextBox1.SelAlignment = 2End SubPrivate Sub right_Click() '右对齐RichTextBox1.SelAlignment = 1End SubPrivate Sub left_Click() '左对齐RichTextBox1.SelAlignment = 0End SubPrivate Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenIf RichTextBox1.SelText <> "" Thenmuncut.Enabled = True '启用"剪切"菜单项muncopy.Enabled = True '启用"复制"菜单项mnudelete.Enabled = True '启用"删除"菜单项munpaste.Enabled = True '启用"粘贴"菜单项End IfEnd IfEnd SubPrivate Sub muncopy_Click() '复制Clipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub muncut_Click() '剪切Dim muncut As IntegerClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelRTF = ""End SubPrivate Sub munpaste_Click() '粘贴If Clipboard.GetFormat(vbCFRTF) ThenRichTextBox1.SelText = Clipboard.GetTextElseIf Clipboard.GetFormat(vbCFText) ThenRichTextBox1.SelText = Clipboard.GetTextEnd IfEnd SubPrivate Sub mnuprint_Click() '文件打印On Error Resume NextCmnDlg1.ShowPrinterPrinter.Copies = CmnDlg1.CopiesPrinter.Print RichTextBox1.TextEnd SubPrivate Sub mnusave_Click() '文件保存Dim rtffile As String, ab As BooleanCmnDlg1.Filter = "text 文件(*.txt)|*.txt|rtf文件(*.rtf)|*.rtf" CmnDlg1.FilterIndex = 2CmnDlg1.ShowSavertffile = CmnDlg1.FileNameRichTextBox1.SaveFile rtffileab = FalseEnd SubPrivate Sub allcolor_Click() '所有颜色CmnDlg1.ShowColorRichTextBox1.SelColor = CmnDlg1.ColorEnd SubPrivate Sub about_Click() '帮助Shell ("notepad 帮助文件.txt")End SubPrivate Sub Form_Load()Dim I As IntegerRichTextBox1.Width = Form1.ScaleWidthRichTextBox1.Height = Form1.ScaleHeightab = TrueForm1.Caption = "新文档- 记事本" '标题栏显示名For I = 0 To Screen.FontCount - 1Combo1.AddItem (Screen.Fonts(I)) '将系统屏幕字体赋给Combo1 Next ICombo1.Text = '将RichTextBox1字体赋给Combo1 For I = 1 To 80Combo2.AddItem (I) '给Combo2赋值1~80Next ICombo2.Text = RichTextBox1.Font.Size '将当前RichTextBox1控件的字体大小作为End Sub '初值赋给combo2Private Sub Combo1_Click()RichTextBox1.SelFontName = Combo1.Text '改变RichTextBox1所选文本的字体End SubPrivate Sub Combo2_Click()RichTextBox1.SelFontSize = Combo2.Text '改变RichTextBox1所选文本字体大小End Sub Private Sub find_Click() '查找findstr = InputBox("请输入字符串:", "输入", RichTextBox1.SelText)If Len(findstr) > 0 ThenRichTextBox1.find findstr, 0findpos = RichTextBox1.SelStart + 1find.Enabled = TrueEnd IfEnd SubPrivate Sub fintN_Click() '查找下一个If Len(findstr) > 0 ThenRichTextBox1.find findstr, findposfindpos = RichTextBox1.SelStart + 1End IfEnd Sub文本编辑栏中工具栏的程序设计如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.KeyCase "tnew"mnunew_ClickCase "topen"mnuopen_ClickCase "tsave"mnusave_ClickCase "tcut"muncut_ClickCase "tcopy"muncopy_ClickCase "tpaste"munpaste_ClickCase "tprint"mnuprint_ClickCase "tprint"mnuprint_ClickCase "tabout"about_ClickEnd SelectEnd SubPrivate Sub mnuexit_Click() '退出Dim stat As Integer, ab As BooleanIf ab Thenstat = MsgBox("文件已被修改，是否保存?", vbYesNo Or vbQuestion, "警告") End IfIf stat = 6 Thenmnusave_ClickElseUnload MeEnd IfEnd Sub课程设计心得经过这几周的课程设计，使我对 Visual Basic编程有了更深一层的了解。
VB记事本程序设计
课程设计(论文)任务书土木学院土木专业2012-5 班一、课程设计(论文)题目二、课程设计(论文)工作自2013 年 6 月 17 日起至 2013 年 6 月 21 日止。
三、课程设计(论文) 地点: 计算中心四、课程设计(论文)内容要求：1．本课程设计的目的（1）使学生掌握Visual Basic编程的基本工作原理；（2）培养学生基本掌握Visual Basic应用编程的基本思路和方法；（3）使学生掌握Visual Basic应用调试的基本技能；（4）培养学生分析、解决问题的能力；（5）提高学生的科技论文写作能力。
2．课程设计的任务及要求1）基本要求：（1）分析系统的功能构成；（2）分析所用控件对象、数据对象及其关联；（3）实现系统的设计；（4）对所设计应用进行调试。
2）创新要求：在基本要求达到后，可进行创新设计，增加功能、改进界面和性能。
3）课程设计论文编写要求（1）课程设计报告书一律使用由学校统一印制的封面，用A4纸张打印或采用黑色墨水工整书写，并装订成册。
（2）课程设计装订顺序为：封面、设计任务书（含评语）、设计内容、设计小结4）答辩与评分标准：（1）系统功能分析：25分；（2）完成设计过程：25分；（3）完成调试：25分；（4）回答问题：25分。
5）参考文献：(1)吴昊.Visual Basic程序设计教程,中国铁道出版社，2006.12(3)6）课程设计进度安排内容天数地点构思及收集资料1实验室设计与调试3实验室撰写论文1实验室学生签名：2013 年6 月17 日课程设计(论文)评审意见（1）完成原理分析（25分）：优（）、良（）、中（）、一般（）、差（）；（2）设计分析（25分）：优（）、良（）、中（）、一般（）、差（）；（3）完成调试（25分）：优（）、良（）、中（）、一般（）、差（）；（4）回答问题（25分）：优（）、良（）、中（）、一般（）、差（）；（5）格式规范性及考勤是否降等级：是（）、否（）评阅人：职称：2013 年6 月26 日目录《程序设计语言（VB）》课程设计 3 摘要 (3)一、设计目的 (4)二、环境配置要求 (5)三、设计题目记事本程序 .............................. 错误!未定义书签。