VB记事本课程设计报告.doc

目 录第一章 绪 论1第二章 系统分析3第三章 总体设计与详细设计4第四章 编码实现7第五章 测试与调试14第六章 总结与心得15附录一19源代码19附录二23参考文献23 第一章 绪 论1.1VB程序现状在计算机软件技术飞速发展和不断变化的今天，如何选择编程语言来完成应用层次的需求是我们所学习的关键。而Visual basic.NET在快速软件开发和中小型软件开发中具有明显优势，业界使用Visual basic.NET的程序员占有很大的比例，社会需求比较大。1.2 Visual basic.NET研究背景Visual basic.NET自从20世纪90年代早期诞生以来，以其强大的功能迅速为广大程序员们所接受。从2001年开始，日本的国内的移动电话开始搭载Java。使用本来就是一种程序语言的Visual basic.NET之后，就可以在移动电话上完成以往静态的HTML内容所无法达成的计算处理、数据存储、与服务器的通信等等。如果能利用Visual basic.NET上其他丰富功能，那么就可以实现更多的功能。Visual basic.NET技术在智能移动设备应用方面的优势非常明显。1.3 程序开发 记事本是一个基本的文本编辑程序，最常用于查看或编辑文本文件。 文本文件是通常由 .txt 文件扩展名标识的文件类型。现在一般特指Windows操作系统附带的一个简单的文本编辑、浏览软件notepad.exe。(不过在Windows 9x和windows XP中是不同的两个版本，不能互换。)记事本只能处理纯文本文件，但是，由于多种格式源代码都是纯文本的，所以记事本也就成为了使用最多的源代码编辑器。它只具备最基本的编辑功能，所以体积小巧，启动快，占用内存低，容易使用。 第二章 系统分析2.1 记事本软件设计的思路 1理解记事本，理解操作的规则。 2抽象记事本，数据结构化。 3多道程序设计。 4建立能连接的面板。 5图形界面设计。2.2 功能需求：1.输入：能够输入较大量的文字信息。2.格式：能够对所输入的信息，进行简单的排版操 作，字体设置， 段落格式，字体颜色等。3 保存：能够随时保存所输入的信息，以防止丢失。4. 编辑：能够对输入的信息进行复制，剪切，粘 贴，清除等操作5.退出程序。 第三章 总体设计与详细设计3.1总体设计： 1.功能模块设计 本程序主要分为4个模块。分别为记事本的外观，创建主菜单，创建各类子菜单，添加文本输入窗口，控制清除，各级菜单的连接等。这几个模块通过面向对象的语言分别得以实现。 2.功能设计 本程序构建的记事本程序，其功能有以下几个方面：（1） 输入（2） 简单的字体处理（3） 页面排版操作（4） 保存（5） 清除3.2详细设计1) 设置主面板；2) 创建主菜单及各级子菜单；3) 设置编辑、格式、文件三个菜单内容及连接；4) 设置各子菜单具体内容；5) 判断是否保存；3.3流程图 第四章 编码实现1.实现“新建”功能Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建ToolStripMenuItem.Click Dim FileName As String RichTextBox1.Text = FileName = 未命名 Me.Text = FileName End Sub2. 实现“打开”功能Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click Dim str As String OpenFileDialog1.DefaultExt = TXT OpenFileDialog1.Filter = 文本文件(*.TXT|*.TXT) OpenFileDialog1.ShowDialog() str = OpenFileDialog1.FileName RichTextBox1.LoadFile(str, RichTextBoxStreamType.PlainText) Me.Text = strEnd Sub 3. 实现“保存”功能Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click SaveFileDialog1.DefaultExt = TXT SaveFileDialog1.Filter = 文本文件(*.TXT|*.TXT) SaveFileDialog1.ShowDialog() Dim str1 As String str1 = SaveFileDialog1.FileName RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText) Me.Text = str1End Sub4. 实现“打印”功能Private Sub 打印ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印ToolStripMenuItem.Click Dim pd As System.Drawing.Printing.PrintDocument pd = New System.Drawing.Printing.PrintDocument() PrintDialog1.Document = pd If (PrintDialog1.ShowDialog() = DialogResult.OK) Then pd.Print() End IfEnd Sub5. 实现“退出”功能Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Dim result As DialogResult result = MessageBox.Show(是否存盘？, 提示, MessageBoxButtons.YesNo) If result = Windows.Forms.DialogResult.Yes Then SaveFileDialog1.ShowDialog() Dim str1 As String str1 = SaveFileDialog1.FileName RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText) Else Close() End IfEnd Sub6. 实现“编辑”菜单功能Private Sub 剪切ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub 复制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制ToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub 粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub 全选ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选ToolStripMenuItem.Click RichTextBox1.SelectAll() End SubPrivate Sub 清除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除ToolStripMenuItem.Click RichTextBox1.Clear()End SubPrivate Sub 撤销ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤销ToolStripMenuItem.Click RichTextBox1.Undo() End Sub Private Sub 重复ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 重复ToolStripMenuItem.Click RichTextBox1.Redo() End Sub7. 实现“页面设置”功能Private Sub 页面设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 页面设置ToolStripMenuItem.Click Dim pdh As System.Drawing.Printing.PrintDocument pdh = New System.Drawing.Printing.PrintDocument() PageSetupDialog1.Document = pdh If (PageSetupDialog1.ShowDialog() = DialogResult.OK) Then pdh.Print() End IfEnd Sub8. 实现“格式”菜单中的“对齐”子菜单功能Private Sub 左对齐ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 左对齐ToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Left End Sub Private Sub 右对齐ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 右对齐ToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Right End Sub Private Sub 居中ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 居中ToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.CenterEnd Sub9. 实现“格式”菜单中的“字体”和“颜色”子菜单Private Sub 字体对话框ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字体对话框ToolStripMenuItem.Click FontDialog1.ShowDialog() RichTextBox1.SelectionFont = FontDialog1.Font End Sub Private Sub 颜色对话框ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 颜色对话框ToolStripMenuItem.Click ColorDialog1.ShowDialog() RichTextBox1.SelectionColor = ColorDialog1.ColorEnd Sub 第五章 测试与调试 1调试启动调试2. 运行结果如下图 第六章 总结与心得总结：通过这次的课程设计过程，我进一步了解VB程序的设计懂得怎么样去制定计划，怎么样去实现这个计划，并掌握了在执行过程中怎么样去克服心理上的不良情绪，黑夜过去了，我们收获的是黎明。在本次实践中，给我印象最为深刻的是在文件删除程序的编译过程中，先有我的各个子程序都已经编辑成功，那么这最后的程序就将是我成功的关键。最后的时刻设置的障碍，是要考验我的能力，在这个问题的解决上，我打了退堂鼓，我不能忍受长时间的无功而反，时间正在消磨我的意志。谢谢老师的那句话，她说：人力有所不能及，然而，人的精神是不会败倒的。我鼓起勇气，到处问，到处查资料，黄天不负有心人，终于看到了我所特别要求的函数，我实现了组合是关键的理论。不得不说这是精神的胜利，是永不言败的精神让我的程序重见天日。心得：课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异，当今计算机应用在生活中可以说得是无处不在。因此作为二十一世纪的大学来说掌握计算机开发技术是十分重要的。回想学习VB的过程中，既有快乐又有烦恼. 从领到书的那一刻，我就很郁闷，VB到底事学什么的，有什么用。刚开始上课时，还在迷茫这门课程是用来做什么的。不过，这些感受都是在对这门课程不了解的情况下产生的。后来慢慢的接触多了，听老师讲的多了，了解多了，渐渐的产生了兴趣。尤其是学到类与对象和多态机制时，上机操作程序，经过编译，调试和运行后，出现界面，当时觉得很好奇，想真正的学好这门课程。通过半个学期的学习，我掌握了基本知识。下学期开始时，被通知要进行三周的课程设计。当时有点懵，感觉学的东西很少，很零散，不知该怎么练到一起，就要课程设计，是不是太难为我们了。 第一天基本上都是在看书，把基本知识再熟悉一边。到了下午的时候，老师发过来三道练习题，从这几道练习题上我得到了不少启发，然后我们组把整个程序的思路理清了，开始着手写程序。第一周结束的时候，我感觉自己收获挺大的，从一开始的迷茫，不知道从何下手到把程序中的几个模块编写出来，心里挺开心的。但是，到了第二周，我们由不得不再次陷入困境。在整个程序的编写过程中。最难的就是修改和删除这两个模块，这也是我们第二周要解决的重点问题。开始编写修改和删除时，很头疼，去向其他人寻求帮助，在别人的帮助和提示下，我编完了修改程序，但编译时老出错，修改后的内容将文本内的信息全部覆盖了。困难之时，我们组的其他人，帮助了我，完成了修改和删除。这样的话，整个程序基本上全部完成了，就剩下完善工作了。回顾起此次课程设计，至今我仍感慨颇多，的确，自从拿到题目到完成整个编程，从理论到实践，在两个星期的日子里，可以学到很多很多的的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，这毕竟独立做的，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固，通过这次课程设计之后，一定把以前所学过的知识重新温故。附录一源代码Public Class Form1 Private Sub 新建ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建ToolStripMenuItem.Click Dim FileName As String RichTextBox1.Text = FileName = 未命名 Me.Text = FileName End Sub Private Sub 打开ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开ToolStripMenuItem.Click Dim str As String OpenFileDialog1.DefaultExt = TXT OpenFileDialog1.Filter = 文本文件(*.TXT|*.TXT) OpenFileDialog1.ShowDialog() str = OpenFileDialog1.FileName RichTextBox1.LoadFile(str, RichTextBoxStreamType.PlainText) Me.Text = str End Sub Private Sub 保存ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存ToolStripMenuItem.Click SaveFileDialog1.DefaultExt = TXT SaveFileDialog1.Filter = 文本文件(*.TXT|*.TXT) SaveFileDialog1.ShowDialog() Dim str1 As String str1 = SaveFileDialog1.FileName RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText) Me.Text = str1 End Sub Private Sub 打印ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印ToolStripMenuItem.Click Dim pd As System.Drawing.Printing.PrintDocument pd = New System.Drawing.Printing.PrintDocument() PrintDialog1.Document = pd If (PrintDialog1.ShowDialog() = DialogResult.OK) Then pd.Print() End If End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Dim result As DialogResult result = MessageBox.Show(是否存盘？, 提示, MessageBoxButtons.YesNo) If result = Windows.Forms.DialogResult.Yes Then SaveFileDialog1.ShowDialog() Dim str1 As String str1 = SaveFileDialog1.FileName RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText) Else Close() End If End Sub Private Sub 剪切ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切ToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub 复制ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制ToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub 粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub 全选ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选ToolStripMenuItem.Click RichTextBox1.SelectAll()End Sub Private Sub 撤销ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 撤销ToolStripMenuItem.Click RichTextBox1.Undo() End Sub Private Sub 重复ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 重复ToolStripMenuItem.Click RichTextBox1.Redo() End Sub Private Sub 左对齐ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 左对齐ToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Left End Sub Private Sub 右对齐ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 右对齐ToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Right End Sub Private Sub 居中ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 居中ToolStripMenuItem.Click RichTextBox1.SelectionAlignment = HorizontalAlignment.Center End Sub Private Sub 字体对话框ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 字体对话框ToolStripMenuItem.Click FontDialog1.ShowDialog() RichTextBox1.SelectionFont = FontDialog1.Font End Sub Private Sub 颜色对话框ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 颜色对话框ToolStripMenuItem.Click ColorDialog1.ShowDialog() RichTextBox1.SelectionColor = ColorDialog1.Color End Sub Private Sub