VB文本编辑器设计报告

合集下载

VB课程设计报告---文本编辑器

VB课程设计报告——文本编辑器学院名称：计算机学院学生姓名：专业名称：计算机科学与技术班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。

二、课程设计目的（1）目标：实现类似与WINDOWS平台下的记事本程序。

（2）涉及功能：新建、打开、保存、另存为、退出、编辑、撤销、复制、粘贴、剪切、删除、查找、全选、打印、格式、字体、颜色、查看、状态栏、帮助、关于等三、课程设计说明1创建应用程序界面2设置属性3编写代码4保存应用程序5调试，运行应用程序6生成可执行文件四、源代码Dim filecount As IntegerDim inputdata As StringDim TargetPosition As IntegerDim pos As IntegerDim targey As StringDim neirong As StringPrivate Sub A_Click()On Error Resume Nextcmndlg1.Filter = "文本文件|*.txt"cmndlg1.CancelError = Truecmndlg1.Action = 2Open cmndlg1.FileName For Output As #1Print #1, Text1.TextClose #1End SubPrivate Sub C_Click()End SubPrivate Sub D_Click()End SubPrivate Sub Form_Load()Text1.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 Errcmndlg1.DialogTitle = "保存文件"cmndlg1.Filter = "文本文件|*.txt"cmndlg1.CancelError = Truecmndlg1.ShowSaveOpen cmndlg1.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 mnucopy_Click() '复制利用SetText 方法,将选中的文本放入剪贴板上Clipboard.SetText Text1.SelTextPrivate Sub mnucut_Click() '剪切Clipboard.SetText Text1.SelTextText1.SelText = ""End SubPrivate Sub mnudelete_Click() '删除Text1.SelText = ""End SubPrivate Sub mnuedit_Click() '编辑菜单项代码' 如果文本框中没有选中的内容,则剪切\复制\删除和粘贴菜单无效,否则有效If Text1.SelLength <> 0 Thenmnucut.Enabled = Truemnucopy.Enabled = Truemnudelete.Enabled = Truemnupaste.Enabled = TrueElsemnucut.Enabled = Falsemnucopy.Enabled = Falsemnudelete.Enabled = FalseEnd IfEnd SubPrivate Sub mnuexit_Click() '退出EndEnd SubPrivate Sub mnufind_Click() '查找FindText 1mnuNext.Enabled = TrueEnd SubPrivate Sub mnufont_Click() '字体On Error GoTo A:cmndlg1.Flags = cdlCFBoth Or cdlCFEffectscmndlg1.ShowFontIf cmndlg1.FontName > "" ThenText1.FontName = cmndlg1.FontNameText1.FontSize = cmndlg1.FontSizeText1.FontBold = cmndlg1.FontBoldText1.FontItalic = cmndlg1.FontItalicText1.FontStrikethru = cmndlg1.FontStrikethru Text1.FontUnderline = cmndlg1.FontUnderline Text1.FontBold = cmndlg1.FontBoldText1.ForeColor = cmndlg1.ColorA:If Err.Number < 0 ThenExit SubEnd IfEnd SubPrivate Sub mnufontcolor_Click() '字体颜色cmndlg1.ShowColorText1.ForeColor = cmndlg1.ColorEnd SubPrivate Sub mnuleft_Click() '左对齐Text1.Alignment = 0mnuleft.Checked = Truemnuright(1).Checked = Falsemnuright(2).Checked = FalseEnd SubPrivate Sub mnunew_Click() '新建Text1.Text = ""End SubPrivate Sub FindTex(ByVal start_at As Integer) targey = targeypos = InStr(start_at, Text1.Text, targey)If pos > 0 Then '找到了匹配字符串TargetPosition = posText1.SelStart = TargetPosition - 1'选中找到的字符串Text1.SelLength = Len(targey)Text1.SetFocusElse '没有找到匹配的字符串MsgBox "没找到匹配的字符串", 48, "提示"Text1.SetFocusEnd IfEnd SubPrivate Sub mnuNext_Click() '查找下一个FindTex TargetPosition + 1End SubPrivate Sub mnuopen_Click() '打开Dim inputdata As StringOn Error GoTo nofilecmndlg1.Filter = "文本文件|*.txt"cmndlg1.CancelError = Truecmndlg1.ShowOpenText1.Text = ""If cmndlg1.FileName <> "" ThenOpen cmndlg1.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 FindText(ByVal start_at As Integer)'获取用户输入的要查找的字符串targey = InputBox("请输入要查找的内容", "查找")pos = InStr(start_at, Text1.Text, targey)If pos > 0 Then '找到了匹配字符串TargetPosition = posForm1.Text1.SelStart = TargetPosition - 1'选中找到的字符串Form1.Text1.SelLength = Len(targey)Form1.Text1.SetFocusElse '没有找到匹配的字符串MsgBox "没找到匹配的字符串", 48, "提示"Form1.Text1.SetFocusEnd IfEnd SubPrivate Sub mnupaste_Click() '粘贴用GetText1 方法,将剪切板中的内容粘贴到光标所在位置Text1.SelText = Clipboard.GetText()End SubPrivate Sub mnuprint_Click() '打印On Error Resume Nextcmndlg1.ShowPrinterPrinter.Copies = cmndlg1.CopiesPrinter.Print Text1.TextEnd 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 mnusave_Click() '保存On Error Resume Nextcmndlg1.DialogTitle = "保存文件"cmndlg1.Filter = "文本文件|*.txt"cmndlg1.CancelError = Truecmndlg1.ShowSaveOpen cmndlg1.FileName For Output As #1Print #1, Text1.TextClose #1End SubPrivate Sub mnuselectall_Click() '全选Text1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Text1_Change()If Text1.Text = "" Thenmnufind.Enabled = FalsemnuNext.Enabled = FalseElsemnufind.Enabled = Truemnuselectall.Enabled = TrueEnd IfEnd SubPrivate 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 tre_Click()Shell ("notepad 使用说明.txt")End SubPrivate Sub xufeng_Click()Form2.Visible = TrueEnd Sub五、运行结果保存功能查找功能打开功能颜色修改功能字体修改功能七、心得体会作为一名计算机专业的学生，在接触了C语言、数据结构与C++课程后，对计算机语言有了一定的兴趣，于是在这个学期我毫不犹豫的选择了VB课程（算法与程序设计）。

