- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
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 6 Then
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.Fil
文档评论(0)