学院名称学生姓名专业名称班
级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.PawordChar = \"*\" 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 = 1 To CommonDialog1.Copies
Printer.Print Text1.Text Next i Printer.EndDoc End Sub
Private Sub SaveAs_Click() CommonDialog1.FileName = \"vb课设用.txt\" CommonDialog1.DefaultExt = \"txt\" CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text End Sub
Dim arr As Long, sum As Long, a As Integer Private Sub Command1_Click() a = HScroll1.Value Text1.Text = plus(a) Call isprime(a) End Sub
Private Sub Command2_Click() End End Sub
Private Sub HScroll1_Change() Label2.Caption = HScroll1.Value End Sub Sub isprime(max As Integer) Dim x As Integer, i As Integer, j As Integer For i = 2 To max x = 0 For j = 2 To ictP * 2 Show1 ctDu(I), &HFFFFFF / (ctDuS + 1) * I * 0.6 Next Dim x As Single, y As Single Static J As Single Picture1.DrawWidth = 15 x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet (x0, y0), 255 x = 1200: y = 0: J = JJ x = S * Cos(J + ToJ): y = S * Sin(J + ToJ) End Sub Private Sub Command1_Click() End End Sub
五、运行结果
六． 心得体会
通过本次课程设计，使我对VB的认识更加深入了一层，VB主要由两部分组成，一个是Visual可视化界面设计，另一个是Basic程序设计。对于第一部分，我觉得还是比较容易的，因为它比较直观。就目前我所学的，对于第二部分还是比较困难。在做设计的过程中发现自己存在不少问题，由于word知识欠缺，我没有办法为我的课程设计创建目录，这让我觉得很遗憾，尤其是对VB编程语句的不熟悉而造成在运行过程的很多次出错。具体说文本编辑器的设计，首先是控件的使用要注意，例如不能使用平时一般的Text文本框，因为其只适用于一般的文本显示，使用RichTextBox，可拥有文本的完整功能，不用再添加滚动条等控件，而是使用其自带的滚动条；其实是菜单的设计，应注意菜单的名称书写，不能出现重复现象，否则要使用索引，不仅增加麻烦更不利于程序编写，然后编写代码的时候应注意必须与菜单中的名字一一对应，否则会出现错误；最后要注意程序的完整性以及实用性、便捷性，能够有友好的UI设计，给用户最好的体验。