VB-文本编辑器

VB-文本编辑器一、界面设计程序运行的界面：二、代码设计Dim ex As BooleanDim savepath As StringPrivate Sub building_Click()If ex Thena = MsgBox("是否保存？", vbYesNo + vbQuestion)If a = 6 ThenIf savepath <> "" ThenOpen savepath For Output As #1Print #1, Text1.TextClose #1Text1 = ""ex = FalseElseCommonDialog1.FileName = "文档1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1Text1 = ""ex = FalseEnd IfEnd IfElseText1 = ""ex = FalseEnd IfEnd SubPrivate Sub exit_Click()If ex Thena = MsgBox("是否保存？", vbYesNoCancel + vbQuestion)If a = 6 ThenIf savepath <> "" ThenOpen savepath For Output As #1Print #1, Text1.TextClose #1EndElseCommonDialog1.FileName = "文档1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1ex = FalseEnd IfElseIf a = 7 ThenEndEnd IfElseEndEnd IfEnd SubPrivate Sub Form_Resize()Form1.Width = 12000Form1.Height = 7000Form1.Top = 2000Form1.Left = 3000Text1.Left = 0Text1.Top = 0Text1.Width = Form1.Width - 300Text1.Height = Form1.Height - 1000End SubPrivate Sub open_Click()CommonDialog1.Action = 1Text1 = ""If CommonDialog1.FileName <> "" ThenOpen CommonDialog1.FileName For Input As #1 Do While Not EOF(1)Line Input #1, inputdataText1 = Text1 + inputdata + vbCrLfLoopClose #1savepath = CommonDialog1.FileNameex = FalseText1.SelStart = Len(Text1)End IfEnd SubPrivate Sub save_Click()If savepath <> "" ThenOpen savepath For Output As #1Print #1, Text1.TextClose #1ex = FalseElseCommonDialog1.FileName = "文档1.txt"CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1 Print #1, Text1.TextClose #1ex = FalseEnd IfEnd SubPrivate Sub saves_Click()CommonDialog1.FileName = "文档1.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2savepath = CommonDialog1.FileNameOpen CommonDialog1.FileName For Output As #1Print #1, Text1.TextClose #1ex = FalseEnd SubPrivate Sub Text1_Change()ex = TrueEnd Sub。

用VB做文本编辑器

