文本编辑器程序设计
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
VB课程设计报告
——文本编辑器
学院名称:
学生姓名:
专业名称:
班级:
一、课程设计题目
用Visual Basic程序设计语言编写一个简易的文本编辑器
要求:具有一般文本编辑器的基本功能:新建、保存、打开、另存为和退出;必需能够同时打开多个文本文件进行编辑;能够对所编辑的文件进行保存,保存类型为txt;能够打开计算机硬盘上已存在的文本文件,并进行编辑。
二、课程设计目的
初步掌握了VB程序设计的各种方法,学会了编写最基本的VB程序;对于完整的VB程序设计来讲是很不足的,平时掌握的只是单独的窗体(Form)程序编写,以及各种简单控件的使用,没有做到很好连贯性,所以有必要做一次完整的VB 程序设计,结合所学的基本知识,使用多个窗体自成一套系统,加上各种控件的综合运用,初步设计一个合格的VB应用程序;这样在巩固VB所学的同时,更好地学会程序设计的一些思想和方法,对于以后的编程学习或是工作有重要的实践意义。
三、课程设计说明及程序结构
题目为文本编辑器,即是最基本的文本编辑程序,首先必须做好文本编辑器本身的功能,然后对其完善,做成一个完整的小程序
功能设计说明:功能是这个文本编辑器的核心内容,也就是程序的作用,它是用来做什么的;本程序就是用来编写文本的,编写过程中要利用到窗体(Form)一个,控件包括:RichTextBox1(超文本框)、CommonDialog(通用对话框),以及InputBox(消息框)、菜单编辑器等,。要做的工作就是编写代码把这些控件和窗体等结合为一体,使得程序能够成为一体,顺畅运行。
本次设计在按照题目要求的前提下,为了完整地展示一个应用程序,在最初就设计为最基本的文本的编辑器,所以取名为“易记本”,就是简易记事本的简称,然后加入图标,在程序完成之后还进行了大包操作,得到应用程序的安装文件,最后安装在电脑上运行使用。
四、源代码
Dim sFind As String
Dim FileType, FiType As String
Private Sub bc_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
Private Sub exit_Click()
If TabStop = False Then
JieGuo = MsgBox("文本已经改变,是否需要保存", vbYesNo)
If JieGuo = vbYes Then
'保存文件的代码
Else
'选择不保存的代码
End If
Else
End '直接退出程序
End If
End
End Sub
Sub Form_Unload(Cancel As Integer)
End Sub
Private Sub fz_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
Private Sub jq_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
Private Sub new_Click()
RichTextBox1.Text = ""
FileName = "未命名1"
Me.Caption = FileName
End Sub
Private Sub open_Click()
CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.FileName = CommonDialog1.FileName
RichTextBox1.LoadFile FileName
Me.Caption = "记事本-" & FileName
End Sub
Private Sub QX_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
Sub RichTextBox1_Change()
TabStop = False
End Sub
Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeySpace Then
RichTextBox1.SelFontName = CommonDialog1.FontName
End If
End Sub
Private Sub zt_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
五、运行结果