VB课程设计 文本编辑器

VB课程设计报告

——文本编辑器

学院名称：

学生姓名：

专业名称：

班级：

一、课程设计题目

用Visual Basic程序设计语言编写一个简易的文本编辑器

要求：有最基本的文本编辑功能，包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置；同时拥有文本管理功能，包括打开文件、保存文件；以及完整的系统运行退出等功能，所有的操作可选择设定的快捷键。

二、课程设计目的

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

三、课程设计说明

题目为文本编辑器，即是最基本的文本编辑程序，首先必须做好文本编辑器本身的功能，然后对其完善，做成一个完整的小程序

功能设计说明：功能是这个文本编辑器的核心内容，也就是程序的作用，它是用来做什么的；本程序就是用来编写文本的，编写过程中要利用到窗体（Form）一个，控件包括：RichTextBox1（超文本框）、CommonDialog（通用对话框），以及InputBox（消息框）、菜单编辑器等，。要做的工作就是编写代码把这些控件和窗体等结合为一体，使得程序能够成为一体，顺畅运行。

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

Private Sub Command1_Click()

Dim i As Integer

If Text2.Text<>"123456"Then

i=MsgBox("密码错误",5+vbExclamation,"警告")

If i<>6Then

End

Else

Text2.Text=""

Text2.SetFocus

End If

End If

Form1.Hide

Form2.Show

End Sub

Private Sub Form_Load()

Text1.Text=""

Text1.MaxLength=6

Text2.Text=""

Text2.MaxLength=6

Text2.PasswordChar="*"

End Sub

Private Sub Text1_LostFocus()

If Not IsNumeric(Text1.Text)Then MsgBox"帐号必须为数字",,"警告" Text1.Text=""

Text1.SetFocus

End If

End Sub

Private Sub Command1_Click()

Form2.Hide

Form3.Show

End Sub

Private Sub Command2_Click()

Form2.Hide

Form4.Show

End Sub

Private Sub Command3_Click()

Form2.Hide

Form5.Show

End Sub

Private Sub Color_Click() CommonDialog1.Action=3

Text1.ForeColor=CommonDialog1.Color End Sub

Private Sub Command1_Click()

Form3.Hide

Form2.Show

End Sub

Private Sub Copy_Click()

Dim st As String

st=Text1.SelText

End Sub

Private Sub Cut_Click()

Dim st As String

st=Text1.SelText

Text1.SelText=""

End Sub

Private Sub Exit_Click()

End

End Sub

Private Sub Font_Click()

CommonDialog1.Flags=cdlCFBoth Or cdlCFEffects CommonDialog1.Action=4

Text1.FontName=CommonDialog1.FileName

Text1.FontSize=CommonDialog1.FontSize

Text1.FontBold=CommonDialog1.FontBold

Text1.FontItalic=CommonDialog1.FontItalic

Text1.FontStrikethru=CommonDialog1.FontStrikethru Text1.FontUnderline=CommonDialog1.FontUnderline Text1.ForeColor=CommonDialog1.Color

End Sub

Sub New_Click()

Text1.Text=""

Me.Caption=File

End Sub

Sub Open_Click()

CommonDialog1.Action=1

Text1.Text=""

Open CommonDialog1.FileName For Input As#1

Do While Not EOF(1)

Line Input#1,inputdata

Text1.Text=Text1.Text+inputdata+vbCrLf

Loop

Close#1

End Sub

Private Sub Paste_Click()

Text1.SelText=st

End Sub

Private Sub Print_Click()

CommonDialog1.Action=5

For i=1To CommonDialog1.Copies