好了，其它的菜单项以后再根据需要添加。现在进入：
步骤三：编写代码。
'声明查找变量 Dim sFind As String '声明文件类型 Dim FileType, FiType As String
'初始化程序 Private Sub Form_Load() '设置程序启动时的大小 Me.Height = 6000 Me.Width = 9000 End Sub
意思就是做个记事本吧看下面的用 VB 做一个记事本实在不很复杂，我们完全可以通过向导来很方便地做出来。但本文只打算讨论用手动方法制作记事本，旨在向 VB 初学者展示：学 VB 原来是如此容易！通过阅读、研究本文并按本文所述进行尝试，初学者将学到很多东西,如怎样使用 RichText 控件来打开和保存文件，怎样制作菜单、工具栏和状态栏以及如何对其编写代码等。
'关于 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 Then PopupMenu mnuEdit, vbPopupMenuLeftAlign Else Exit Sub End If End Sub
'保存文件 Private Sub mnuSave_Click() CommonDialog1.Filter = " 文本文档 (*.txt)|*.txt|RTF 文档 (*.rtf)|*.rtf| 所有文件 (*.*)|*.*" CommonDialog1.ShowSave FileType = CommonDialog1.FileTitle FiType = LCase(Right(FileType, 3)) FileName = CommonDialog1.FileName Select Case FiType Case "txt" RichTextBox1.SaveFile FileName, rtfText Case "rtf" RichTextBox1.SaveFile FileName, rtfRTF Case "*.*" RichTextBox1.SaveFile FileName End Select Me.Caption = "超级记事本：" & FileName End Sub

利用VB.NET设计文本编辑器

利用设计文本编辑器
范敏
【期刊名称】《韩山师范学院学报》
【年(卷),期】2009(030)003
【摘要】阐述了利用设计文本编辑器的过程,展示了对控件的综合应用及利用进行程序设计的基本步骤.该编辑器在界面上拥有Windows窗体,功能上可以很方便地对文本进行编辑.该文本编辑器的最大优点是体积小、功能全、方便快捷.
【总页数】5页(P62-66)
【作者】范敏
【作者单位】青岛恒星职业技术学院信息学院,山东青岛,266100
【正文语种】中文
【中图分类】TP311
【相关文献】
1.利用VB．NET开发平台设计系统界面 [J], 赖裕辉
2.利用设计开发时钟广告 [J], 谭振江;郑浩;曹丽华
3.基于网页平台的移动文本编辑器的设计 [J], 姜福成
4.利用设计LED电子广告牌 [J], 曹丽华;谭振江
5.基于VB的文本编辑器设计 [J], 戴青云
因版权原因，仅展示原文概要，查看原文内容请购买。

VB文本编辑器设计报告

课程设计报告课程：Visual Basic 程序设计课题：文本编辑器（易记本）专业：计算机信息管理班级：学号：姓名：@一路偏向北教师：2011-12-23一、课程设计目的通过一学期的Visual Basic 程序设计学习，以及平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

二、题目及简介文本编辑器模仿Windows自带的本文编辑器，要求：做到有下拉式菜单栏，有最基本的文本编辑功能，包括复制、剪切、粘贴、全选、查找；同时拥有文本的管理功能，其中包括新建文本、打开、保存；以及完整的运行退出等系统应用功能，所有操作可选择设定快捷键，更快更方便地使用程序，同时对于一个小程序而言，可给出基本的使用说明以及相关信息。

提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。

三、设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。

vb文本编辑器设计报告

文本编辑器设计报告学院土木工程学院班级c106 学号107101 姓名庄潮辉成绩一、设计思路1.要达到的目的1.培养综合利用VB语言进行程序设计的能力，主要是利用VB的标准控件和文件操作进行设计。

2.掌握文件的读、写，文本框和命令按钮的使用。

2.关键问题的解决1.单击“打开文件”按钮，在TextBox控件中打开一个文本文件并显示。

方法：使用顺序文件的读操作。

2.单击“查找与替换”按钮，可以在文本中查找或替换指定的第一个内容；单击“查找下一个”按钮，可连续进行给定内容的查找与替换。

方法：使用字符串的不等长替换方法。

3.单击“保存文件”按钮，可以将编辑后的文本文件保存到指定的位置。

方法：使用顺序文件的写操作。

4.编辑框只读”按钮的功能是控制能否对文本框中的内容进行编辑。

要想结束程序，应单击“退出”按钮。

方法：用程序设置文本框的locked属性。

