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课程设计-文本编辑器
VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。
二、课程设计目的虽然本学期的Visual Basic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB 应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。
三、课程设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。
要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。
本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。
四．源代码Private Sub Command1_Click()Dim i As IntegerIf Text2.Text <> "123456" Theni = MsgBox("密码错误", 5 + vbExclamation, "警告")If i <> 6 ThenEndElseText2.Text = ""Text2.SetFocusEnd IfEnd IfForm1.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.Text = ""Text1.MaxLength = 6Text2.Text = ""Text2.MaxLength = 6Text2.PasswordChar = "*"End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text) Then MsgBox "帐号必须为数字", , "警告" Text1.Text = ""Text1.SetFocusEnd IfEnd SubPrivate Sub Command1_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command2_Click()Form2.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Color_Click() CommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.Color End SubPrivate Sub Command1_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Copy_Click()Dim st As Stringst = Text1.SelTextEnd SubPrivate Sub Cut_Click()Dim st As Stringst = Text1.SelTextText1.SelText = ""End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub Font_Click()CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4Text1.FontName = CommonDialog1.FileNameText1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.ColorEnd SubSub New_Click()Text1.Text = ""Me.Caption = FileEnd SubSub Open_Click()CommonDialog1.Action = 1Text1.Text = ""Open CommonDialog1.FileName For Input As #1Do While Not EOF(1)Line Input #1, inputdataText1.Text = Text1.Text + inputdata + vbCrLfLoopClose #1End SubPrivate Sub Paste_Click()Text1.SelText = stEnd SubPrivate Sub Print_Click()CommonDialog1.Action = 5For i = 1 To CommonDialog1.CopiesPrinter.Print Text1.TextNext iPrinter.EndDocEnd SubPrivate Sub SaveAs_Click()CommonDialog1.FileName = "vb课设用.txt" CommonDialog1.DefaultExt = "txt"CommonDialog1.Action = 2Open CommonDialog1.FileName For Output As #1 Print #1, Text1.TextEnd SubDim arr As Long, sum As Long, a As IntegerPrivate Sub Command1_Click()a = HScroll1.ValueText1.Text = plus(a)Call isprime(a)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub HScroll1_Change()Label2.Caption = HScroll1.ValueEnd SubSub isprime(max As Integer)Dim x As Integer, i As Integer, j As IntegerFor i = 2 To maxx = 0For j = 2 To i - 1If i Mod j = 0 Then x = 1Next jIf x = 0 Then Label2.Caption = Label2.Caption & i & " " Next iEnd SubFunction plus(a As Integer) As LongFor i = 1 To asum = sum + iNext iplus = sumEnd FunctionDim x1 As IntegerDim y1 As IntegerDim x2 As IntegerDim y2 As IntegerDim flag As BooleanPrivate Sub Command1_Click()On Error Resume NextCommonDialog1.CancelError = True CommonDialog1.DialogTitle = "颜色" CommonDialog1.ShowColorIf Err <> 32755 Then Picture1.ForeColor = CommonDialog1.Color End IfEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Command3_Click()Form5.HideForm6.ShowEnd SubPrivate Sub Option1_Click()Picture1.DrawWidth = 1End SubPrivate Sub Option2_Click()Picture1.DrawWidth = 2End SubPrivate Sub Option3_Click()Picture1.DrawWidth = 4End SubPrivate Sub Option4_Click()Picture1.DrawWidth = 8End SubPrivate Sub Form_Load()Picture1.Scale (0, 0)-(400, 400)flag = FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = Truex1 = Xy1 = YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If flag = False ThenExit SubEnd IfIf flag = True Thenx2 = Xy2 = YPicture1.Line (x1, y1)-(x2, y2)x1 = x2y1 = y2End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) flag = FalseEnd SubDim ctP As Single, ctDu() As Single, ctDuS As LongPrivate Sub Command1_Click()Picture1.AutoRedraw = True: ctP = 3.1415926Timer1.Interval = 20: Timer1.Enabled = Not Timer1.EnabledEnd SubPrivate Sub Command2_Click()Form7.HideForm6.ShowEnd SubPrivate Sub Form_Load()Me.Caption = "旋转的椭圆": Command1.Caption = "转/停"Text1.Text = "9 个": Timer1.Enabled = FalseEnd SubPrivate Sub Text1_Change()ctDuS = Val(Text1.Text)If ctDuS > 200 Then Text1.Text = "200"If ctDuS < 1 Then ctDuS = 1ReDim ctDu(0 To ctDuS)End SubPrivate Sub Timer1_Timer()Dim I As LongPicture1.DrawWidth = 3Picture1.ClsFor I = 0 To ctDuSctDu(I) = ctDu(I) + ctP * 0.01 * I / 9If ctDu(I) > ctP * 2 Then ctDu(I) = ctDu(I) - ctP * 2Show1 ctDu(I), &HFFFFFF / (ctDuS + 1) * I * 0.6NextDim x As Single, y As SingleStatic J As SinglePicture1.DrawWidth = 15x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet (x0, y0), 255x = 1200: y = 0: J = J - 0.05If J < -ctP * 2 Then J = J + ctP * 2Zhuan J, x, yPicture1.PSet (x0 + x, y0 + y), RGB(0, 0, 255)End SubPrivate Sub Show1(ToJ As Single, Se As Long)Dim I As Single, x As Single, y As Single, x0 As Single, y0 As Single Dim a As Single, b As Single, x1 As Single, y1 As SingleIf Picture1.ScaleWidth < Picture1.ScaleHeight Thena = Picture1.ScaleWidth * 0.45Elsea = Picture1.ScaleHeight * 0.45End Ifb = a * 0.25x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5x = -a: y = 0: Zhuan ToJ, x, yx1 = a: y1 = 0: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), Sex = 0: y = -b: Zhuan ToJ, x, yx1 = 0: y1 = b: Zhuan ToJ, x1, y1Picture1.Line (x0 + x, y0 + y)-(x0 + x1, y0 + y1), SeFor I = 0 To ctP * 2 Step 0.1x = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeNextx = a * Sin(I): y = b * Cos(I)Zhuan ToJ, x, yPicture1.Line -(x0 + x, y0 + y), SeEnd SubPrivate Sub Zhuan(ToJ As Single, x As Single, y As Single) Dim S As Single, J As SingleS = Sqr(x ^ 2 + y ^ 2)If S = 0 Then J = 0 Else J = y / SIf Abs(J) >= 1 ThenIf J > 0 Then J = ctP * 0.5 Else J = -ctP * 0.5ElseJ = Atn(J / Sqr(-J * J + 1))End IfIf x < 0 Then J = -ctP - Jx = S * Cos(J + ToJ): y = S * Sin(J + ToJ) End Sub Private Sub Command1_Click()EndEnd Sub五、运行结果六．心得体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual 可视化界面设计，另一个是Basic程序设计。
用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
文本编辑器课程设计
文本编辑器课程设计一、课程目标知识目标：1. 理解文本编辑器的基本功能与操作，掌握常见的文本编辑命令；2. 学会使用文本编辑器进行文档的创建、编辑、保存和打印；3. 了解文本编辑器的不同类型，如记事本、Word等，并掌握它们的特点与适用场景。
技能目标：1. 能够熟练运用文本编辑器进行文字输入、排版和格式设置；2. 学会使用文本编辑器的查找与替换功能，提高文本处理效率；3. 掌握文本编辑器的拼写检查、语法检查功能，提升写作质量。
情感态度价值观目标：1. 培养学生对文本编辑器的兴趣，激发他们主动探索和使用新工具的积极性；2. 培养学生的信息素养，使他们认识到文本编辑器在日常生活和学习中的重要性；3. 引导学生养成良好的文本编辑习惯，注重文档的美观与规范，提升个人形象。
本课程针对年级：小学四年级课程性质：信息技术课程学生特点：四年级学生对电脑操作已有一定的基础，对新事物充满好奇心，但操作熟练程度和文本编辑能力有限。
教学要求：1. 结合学生特点，课程内容应以实践操作为主，注重培养学生的动手能力；2. 教学过程中，教师应充分调动学生的积极性，鼓励他们主动探索和尝试；3. 教学评价应以学生实际操作能力和学习态度为主要标准，关注学生的学习过程和成果。
二、教学内容1. 文本编辑器简介：介绍文本编辑器的概念、作用和常见类型，如记事本、Word等。
- 教材章节：第一章 认识文本编辑器- 内容列举：文本编辑器的定义、功能、分类及其适用场景。
2. 文本编辑器基本操作：学习文本输入、选取、删除、复制、粘贴等基本操作。
- 教材章节：第二章 文本编辑器的基本操作- 内容列举：文字输入、基本编辑命令、撤销与重做。
3. 文档格式设置：学习字体、字号、颜色、对齐方式等格式设置。
- 教材章节：第三章 文档格式设置- 内容列举：字体设置、段落设置、页面布局。
4. 文档高级功能：掌握查找与替换、拼写检查、语法检查等功能。
- 教材章节：第四章 文档高级功能- 内容列举：查找与替换、拼写检查、语法检查。
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)》课程设计-- RTF编辑器
《软件设计基础(VB)》课程设计-- RTF编辑器河北理工大学《软件设计基础（VB）》课程设计报告设计名称：RTF编辑器姓名：赵子明学号：200906040209专业班级：材料成型二班学院：冶金与能源学院设计时间：2010年5月10日至2010年6月20日设计地点：学校机房指导教师评语：成绩：指导教师签字：年月日目录1.课程设计目的 ···············································································2.课程设计任务与要求 ······································································3.课程设计说明书 ············································································4.课程设计成果 ···············································································5.程序调试过程 ···············································································6.设计问题的不足和改进方案 ·····························································7.课程设计心得 ···············································································8.附录 ···························································································9.参考文献 ·····················································································运行结果（可用屏幕抓图的方法说明）（五号，宋体）(多页)5.程序调试过程。
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 指定的是要返回的字节个数，而不是要返回的字符个数。
实验一 简易文字编辑器_Visual Basic程序设计实验指导_[共3页]
![实验一 简易文字编辑器_Visual Basic程序设计实验指导_[共3页]](https://img.taocdn.com/s3/m/bef1a0aaa26925c52dc5bf23.png)
16
西文状态, . ‘ “ ; - < 中文状态，。
‘“；――
《
笔记：（请记录注意事项、纠错过程、经典代码等内容）
2.2 提高型实验
实验一 简易文字编辑器
【实验内容】
创建一个窗体，在其上设计一系列命令按钮，实现对文本框内容的编辑，包括：
1．对文本框文字的剪切、复制、粘贴和删除。
2．设置或取消设置文本框文字的下划线、删除线、粗体和斜体效果。
3．改变文本框文字的大小。
【界面设计】
界面设计如图2-10所示。
图2-10 界面设计
【实验指导】
1．在窗体上添加13个命令按钮，分别将它们的名称属性依次设置为cmdCut、cmdCopy、cmdPaste、cmdDelete、cmdUnderln、cmdStrikethru、cmdBold、cmdItalic、cmdLeft、cmdCenter、cmdRight、cmdEnlarge、cmdShrink。
2．将按钮cmdEnlarge、cmdShrink的Caption属性分别设置为“放大”和“缩小”。
其余的
11个按钮的Capion属性清空。
3．将Capion属性被清空的11个按钮的Style属性设置为1（Graphical），以便在命令按钮表。
文本编辑器课程设计
文本编辑器 课程设计一、课程目标知识目标：1. 学生能理解文本编辑器的基本功能和操作方法。
2. 学生掌握文本编辑器的排版技巧，包括字体、字号、颜色设置，以及段落格式的调整。
3. 学生了解文本编辑器中的查找与替换功能，并能运用其提高编辑效率。
技能目标：1. 学生能够熟练运用文本编辑器进行文档的创建、编辑和保存。
2. 学生掌握文本编辑器的快捷键操作，提高文本编辑速度。
3. 学生通过实践操作，培养解决问题的能力和团队协作能力。
情感态度价值观目标：1. 学生培养对信息技术课程的兴趣，增强学习动力。
2. 学生认识到文本编辑在日常生活和未来工作中的重要性，提高职业素养。
3. 学生在团队协作中，学会分享与交流，培养合作精神和集体荣誉感。
课程性质：本课程为信息技术课程，旨在让学生掌握文本编辑器的使用技巧，提高文字处理能力。
学生特点：六年级学生已经具备一定的计算机操作基础，对新鲜事物充满好奇心，喜欢动手实践。
教学要求：结合学生特点，注重理论与实践相结合，以任务驱动法引导学生自主探究和合作学习，关注学生的个体差异，使每个学生都能在课程中收获成长。
通过具体的学习成果分解，为后续教学设计和评估提供依据。
二、教学内容1. 文本编辑器简介：介绍文本编辑器的概念、作用和常见类型，使学生对其有一个整体认识。
教材章节：第一章 认识文本编辑器2. 文本编辑器基本操作：包括新建、打开、保存、关闭文档，以及撤销与重做操作。
教材章节：第二章 文本编辑器的基本操作3. 文本格式设置：教授字体、字号、颜色设置，以及段落格式调整。
教材章节：第三章 文本格式设置4. 排版技巧：讲解文本对齐、缩进、行距、项目符号等排版方法。
教材章节：第四章 文本排版技巧5. 查找与替换：介绍文本编辑器中的查找与替换功能，提高编辑效率。
教材章节：第五章 查找与替换6. 文本编辑快捷键：学习常用的文本编辑快捷键，提高编辑速度。
教材章节：第六章 文本编辑快捷键7. 实践操作：安排综合实践任务，让学生运用所学知识完成文档编辑，巩固所学内容。
编辑器课程设计
编辑器课程设计一、课程目标知识目标：1. 学生能理解编辑器的基本概念，掌握其功能及操作方法。
2. 学生能学会使用编辑器进行文本编辑、格式设置、插入图片等基本操作。
3. 学生能了解编辑器在不同学科领域的应用，并能够运用编辑器完成相关学科作业。
技能目标：1. 学生能熟练运用编辑器进行文本编辑，提高文字处理速度和准确性。
2. 学生能通过编辑器创作个性作品，培养创新意识和审美能力。
3. 学生能运用编辑器进行协同创作，提高团队协作能力。
情感态度价值观目标：1. 学生能树立正确的信息素养观念，认识到编辑器在学习和生活中的重要性。
2. 学生在编辑器使用过程中，培养耐心、细心和责任心的品质。
3. 学生通过编辑器创作，激发对学科知识的兴趣，提高学习积极性。
课程性质：本课程为实践性课程，以学生动手操作为主，注重培养学生的实际应用能力。
学生特点：考虑到学生所在年级，课程设计将充分考虑学生的认知水平、操作能力和学习兴趣。
教学要求：教师应注重启发式教学，引导学生主动探索，鼓励学生相互交流与合作，提高学生的实际操作能力。
同时，关注学生的个体差异，给予个性化指导，确保课程目标的实现。
在教学过程中，将课程目标分解为具体的学习成果，以便于教学设计和评估。
二、教学内容本课程教学内容围绕编辑器的功能与应用展开，结合课程目标，具体包括以下三个方面：1. 编辑器基础知识：- 编辑器概述：介绍编辑器的发展历程、分类及作用。
- 基本操作：学习文本输入、删除、复制、粘贴等基本操作。
- 格式设置：掌握字体、字号、颜色、对齐方式等设置方法。
2. 编辑器高级应用：- 插入图片：学会在文档中插入图片，并进行大小、位置调整。
- 表格制作：学习创建表格、调整行列、设置表格样式等操作。
- 批注与审阅：了解如何在文档中进行批注，以及如何进行文档审阅。
3. 编辑器综合实践：- 学科应用：结合各学科特点，运用编辑器完成相关作业和作品。
- 协同创作：培养学生团队协作能力，共同完成编辑任务。
文本编辑器程序设计
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课程设计报告记事本程序姓名：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。
语言课程设计文本编辑器
语言课程设计文本编辑器一、教学目标本课程的教学目标是让学生掌握文本编辑器的基本操作和使用技巧，培养学生熟练运用文本编辑器进行文本处理和排版的能力。
具体分为以下三个部分：1.知识目标：使学生了解文本编辑器的发展历程、基本功能和常用操作，理解文本编辑器在现代办公和学术研究中的重要性。
2.技能目标：培养学生能够熟练使用文本编辑器进行文本输入、编辑、排版、校对和打印输出，掌握字体设置、段落调整、制作等基本技能。
3.情感态度价值观目标：培养学生对文本编辑器的正确使用态度，注重知识产权保护，养成规范、高效的文本处理习惯，提高学生的信息素养和职业道德。
二、教学内容本课程的教学内容主要包括以下几个部分：1.文本编辑器的基本概念和功能介绍，包括文本编辑器的发展历程、种类和特点。
2.文本编辑器的基本操作，包括文本输入、编辑、复制、剪切、粘贴、撤销和恢复等。
3.文本编辑器的排版技巧，包括字体设置、段落调整、标题编号、列表制作、制作等。
4.文本编辑器的的高级应用，包括查找和替换、语法检查、拼音输入、文本朗读等。
5.文本编辑器在实际应用中的案例分析，例如：撰写教案、编写程序代码、撰写学术论文等。
三、教学方法本课程采用讲授法、实践操作法和案例分析法进行教学。
在教学过程中，教师首先向学生讲解文本编辑器的基本概念和功能，然后引导学生进行实践操作，让学生在实际操作中掌握文本编辑器的使用技巧。
同时，通过案例分析法，让学生了解文本编辑器在实际应用中的重要性，提高学生的学习兴趣和主动性。
四、教学资源本课程的教学资源包括教材、多媒体资料和实验设备。
教材主要用于为学生提供理论知识和操作指南，多媒体资料用于辅助教学，丰富学生的学习体验。
实验设备则是学生进行实践操作的重要工具，包括计算机、投影仪等。
在教学过程中，教师还可以利用网络资源，为学生提供更多的学习资料和实践案例，帮助学生更好地掌握文本编辑器的使用技巧。
五、教学评估本课程的教学评估主要包括以下几个方面：1.平时表现：评估学生的课堂参与度、提问回答、小组讨论等，以检验学生的学习态度和积极性。
基于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做文本编辑器
二.状态栏
(一)制作状态栏
状态栏的英文名字叫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
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB课程设计报告——文本编辑器学院名称：学生姓名：专业名称：班级：一、课程设计题目用Visual Basic程序设计语言编写一个简易的文本编辑器要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。
二、课程设计目的虽然本学期的Visual Basic课程是自学的，相对于课堂学习有些不足，但通过平时的上机实验，初步掌握了VB程序设计的各种方法，学会了编写最基本的VB程序；对于完整的VB程序设计来讲是很不足的，平时掌握的只是单独的窗体(Form)程序编写，以及各种简单控件的使用，没有做到很好连贯性，所以有必要做一次完整的VB程序设计，结合所学的基本知识，使用多个窗体自成一套系统，加上各种控件的综合运用，初步设计一个合格的VB 应用程序；这样在巩固VB所学的同时，更好地学会程序设计的一些思想和方法，对于以后的编程学习或是工作有重要的实践意义。
三、课程设计说明题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。
要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。
本次设计在按照题目要求的前提下，为了完整地展示一个应用程序，在最初就设计为最基本的文本的编辑器，所以取名为“易记本”，就是简易记事本的简称，然后加入图标，在程序完成之后还进行了大包操作，得到应用程序的安装文件，最后安装在电脑上运行使用。
四．源代码Private Sub Command1_Click()Dim i As IntegerIf Text2.Text<>"123456"Theni=MsgBox("密码错误",5+vbExclamation,"警告")If i<>6ThenEndElseText2.Text=""Text2.SetFocusEnd IfEnd IfForm1.HideForm2.ShowEnd SubPrivate Sub Form_Load()Text1.Text=""Text1.MaxLength=6Text2.Text=""Text2.MaxLength=6Text2.PasswordChar="*"End SubPrivate Sub Text1_LostFocus()If Not IsNumeric(Text1.Text)Then MsgBox"帐号必须为数字",,"警告" Text1.Text=""Text1.SetFocusEnd IfEnd SubPrivate Sub Command1_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Command2_Click()Form2.HideForm4.ShowEnd SubPrivate Sub Command3_Click()Form2.HideForm5.ShowEnd SubPrivate Sub Color_Click() CommonDialog1.Action=3Text1.ForeColor=CommonDialog1.Color End SubPrivate Sub Command1_Click()Form3.HideForm2.ShowEnd SubPrivate Sub Copy_Click()Dim st As Stringst=Text1.SelTextEnd SubPrivate Sub Cut_Click()Dim st As Stringst=Text1.SelTextText1.SelText=""End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub Font_Click()CommonDialog1.Flags=cdlCFBoth Or cdlCFEffects CommonDialog1.Action=4Text1.FontName=CommonDialog1.FileNameText1.FontSize=CommonDialog1.FontSizeText1.FontBold=CommonDialog1.FontBoldText1.FontItalic=CommonDialog1.FontItalicText1.FontStrikethru=CommonDialog1.FontStrikethru Text1.FontUnderline=CommonDialog1.FontUnderline Text1.ForeColor=CommonDialog1.ColorEnd SubSub New_Click()Text1.Text=""Me.Caption=FileEnd SubSub Open_Click()CommonDialog1.Action=1Text1.Text=""Open CommonDialog1.FileName For Input As#1Do While Not EOF(1)Line Input#1,inputdataText1.Text=Text1.Text+inputdata+vbCrLfLoopClose#1End SubPrivate Sub Paste_Click()Text1.SelText=stEnd SubPrivate Sub Print_Click()CommonDialog1.Action=5For i=1To CommonDialog1.CopiesPrinter.Print Text1.TextNext iPrinter.EndDocEnd SubPrivate Sub SaveAs_Click()CommonDialog1.FileName="vb课设用.txt" CommonDialog1.DefaultExt="txt" CommonDialog1.Action=2Open CommonDialog1.FileName For Output As#1 Print#1,Text1.TextEnd SubDim arr As Long,sum As Long,a As IntegerPrivate Sub Command1_Click()a=HScroll1.ValueText1.Text=plus(a)Call isprime(a)End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub HScroll1_Change()Label2.Caption=HScroll1.ValueEnd SubSub isprime(max As Integer)Dim x As Integer,i As Integer,j As IntegerFor i=2To maxx=0For j=2To i-1If i Mod j=0Then x=1Next jIf x=0Then Label2.Caption=Label2.Caption&i&"" Next iEnd SubFunction plus(a As Integer)As LongFor i=1To asum=sum+iNext iplus=sumEnd FunctionDim x1As IntegerDim y1As IntegerDim x2As IntegerDim y2As IntegerDim flag As BooleanPrivate Sub Command1_Click()On Error Resume NextCommonDialog1.CancelError=True CommonDialog1.DialogTitle="颜色" CommonDialog1.ShowColorIf Err<>32755Then Picture1.ForeColor=CommonDialog1.Color End IfEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Command3_Click()Form5.HideForm6.ShowEnd SubPrivate Sub Option1_Click()Picture1.DrawWidth=1End SubPrivate Sub Option2_Click()Picture1.DrawWidth=2End SubPrivate Sub Option3_Click()Picture1.DrawWidth=4End SubPrivate Sub Option4_Click()Picture1.DrawWidth=8End SubPrivate Sub Form_Load()Picture1.Scale(0,0)-(400,400)flag=FalseEnd SubPrivate Sub Picture1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) flag=Truex1=Xy1=YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If flag=False ThenExit SubEnd IfIf flag=True Thenx2=Xy2=YPicture1.Line(x1,y1)-(x2,y2)x1=x2y1=y2End IfEnd SubPrivate Sub Picture1_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) flag=FalseEnd SubDim ctP As Single,ctDu()As Single,ctDuS As LongPrivate Sub Command1_Click()Picture1.AutoRedraw=True:ctP=3.1415926Timer1.Interval=20:Timer1.Enabled=Not Timer1.EnabledEnd SubPrivate Sub Command2_Click()Form7.HideForm6.ShowEnd SubPrivate Sub Form_Load()Me.Caption="旋转的椭圆":Command1.Caption="转/停"Text1.Text="9个":Timer1.Enabled=FalseEnd SubPrivate Sub Text1_Change()ctDuS=Val(Text1.Text)If ctDuS>200Then Text1.Text="200"If ctDuS<1Then ctDuS=1ReDim ctDu(0To ctDuS)End SubPrivate Sub Timer1_Timer()Dim I As LongPicture1.DrawWidth=3Picture1.ClsFor I=0To ctDuSctDu(I)=ctDu(I)+ctP*0.01*I/9If ctDu(I)>ctP*2Then ctDu(I)=ctDu(I)-ctP*2Show1ctDu(I),&HFFFFFF/(ctDuS+1)*I*0.6NextDim x As Single,y As SingleStatic J As SinglePicture1.DrawWidth=15x0=Picture1.ScaleWidth*0.5:y0=Picture1.ScaleHeight*0.5 Picture1.PSet(x0,y0),255x=1200:y=0:J=J-0.05If J<-ctP*2Then J=J+ctP*2Zhuan J,x,yPicture1.PSet(x0+x,y0+y),RGB(0,0,255)End SubPrivate Sub Show1(ToJ As Single,Se As Long)Dim I As Single,x As Single,y As Single,x0As Single,y0As Single Dim a As Single,b As Single,x1As Single,y1As SingleIf Picture1.ScaleWidth<Picture1.ScaleHeight Thena=Picture1.ScaleWidth*0.45Elsea=Picture1.ScaleHeight*0.45End Ifb=a*0.25x0=Picture1.ScaleWidth*0.5:y0=Picture1.ScaleHeight*0.5x=-a:y=0:Zhuan ToJ,x,yx1=a:y1=0:Zhuan ToJ,x1,y1Picture1.Line(x0+x,y0+y)-(x0+x1,y0+y1),Sex=0:y=-b:Zhuan ToJ,x,yx1=0:y1=b:Zhuan ToJ,x1,y1Picture1.Line(x0+x,y0+y)-(x0+x1,y0+y1),SeFor I=0To ctP*2Step0.1x=a*Sin(I):y=b*Cos(I)Zhuan ToJ,x,yPicture1.Line-(x0+x,y0+y),SeNextx=a*Sin(I):y=b*Cos(I)Zhuan ToJ,x,yPicture1.Line-(x0+x,y0+y),SeEnd SubPrivate Sub Zhuan(ToJ As Single,x As Single,y As Single) Dim S As Single,J As SingleS=Sqr(x^2+y^2)If S=0Then J=0Else J=y/SIf Abs(J)>=1ThenIf J>0Then J=ctP*0.5Else J=-ctP*0.5ElseJ=Atn(J/Sqr(-J*J+1))End IfIf x<0Then J=-ctP-Jx=S*Cos(J+ToJ):y=S*Sin(J+ToJ)End Sub Private Sub Command1_Click()EndEnd Sub五、运行结果六．心得体会通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual 可视化界面设计，另一个是Basic程序设计。