5. 创新中的改变字体字号可行6. 创新中滚动条控制颜色并给文字着色可行二、模块之间的调用关系，或程序流程图二、部分程序关键源代码及注释1．打开文件：sFile = InputBox("请输入要打开的文件名及扩展名：", "打开文件")If Dir(sfile) <> "" Then‘使用freefile函数得到空文件号Fileno=freefileForm1.Caption = "文本编辑器——" & sfile‘使用input函数读取顺序文件Open App.Path & "\" & sfile For Input As #filenoDo While Not EOF(fileno)Input #fileno, mystrText1.Text = Text1.Text & mystrLoopClose #fileno2．文件保存：‘使用freefile函数得到空文件号fileno = FreeFile‘使用CommonDialog控件CommonDialog1.Filter = "txt文件(*.txt)|*.txt"‘调入保存对话框CommonDialog1.Action = 2Open (CommonDialog1.FileName) For Output As #filenoPrint #fileno, Text1.TextClose #fileno3．查找与替换：Dim a As Integer, t As String, e As Stringt = Text1.Texte = ""‘找出Form2.Text1.Text在t中第一个出现位置a = InStr(1, t, Form2.Text1.Text)If a = 0 ThenMsgBox "字符串没发现", vbOKOnly, "替换提示"Else拼接第一个出现位置左边的字符串e = e & Left(t, a - 1)e = e & Form2.Text2.Text‘将字符串t变为出现位置右边的字符串t = Right(t, Len(t) - a - Len(Form2.Text1.Text) + 1)e = e & tText1.Text = eEnd If4．字体与字号设置‘在load事件中，将各列表项加入到字体组合框cobom1,字号组合框cobom2中‘设置初始字体和字号Private Sub form_load()Combo1.AddItem "宋体"Combo1.AddItem "黑体"Combo1.AddItem "楷体_GB2312"Combo1.AddItem "仿宋_GB2312"Combo2.AddItem 10Combo2.AddItem 12Combo2.AddItem 16Combo2.AddItem 20Text1.FontName = "宋体"Text1.FontSize = 20End Sub‘字体组合框cobom1的单击事件，设置字体Private Sub Combo1_click()Select Case Combo1.ListIndexCase 0Text1.FontName = "宋体"Case 1Text1.FontName = "黑体"Case 2Text1.FontName = "楷体_GB2312"Case 3Text1.FontName = "仿宋_GB2312"End SelectEnd Sub‘字号组合框cobom2的单击事件，设置字号Private Sub Combo2_click()Text1.FontSize = Combo2.TextEnd Sub‘字号组合框cobom2的keypress事件，检测回车键并设置字号Private Sub Combo2_keypress(keyascii As Integer)If keyascii = 13 ThenText1.FontSize = Combo2.TextEnd IfEnd Sub‘利用滚动条设置三种基色Private Sub VScroll1_Change()Text2.BackColor = RGB(VScroll1.Value, 0, 0)Text5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End SubPrivate Sub VScroll2_Change()Text3.BackColor = RGB(0, VScroll2.Value, 0)Text5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End SubPrivate Sub VScroll3_Change()Text4.BackColor = RGB(0, 0, VScroll3.Value)Text5.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value) End Sub三、设计方案的完善及目前存在的问题1．设计方案要完善的地方①文本的编辑功能有限，对文件的操作方法过于局限。

vb课程设计文本编辑器

*****大学课程设计文本编辑器单位 **** 分院(系)专业 ****学号 ****学生姓名 *****指导教师 ***完成日期 ** 年 * 月* 日摘要自今年开学以来，我一直在学校学习vb程序设计，在为期半年的学习时间中，经历了一些软件设计开发的实践，在这些设计中学到许多书本上不能体会到的知识，下面将要介绍的一个设计，就是我在上课程设计时学到的，从老师的课程要求从而确定设计要求、项目的具体设计到项目的具体代码实施，在这个项目设计阶段，主要由我和我所在组的成员完成，他们对vb有着不少的经验，另外老师在这次项目开发中对我们起到了指导性的作用，使得我钦佩不已，下面就详细的说一下我们开发的这个项目。

一．设计目的自从接到我们要上课程设计课开始，我们知道word的文本编辑器，当然众所周知word是当今最流行最常用的文本编辑器，用来日常对工作生活中的文本进行编辑，它的功能强大，也在软件设计业成为了一种流行的标准。

我们这次设计的就是以word的一些基本功能为基础，由于我们的能力有限我们把一些特殊功能删除了，只留下了一些简单的功能例如：剪切、新建、复制、粘贴、查找等。

此次设计课主要是锻炼我们的vb设计能力和思维考虑能力使我们的vb 学习真正的用到实处，无论在将来工作还是学习有着重要作用二设计要求、本系统由两个菜单组成：文件、编辑，界面如图：（1）文件菜单包括：新建、打开、保存、退出。

（2）编辑菜单包括：复制、剪贴、粘贴、字体设置。

要求：1．1人完成2. 利用菜单、工具栏实现上述功能。

应用控件名称：RichTextBox CommonDialog 6.0目录1.选题的意义 --------------------------------52.系统的功能能分 ---------------------------------------72.1系统概述----------------------------------------------------------------72.2系统的构成-------------------------------------------------------------82.3系统的运行环境---------------------------------------------------------92.4设计思路-------------------------------------------------------------------9 3．主要控件功能介绍 ------------------------------------173.1控件功能----------------------------------------------------------------173.2设计的代码--------------------------------------------------------------21 4．总结--------------------------------------------------264.1总结-------------------------------------------------------------------------264.2存在的主要问题----------------------------------------------------------26参考文献-------------------------------------------------26第一章选题的意义V B6.0全称为V i s u a l B a s i c 6.0，是微软公司推出的可视化编程工具M S D N之一，是目前世界上使用最广泛的程序开发工具。

VB文本编辑器设计报告

提示：注意使用消息框，以及使用右击弹出式菜单，注意程序的完整性可可用性。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

VB文本编辑器设计报告

文本编辑器设计报告学院班级学号姓名成绩一、设计思路1.要达到的目的①单击“打开文件”按钮，在TextBox控件中打开一个文本文件并显示，为了阅读者的方便，在文本框中要加入水平和垂直滚动条。

②单击“查找与替换”按钮，可以在文本中查找或替换指定的第一个内容；单击“查找下一个”按钮，可连续进行给定内容的查找与替换。

③单击“保存文件”按钮，可以将编辑后的文本文件保存到指定的位置。

④“编辑框只读”按钮的功能是控制能否对文本框中的内容进行编辑。

⑤要想结束程序，应单击“退出”按钮。

2.关键问题的解决①打开文件并显示及滚动条的添加成功解决。

②查找与替换功能尚未完全成功③保存文件问题完全解决④编辑框按钮功能可用⑤退出可执行⑥创新中的改变字体字号可行⑦创新中滚动条控制颜色并给文字着色可行二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释1.文本文件的读入sFile = InputBox("请输入要打开的文件名及扩展名：", "打开文件")If Dir(sFile) <> "" ThenOpen App.Path & "\" & sFile For Input As #1temp = StrConv(InputB(LOF(1), #1), vbUnicode)EditTXT.Text = tempClose #1EditFrm.Caption = "文本编辑器— " & sFileElseMsgBox "指定的文件" & sFile & "未找到!", 48, "文件打开"End If说明：对于文本文件中包含的字节数据要使用InputB 函数。

对于InputB 来说，number 指定的是要返回的字节个数，而不是要返回的字符个数。

vb程序设计实验报告

vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。

Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。

本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。

二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。

通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。

三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。

通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。

我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。

2. 事件处理在界面设计完成后，我开始编写事件处理程序。

我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。

例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。

通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。

3. 数据处理在实验中，我还学习了如何进行数据处理。

我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。

通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。

四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。

我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。

通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。

五、实验总结通过这次VB程序设计实验，我收获了很多。

首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。

其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。

最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。

在实验过程中，我遇到了一些问题和挑战。

例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。

个人教学实践精华程序,VB6.0案例教学-文本编辑器(含代码).doc

⏹加粗按钮：Private Sub Check1_Click()If Check1.Value = vbChecked Then Text1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd Sub⏹斜体按钮：Private Sub Check2_Click()If Check2.Value = vbChecked Then Text1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd Sub⏹下划线按钮：Private Sub Check3_Click()If Check3.Value = vbChecked Then Text1.FontUnderline = True ElseText1.FontUnderline = False End IfEnd Sub⏹分行显示按钮Private Sub Command1_Click()Text1.Text = "《静夜思》" & vbCrLf & "床前明月光，" & vbCrLf & "疑是地上霜。

" & vbCrLf & "举头望明月，" & vbCrLf & "低头思故乡。

"End Sub⏹清除按钮Private Sub Command2_Click()Text1.Text = ""End Sub⏹退出按钮Private Sub Command3_Click()Dim a As Integera = MsgBox("请问您确实要退出程序吗？", vbYesNo + vbQuestion, "作者温馨提示：")If a = vbYes ThenEndEnd IfEnd Sub⏹字体颜色设置Private Sub Option1_Click()Text1.ForeColor = vbRedEnd SubPrivate Sub Option10_Click()Text1.BackColor = vbRedEnd SubPrivate Sub Option11_Click()Text1.BackColor = vbWhiteEnd SubPrivate Sub Option2_Click()Text1.ForeColor = vbBlueEnd SubPrivate Sub Option3_Click()Text1.ForeColor = vbGreenEnd SubPrivate Sub Option4_Click()Text1.ForeColor = vbBlackEnd Sub⏹字号大小设置Private Sub Option5_Click()Text1.FontSize = 12End SubPrivate Sub Option6_Click()Text1.FontSize = 18End SubPrivate Sub Option7_Click()Text1.FontSize = 20End Sub背景颜色设置Private Sub Option8_Click()Text1.BackColor = vbYellow End SubPrivate Sub Option9_Click()Text1.BackColor = vbGreen End Sub。

VB课程设文本阅读器设计报告

文本阅读器设计报告学院材料学院班级材料074 学号072023 姓名宁延明成绩一、设计思路1.要达到的目的1能够打开任意一个文本文件并逐行显示文件内容。

2可以调整自动滚屏的速度(用小键盘上的“╋”和“━”键)。

3支持显示特性的设置(字体诸属性及文字前景色彩)。

4可以随时停止滚动和继续滚动(通过单击鼠标或者按空格键)。

5在文本滚动时诸按钮自动隐去，暂停或停止滚动时按钮出现以便进行设置。

6内容全部显出后自动停止滚动。

7支持显示的背景设置，可以设置成任意色彩(见题图)。

8支持手工翻页（建议用PageUp上翻，PageDown下翻，Home到最开始，End到最后）2.关键问题的解决程序界面设计：根据所给的界面设计。

代码的编写：主要是利用文件的SHOWOPEN属性打开文件，而后利用通用对话框进行字体和背景的设置，再利用TIMER事件的一些属性实现文本的自动滚动与停止。

CommandX_Click()打开文件，下载动态标签，更改字体和背景等命令Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)设计快捷键，包括：空格键（键码32），上、下翻页键（33和34）小键盘加号和减号键(107、109)，还有Home 和End键(vbKeyHome、vbKeyEnd)。

Label1_Click(Index As Integer)处理暂停和恢复滚动（用鼠标单击控制走停，作用同空格键）。

Timer1_Timer()定时器事件，让标签按一定的速度自动滚屏，标签caption属性的赋给和变换。

二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释Dim m As Integer, k As IntegerDim lines As IntegerDim txt() As String '声明各个变量Private Sub Command1_Click()'创建动态数组Dim i As Integer, m As Integerm = (Form1.Height) \ (Label1(0).Height) + 1Label1(0).Width = Form1.WidthFor i = 1 To mLoad Label1(i)Label1(i).Visible = TrueLabel1(i).Top = Label1(0).Top + i * Label1(0).HeightNext iDim lines As Integer, h As IntegerCommonDialog1.Filter = "text(*.txt)|*.txt|pictures|(*.bmp)|(*.bmp)"CommonDialog1.ShowOpeninfile = CommonDialog1.FileNamelines = 0 ' 文件行数总计Open infile For Input As #1 '打开文件。

VB实验报告1-9

实验一：设计简单的VB 应用程序一、实验目的1．掌握Visual Basic 启动和退出的方法。

2．熟悉Visual Basic 的集成开发环境。

3．掌握Visual Basic 程序设计的基本步骤，了解VB 程序的编写、保存和编译的方法过程。

4．初步了解几个常用基本控件控件（标签、命令按钮和文本框）的使用方法。

二、实验类型综合三、实验时间：2012-3-9四、实验任务1、启动Visual Basic ，然后创建一个“标准 EXE ”工程（保存在D 盘以自己学号命名的文件夹中，文件名和窗体名均为SJT ），并了解Visual Basic 集成开发环境下各组成部分及其作用。

2、编一程序，计算任意输入的正整数的平方根。

3、编写一个应用程序，界面如图1-1所示。

窗体中文字“VB 应用程序！”为一标签控件，单击标题为“放大”的命令按钮，则“VB 应用程序！”的字号放大一号，单击“缩小”按钮则反之；同时，窗体中还有4个含某种指向图案的按钮，若单击某个按钮，则使“VB 应用程序！”向该按钮所指向的方向移动50Twip 。

（提示：四种指向的图案可以在Visual Basic 安装目录中的“…graphics\icon\Arrows ”子目录中找到，名称分别为arw07dn.ico 、arw07lt.ico 、arw07rt.ico 和arw07up.ico ）五、实验要求写出实验报告，内容是：1、第1小题的操作步骤2、第2、3题1).程序的界面设计。

2).程序主要代码。

3).运行结果（输入与输出）。

4).实验总结。

(写上你自己的总结。

可以从以下几个方面来总结：你在编程过程中花时多少？时间是怎么分配的？多少时间在思考问题？遇到了哪些难题？你是怎么克服的？你对你的程序的评价？你的收获有哪些？)图1-1 实验1-2程序运行实验二：数据的输入和输出一、实验目的1．掌握常量和变量、表达式的基本概念和正确书写格式。

2．掌握基本语句（Print语句、赋值语句、Dim语句等）的使用；3、掌握常用函数的正确使用方法；4、掌握数据的动态输入InputBox和信息提示MsgBox的基本使用方法。

文本编辑器程序设计

VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：具有一般文本编辑器的基本功能：新建、保存、打开、另存为和退出；必需能够同时打开多个文本文件进行编辑；能够对所编辑的文件进行保存，保存类型为txt；能够打开计算机硬盘上已存在的文本文件，并进行编辑。

二、课程设计目的初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB 程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。

三、课程设计说明及程序结构题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。

要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

四、源代码Dim sFind As StringDim FileType, FiType As StringPrivate Sub bc_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 exit_Click()If TabStop = False ThenJieGuo = MsgBox("文本已经改变，是否需要保存", vbYesNo)If JieGuo = vbYes Then'保存文件的代码Else'选择不保存的代码End IfElseEnd '直接退出程序End IfEndEnd SubSub Form_Unload(Cancel As Integer)End SubPrivate Sub fz_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextEnd SubPrivate Sub jq_Click()Clipboard.ClearClipboard.SetText RichTextBox1.SelTextRichTextBox1.SelText = ""End SubPrivate Sub new_Click()RichTextBox1.Text = ""FileName = "未命名1"Me.Caption = FileNameEnd SubPrivate Sub open_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpenRichTextBox1.FileName = CommonDialog1.FileNameRichTextBox1.LoadFile FileNameMe.Caption = "记事本-" & FileNameEnd SubPrivate Sub QX_Click()RichTextBox1.SelStart = 0RichTextBox1.SelLength = Len(RichTextBox1.Text)End SubSub RichTextBox1_Change()TabStop = FalseEnd SubPrivate Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace ThenRichTextBox1.SelFontName = CommonDialog1.FontNameEnd IfEnd SubPrivate Sub zt_Click()RichTextBox1.SelText = Clipboard.GetTextEnd Sub五、运行结果六、设计体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual可视化界面设计，另一个是Basic程序设计。

基于VB的文本编辑器设计

文宁处理是在计算机应用中经常会用遇的操作，如文本文件的打开与保存操作，排版与格式设置，字词查找等。Ｗｉｎｄｏｗｓ中如ｗｏｒｄ、记事
本、ＷＰＳ、写字板等都是文字处理应用程序。本设计利用ＶＢ制作了一个多文档文本编辑器。
窗体操作包括窗体初始化时设置窗体大小的Ｆｏｒｍ＿Ｌｏａｄ事件，当子
２．１．１建立ＭＤＩ窗体
件，否则调用 “ 另存为”菜单的单击事件。通过在ＭＤＩ窗体中共有字符串变量ｆｉｌｅＮｍｅ保存文件的路径及文件名，在 “ ａ打开”菜单事件或 “ 另存为”菜单事件中可以给ｆｉｌｅＮｍｅａ赋值。
ｆ３）编辑菜单编辑菜单项功能包括：复制、剪切、粘贴、删除选中内容，文字设
全部替换在整篇文档范围内进行替换。多文档文本编辑器由菜单、工具栏、ＲｉｃｈＴｅｘｔＢｏｘ控件、通用对话框控件、图像列表框组成。
二、－文本编辑器编程实现
２．１界面设计
界面设计包括ＭＤＩ窗体设计，ＭＤＩ子窗体设计以及普通窗体设计。ＭＤＩ窗体可以打开文档；ＭＤＩ子窗体中可以对文档进行具体的操作；普通窗体用来进行查找和替换。
件中可以进行以上设置。
子窗体。执行 “ 工部件” 菜单命令，在出现的对话框中，选中择 “ ＭｉｃｏｒｓｏｆｔＲｉｃｈＴｅｘｔｂｏｘＣｏｎｔｒｏｌｓ６．０ ”将ＲｉｃｈＴｅｘｔＢｏｘ控件添加到工具箱。将ＲｉｃｈＴｅｘｔＢｏｘ控件添加到窗体上用来进行文本操作，Ｎａｍｅ属性设置为：

VB课设记事本编辑器

沈阳航空航天大学课程设计任务书学院：航空航天学部专业：飞行器设计与工程班级：14030302 学号：2011040303061题目：模仿记事本程序一、课程设计时间2012年8月27日~9月7日（第1~2周），共计两周，40学时。

二、课程设计内容Windows系统的记事本程序是一个纯文本的编辑软件。

要求模仿该程序，实现它如下功能：1.文件的新建三、课程设计要求程序质量：✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。

✧用户界面中的菜单至少应包括“进书”、“售书”、“计算利润”、“书库现状”、“出售现状”、“退出”6项。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：✧课程结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提供的模板。

四、指导教师和学生签字指导教师：________ 学生签名：________五、成绩六、教师评语目录需求分析 (4)设计分析 (4)技术要点 (8)主要界面截图 (11)总结 (14)完整的源程序 (16)参考文献 (23)需求分析制作一个文本编辑器，实现编辑器的主要功能。

记事本编辑软件是用来快捷有效的记录用户简单事宜的小工具。

它不需要office文档强大功能，它要做的就是操作简单，用户界面小巧简便。

我所设计的这款记事本编辑软件正是基于对操作简便的考虑，在不影响用户的运用的情况下，尽可能的追求界面的整洁。

对于这一点，这款记事本程序完全符合我的设想。

设计分析（1）概述：我所设计的这款记事本编辑软件主要运用了CommonDialog控件和Richtextbox控件的部分功能实现的。

如ComonDialog的ShowColor、ShowFont、ShowHelp、ShowOpen、ShowPrinter、ShowSave属性，Richtextbox的Font、Visible、Text、Filename等属性。

VB简易记事本课程设计报告

课程: 记事本的开发学号: 201130210114姓名: 吕仕雄班级: 1 1 3 2 1 0 1专业:信息工程（信息安全）小组成员: 吴彧刘金强2013-1引言随着计算机硬件技术的不断进步，计算机已经从当初的计算工具演变为如今的信息终端性质的工具，服务于各个行业领域。

人们获取信息的方式是多种多样的，飞速发展的计算机技术给人们带来的是丰富的信息和多样化的获取信息的途径。

电子计算机已广泛的应用于信息管理、文字处理、辅助设计、辅助教学及人们的日常生活中。

特别是在计算机的操作系统具有了图形化的界面后，使用计算机已经不再是某些专业人员的专利，各行各业的人们不需要经过专业化的训练就能自如的在计算机上进行各种复杂的操作。

时下，为了能创造更大的经济效益和社会效益，更有利于参与国际竞争，越来越多的企业、公司和学校迫切需要引入现代化的管理手段，而计算机的大容量操作，精确的计算，使它成为企业管理不可缺少的手段之一，但随着计算机应用的不断深入，用户对软件的需求也不断增加，越来越多的用户希望拥有适合自己需要的特殊软件来满足自己的特殊要求。

而用VB技术制作的记事本软件以其小巧精湛而深的广大用户的宠Visual basic介绍VB是微软公司出品的一个快速可视化程序开发工具软件，借助微软在操作系统和办公软件的垄断地位，VB在短短的几年内风靡全球。

VB是极有和功能强大的软件，主要表现在：所见即所得的界面设计，基于对象的设计方法，极短的软件开发周期，较易维护的生成代码。

1. VB语言的基本特点及VB应用程序的基本持点①可视化设②事件驱动2．程序开发过程①创建应用程序界面②设置属性③编写代码④保存应用程序⑤调试，运行应用程序⑥生成可执行文记事本的开发功能描述该记事本具有简单的文本编辑功能，其功能主要包括文件的新建、打开、剪切、粘贴等。

同时，该记事本还可以进行内容的查找和字体大小以及颜色的改变实现图及代码通过两个文本框，对自动换行的实现。

用VB做文本编辑器

要做工具栏，首先需要一个叫ImageList的控件来装载图像。在程序界面上添加它，然后右键单击此控件，左键单击“属性”，弹出“属性页”对话框的“图像”，再单击“插入图片”就可以一次性装载图片了（如不满意，以后还可以添加）。图片可在C:\Microsoft Visual Studio\Common\Graphics\Bitmaps\TlBr_W95下选择(这里假设你的VB安装在C盘下)。注意了：在插入图片时给每一张图片注明关键字，以便在引用图片时不至于混乱。如插入“新建”的图片，我们在“关键字”栏注明“New”。
二.状态栏
(一)制作状态栏
状态栏的英文名字叫StatusBar，在窗体上添加它后会默认出现在窗体的最下方。用鼠标右键点击它，调出“属性页”对话框，单击“窗格”项，插入一些窗格，可以将各个窗格的“样式”设置为：
0-sbrText 显示文本，需编写代码
1-sbrCaps 显示大小写状态，无需编程
(二)编写工具栏的按钮代码
工具栏按钮的代码编辑很简单，可以按照下面的格式去编写：
Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next '出错处理
Select Case Button.Key '按关键字选择
'设置弹出式菜单（即在编辑框中单击鼠标右键时弹出的动态菜单）
Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then