vb课程设计

第一章绪论 目 录 摘要………………………………………………I TOC \o "1-3" \h \z \u 第一章 系统分析 - 1 - 第二章 系统实现 - 6 - 第三章 系统调试 - 8 - 第四章 使用说明 - 12 - 总结 - 17 - 附录 - 18 - 1源代码 ....- 18 - 2参考资料 ..- 27 - 第一章 系统分析 1.1开发环境 今天，企业要获得成功，就必须正视构建和维护日益复杂的信息技术解决 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 的需求。此外，他们还要借助于新技术来拓展业务功能并开发全新的业务机会。自信息部门接受了技术支持任务的那一刻起，他们便成为绝大部分业务策略中的关键角色。 企业当然希望能从他们在 IT 项目的投资中获得最大利润，这就意味着 IT 部门需要在越来越大的压力下多快好省地完成工作。对更高成本效益的追求使得 IT 项目的预见性需求日渐增加。然而，这样做通常造成繁琐的过程和对成本消耗的监控，这只不过是将费用转嫁到不同的问题。付出的代价是开发机会的时间投入以及膨胀的 IT 预算。 复杂的应用程序需要多支训练有素的开发团队来实现。对于开发团队作出的任何主要承诺来说，信息交流都是成功的一个基本元素。新的 Visual Studio Team System 扩展了 Microsoft 的优秀功能，即，通过提供与业务紧密集成的、可扩展的、能够增加成功几率的生命周期工具，从而为用户提供高效的工具。能否成功主要取决于，为了降低交付解决方案的复杂性，团队间是否进行了充分的交流。 尽管许多 IT 解决方案项目的工作产品是软件，但生成软件并不是项目的目标。相反，软件是实现目标的手段 — 驱动不同的业务价值。要应对风险并增加成功的可预见性，大多数 IT 部门转而采用各种各样的工具和过程来支持 SDLC。大部分旨在提高软件开发效率的尝试均不尽如人意。这些尝试要么在实现时过于繁琐，并未达到预期的目标，要么根本无法切中团队开发中令人感到苦恼的要害问题。 1.2相关技术 当 Microsoft 首先发布 Visual Basic 之时，就通过降低其复杂度从而使 Windows 软件开发得以广泛应用。利用 Visual Basic 6.0，Microsoft 让数以百万计的开发人员能够快速开发客户端/服务器应用程序。最近，利用 Visual Studio .NET，Microsoft 又为开发人员提供了轻松开发分布式应用程序的工具与技术。通过 Visual Studio 2005 Team System，Microsoft 正在解决日益增加的应用程序复杂性及其设计、开发和部署所必需的生命周期问题。这一点是通过提供必需的工具和指导从而能够预见、重复结果（无需付出生产效率和创新的代价）实现的。 信息交流：通过降低报告的运转开销和寻觅团队成员间新的交流渠道，Visual Studio Team System 着重于能够更好地进行交流。例如： 通过自动从团队成员使用的工具那里收集信息，可以简化报告过程。从 Visual Studio Team System 采集到的数据保存在数据仓库中，这使项目状态报告和可见性能够面向软件开发团队的所有成员，甚至是项目组之外的乾系人。 集成的工具：Visual Studio 的成功已被证实，即开发人员偏爱一个具备对他们需要的工具提供接口的集成开发环境。通过将开发人员在开发环境中需要的测试和性能工具。 例如： 单元测试、代码分析和性能分析）合并在一起，Visual Studio Team System 也期待着这种成功。这使开发人员能够在生命周期的较早阶段就改善其代码的质量，而无需中断他们的工作。通过尽早地为开发人员提供他们需要用于识别和解决质量问题的工具，更多的产品缺陷就能够在它们还未构成危害之前即被发现并解决。 简化的、集成的工作流和过程：有了 Visual Studio Team System，那么过程就不仅仅是文档了。它还能将自己体现为实际的工具行为更改。当您在项目初期选择过程时，还需要选择工作流和工作产品，它们会驱动系统的行为方式。对 SDLC 过程的支持是内置的，这使得对工作流的支持是无缝的。通过将过程集成到团队成员日常使用的基本工具中，Visual Studio Team System 大大消除了过程采纳的障碍，并使自动收集跨职能的项目 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 成为可能，而无需实施人工报告的相关开销。 用户界面集成：工具间的无缝集成是增强生产效率的关键。Visual Studio Team System 提供跨整个 SDLC 工具套件的、一致的用户体验。对于开发人员而言，可以在他们当前的开发环境中使用某些活动（例如，单元测试、工作项跟踪、代码剖析以及代码分析）。 信息交流：重要的大型应用程序由团队构建，这其中有大量可能从未编写过代码的参与者，包括：业务发起人、项目管理者、架构师以及测试人员。更甚之，团队本身已演变为地理上分布更广且更专业化。角色的差异导致许多问题无从解决，或者无意识地对计划产生了分歧。 工具捆绑：近些年来，在 SDLC 工具领域中已经大量使用了捆绑手法。但是，仅仅是捆绑工具集合并不能实现工具集成。这只是建立工具包。由于角色限制，非集成工具（无法支持工具间的自动数据流）之间就产生了矛盾。集成性的匮乏就必须通过手工乾预进行弥补，而由此可能产生其他一些问题。 不合适的过程：使过程采纳变得复杂的原因是存在一个矛盾，即开发人员在许多生命周期过程中既是最关键的一环，又是最薄弱的一环。不适合团队成员（特别是整个开发团体）工作风格的过程，将遭遇到明显地阻力。面临的挑战就是平衡可预见、可重复过程的生产效率和创新。当未形成这种平衡时，每一个人都挣扎于成本消耗与实现任务目标的矛盾之中。多数过程都以文档为中心。在这种情况下，他们需要额外付出超出维护日常活动的正常流之外的努力。无论团队使用特定的、灵活的或者常规的过程，每一支团队都可以受益于自动且集成的软件开发过程。 数据集成：通过使用一个公共的跨工具集的数据仓库，Visual Studio Team System 解决了在大多数 SDLC 工具中建立数据仓库这一问题，并启动了一个聚合的项目状态视图。团队根据能够收集到的规则来管理项目。今天，数据主要限于缺陷跟踪。Visual Studio Team System 中集成的数据将开创一条新路 — 通过平衡利用贯穿于 SDLC 的大量、多样的数据来管理项目规则。Visual Studio Team System 会收集精确的数据 — 不仅限于缺陷跟踪，而是包括测试结果、代码涵盖、代码生成、任务进度等这些贯穿于团队常规工作流程的数据。该数据以某些标准的报告方式呈现，客户和 Microsoft 内部团队已在报告中建立了成功项目管理的关键规则。此外，团队还能够创建自定义报告。仅当以项目的大范围上下文查看数据时，团队才能够精确地报告项目状态。 过程集成：在 Visual Studio Team System 中，工具行为由项目开始时选择的过程决定。通过将过程与工具相集成，Visual Studio Team System 帮助确保在项目各阶段之间或各种项目角色之间避免丢失任何 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 。通过自动处理团队成员之间的工作调整，可以提高团队效率。公司通过使过程标准化，能够纠正贯穿于过程改进中的系统问题，而无需增加团队的工作量。此外，过程集成并不增加工作量，而通常能够降低与 SDLC 中所采纳过程相关的开销。 扩展性：尽管存在一些基本的工具可组成 SDLC 工具（例如，架构师工具、测试工具等），但是 SDLC 并未限制住工具的数量。当集成支持 SDLC 的工具时，团队会发现在提高团队效率，同时降低复杂性这些方面的好处。Visual Studio Team System 将提供基本的平台，让所有提供商能够以一种普通的、公众可理解的形式交换信息。这理所当然地铸造了一个充满活力的合作伙伴体系，合作伙伴能够构建完全集成的工具，简化构建 IT 解决方案的复杂性，以及推动信息交流和鼓励团队协作。要获得跨 UI、数据和过程集成的最大价值，就需要扩展性。扩展性促成交互性。 数据扩展性：Visual Studio Team System 利用 Visual Studio Team Foundation Core Services (TFCS) 将这些工具集成在一起。TFCS 提供一组能够将工具集成在一起的工具，无需工具间的紧密耦合。对于数据收集，TFCS 还能够将第三方工具用于由 Visual Studio Team System 使用的数据仓库。 1.3市场分析 微软公司提出的.NET概念，正从各个方面渗入到我们的生活中。它将产生的作用，诚如一位业内名家所描述的：“请忘掉你认为你所知道的，.NET将改变一切”！既然如此，无论是ＩＴ业内人士、还是企业决策者，快速领会这个新概念的含义及深远影响，都显得非常必要。 VB正在不断地发展中，它具备了以前VB编程人员作梦都想拥有的性能，想象一下你将随心所欲的利用这些性能，是不是很令人激动？然而，这个计划于2001年第四季度上市销售的VB版本可能会给你带来些小麻烦，因为要完全掌握它需要一个较长的学习周期，而且其中包括了一些微妙的变化，你可能在使用他们的时候出现错误。 Microsoft .NET平台的涵盖面很广，而且很难预测它的真正意义。我们注意到，现在有很多关于.NET的不正确的理解。因此在这篇文章里，我们将把给你一个VB.NET到底是些什么的概念，从头到尾说一说它是什么、它能干什么以及怎样才能充分发挥它的优点。我们要特别地细看一下IDE的改变、面向对象特征、底层结构的改变、一些“现代化”的语法以及包装和分发方面的增强。我们将讨论这些功能能为你做什么，解释他们的优点与不足。由于这些改变是如此之大，而且涉及方方面面，因此希望这一篇文章能满足你全部的要求是不现实的，要了解这方面全部的知识请参阅有关文章和书籍。 Visual Basic.NET2005 和你现在所知的开发工具完全不同，并且这个新版本会改变你的未来。到底有多大不同？如果你觉得从VB3迁移到VB4是一个很大的变化，那这次VB.NET会让你感到震惊。这次升级与其说是VB的一个新版本，还不如说是迁移到一个新平台上，你所面临的情况就和从DOS迁移到Windows差不多。 VB.NET预期拥有的第一新功能就是继承能力。继承是VB开发者长期以来要求得最多的功能。判断一下对继承的要求是不是像早些时候对本地化编译器的要求一样将是一件很有意思的事，后者，当Microsoft提供了一个以后，你就几乎听不到多少这方面的言语了。 Visual Basic.NET 2005现在提供大量面向对象功能，包括应用程序继承，它允许你从其它类导出你想创建的类。像在其它面向对象语言里一样，你能覆盖基类的方法和属性，并且能实现多态以创建健壮的、扩展性好的组件。VB.NET不仅能让你覆盖方法或属性；它还能让你重载方法。重载是定义同名、但使用不同数据类型的方法或属性的能力。VB.NET 的面向对象能力扩展了语言本身的通路：一切都是对象。 第二章 系统实现 2.1设计方案 设计一个文本编辑器，该文本编辑器可以完成以下功能。 1.​ 建立、打开、保存一个文件 2.​ 具有全选、复制、剪切、粘贴等文字编辑功能 3.​ 能够运行“字体”和“颜色”对话框 4.​ 具有段落对齐和文档打印功能 2.2设计要求 1. 在某个教学单元结束后，完成一个教师布置的、或学生自己拟定的、知识覆盖整个章节的，有一定综合性和难度的项目，要求描述出要达到的目标、围绕目标，收集资料和素材，复习所需的课程知识，描述问题解决方案、编写程序上机调试，直到项目的完成。最后的成果要有完成的作品和相应的文档。 2. 在课程结束后，完成一个大的编程项目，其要求与课程单元的项目差不多，只是综合性更强、难度更大、知识覆盖面更广，工作量更大，以全面促进学生复习和梳理学科教学内容，提升学生分析问题、解决问题和文档的书写和编制。 2.3流程图 图2.1 流程图 第三章 系统调试 图3.1 初始界面 图3.2文件菜单主要功能 图3.3退出选项实现 图3.4 编辑菜单粘贴选项实现 图3.5格式菜单右对齐选项实现 图3.6格式菜单中颜色对话框的实现 图3.7 格式菜单字体对话框的实现 第四章 使用说明 1实现“新建“功能 “新建”功能的实质是要求记事本清空RichTextBox1中所有的内容，也就是执行语句RichTextBox1.TEXT=“”，新建的文件名默认为“未命名”，具体代码如下： Private Sub 新建ＮctrlNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建ＮctrlNToolStripMenuItem.Click Dim filename As String RichTextBox1.Text = "" filename = "未命名" Me.Text = filename End Sub 2实现“打开”功能 要求使用控件打开一个输入框，选择文件，打开的文件类型为文本文件，具体代码如下： Private Sub 打开OCTRLOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开OCTRLOToolStripMenuItem.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 3实现“保存”功能 使用控件打开一个“保存”对话框，用于保存编辑后的文本文件，具体代码如下： Private Sub 保存SCTRLSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存SCTRLSToolStripMenuItem.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 4实现“打印”功能 使用控件实现打印功能，具体代码如下： Private Sub 打印PCTRLPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印PCTRLPToolStripMenuItem.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 5实现“退出”功能 退出之前询问用户是否存盘，如果用户选择存盘，则使用控件打开一个“保存”对话框，保存编辑后的文本文件，否则不保存。 Private Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.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 6实现“编辑”菜单功能 “编辑”菜单包括“剪切”，“复制”，“粘贴”和“全选”功能，具体代码如下： Private Sub 剪切XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切XToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub 复制CCTRLCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制CCTRLCToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub 粘贴VToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴VToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub 全选ACTRLAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选ACTRLAToolStripMenuItem.Click RichTextBox1.SelectAll() End Sub 7实现“格式”菜单中的“对齐”子菜单功能 “格式”菜单包括“左对齐”，“居中”和“右对齐”功能，具体代码如下： 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.Center 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 8实现“格式”菜单中的“字体”和“颜色”子菜单 选择“格式”菜单的“字体”选项，弹出“字体”对话框，用户可以进行字体设置，选择“颜色”选项，弹出“颜色”对话框，用户进行颜色设置，具体代码如下： 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 End Class 总 结 课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程 VB.NET课程是计算机科学与技术本科专业的专业骨干课。本课程主要通过VB.NET论述了面向对象程序设计和组建编程的机理，涉及到控制台界面程序、Windows窗体程序、图形界面编程、数据库、网络应用系统等多方面的内容。内容量大，程序设计复杂、同时VB.NET程序调试是在VS.NET环境下进行，在编程过程中环境会自动为用户生成一些必要代码，以降低编程难度，降低学生的编程负担，但这也带来了一些问题，如：学生对VB.ENT的程序结构把握和了解不全面，对编程机理了解不透彻，学生容易盲目照搬书上代码，不求甚解，似是而非。为了解决这个问题，我们采取了课程设计的方法来加深学生对知识的理解，将书本知识迁移到新的问题解决中，提高学生分析问题和解决问题的能力。 要求学生在学习该课程中，应用每个相对独立的、完整的单元知识解决一个实际项目，设计编写一个小作品；学完整个课程后，完成一个综合性比较强的编程项目，使学生对整个课程内容进行全面的总结、梳理，以项目完成为手段，全面锻炼学生分析问题和解决问题的能力。 通过此次课程设计，将我本学期所学的VB.NET知识得到巩固和应用，在设计的过程中我遇到了很到问题，不过在老师和同学们的帮助和自己的思考下还是很好的完成了。这此课程设计还让我懂得了写程序不能闭门造车，要努力拓宽知识面，开阔视野，拓展思维。它还让我学会了在网上查阅那些无限的资料。 这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，最后在老师们的辛勤指导下，终于迎逆而解。同时，在老师的身上我学得到很多实用的知识，我很感谢老师对我们的付出。 附录 1源代码 Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() '该调用是 Windows 窗体设计器所必需的。 InitializeComponent() '在 InitializeComponent() 调用之后添加任何初始化 End Sub '窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub 'Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer '注意: 以下过程是 Windows 窗体设计器所必需的 '可以使用 Windows 窗体设计器修改此过程。 '不要使用代码编辑器修改它。 Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog Friend WithEvents ColorDialog1 As System.Windows.Forms.ColorDialog Friend WithEvents PrintDialog1 As System.Windows.Forms.PrintDialog Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem Friend WithEvents MenuIten4 As System.Windows.Forms.MenuItem Private Sub InitializeComponent() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog Me.FontDialog1 = New System.Windows.Forms.FontDialog Me.ColorDialog1 = New System.Windows.Forms.ColorDialog Me.PrintDialog1 = New System.Windows.Forms.PrintDialog Me.MainMenu1 = New System.Windows.Forms.MainMenu Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.MenuIten4 = New System.Windows.Forms.MenuItem Me.MenuItem5 = New System.Windows.Forms.MenuItem Me.MenuItem6 = New System.Windows.Forms.MenuItem Me.MenuItem7 = New System.Windows.Forms.MenuItem Me.MenuItem8 = New System.Windows.Forms.MenuItem Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.MenuItem9 = New System.Windows.Forms.MenuItem Me.MenuItem10 = New System.Windows.Forms.MenuItem Me.MenuItem11 = New System.Windows.Forms.MenuItem Me.MenuItem12 = New System.Windows.Forms.MenuItem Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.MenuItem13 = New System.Windows.Forms.MenuItem Me.MenuItem15 = New System.Windows.Forms.MenuItem Me.MenuItem16 = New System.Windows.Forms.MenuItem Me.MenuItem17 = New System.Windows.Forms.MenuItem Me.MenuItem14 = New System.Windows.Forms.MenuItem Me.MenuItem18 = New System.Windows.Forms.MenuItem Me.MenuItem19 = New System.Windows.Forms.MenuItem Me.MenuItem20 = New System.Windows.Forms.MenuItem Me.MenuItem21 = New System.Windows.Forms.MenuItem Me.RichTextBox1 = New System.Windows.Forms.RichTextBox Me.SuspendLayout() ' 'MainMenu1 ' Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3}) 'MenuItem2 ' Me.MenuItem2.Index = 1 Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem9, Me.MenuItem10, Me.MenuItem11, Me.MenuItem12}) Me.MenuItem2.Text = "编辑（E）" ' 'MenuItem9 ' Me.MenuItem9.Index = 0 Me.MenuItem9.Text = "剪切（X）" ' 'MenuItem10 ' Me.MenuItem10.Index = 1 Me.MenuItem10.Text = "复制（C）" ' 'MenuItem11 ' Me.MenuItem11.Index = 2 Me.MenuItem11.Text = "粘贴（V）" ' 'MenuItem12 ' Me.MenuItem12.Index = 3 Me.MenuItem12.Text = "全选（A）" ' 'MenuItem3 ' Me.MenuItem3.Index = 2 Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem13, Me.MenuItem14, Me.MenuItem18, Me.MenuItem20}) Me.MenuItem3.Text = "格式（O）" 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.ClientSize = New System.Drawing.Size(288, 230) Me.Controls.Add(Me.RichTextBox1) Me.Menu = Me.MainMenu1 Me.Name = "Form1" Me.Text = "无标题-记事本" Me.ResumeLayout(False) End Sub #End Region Public Class Form1 Private Sub 新建ＮctrlNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建ＮctrlNToolStripMenuItem.Click Dim filename As String RichTextBox1.Text = "" filename = "未命名" Me.Text = filename End Sub Private Sub 打开OCTRLOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开OCTRLOToolStripMenuItem.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 保存SCTRLSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存SCTRLSToolStripMenuItem.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 打印PCTRLPToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印PCTRLPToolStripMenuItem.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 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.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 剪切XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切XToolStripMenuItem.Click RichTextBox1.Cut() End Sub Private Sub 复制CCTRLCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 复制CCTRLCToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub 粘贴VToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴VToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub 全选ACTRLAToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 全选ACTRLAToolStripMenuItem.Click RichTextBox1.SelectAll() 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.Center 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 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 End Class 2参考资料 [1]《全国计算机二级 教程 人力资源管理pdf成真迷上我教程下载西门子数控教程protel99se入门教程fi6130z安装使用教程 VB语言程序设计》--- 高等教育出版社 ---刘炳文 杨明福 陈定中 [2]《程序设计教学方法探悉》--- 计算机教育 --- 张书云、姜淑菊. [3]《VB教学之我见》--- 中国职业技术教育 --- 贾长云 [4]《VB.NET实用案例教程》--- 清华大学出版社 --- 石志国 [5]《VB.NET信息系统设计与开发实例》--- 机械 工程 路基工程安全技术交底工程项目施工成本控制工程量增项单年度零星工程技术标正投影法基本原理 出版--- 黄名 梁旭 [6]《程序员独立宣言VB.NET》--- 机械工业出版社--- 周卫 赵中伟 [7]《突破VB.NET编程实例五十讲》--- 中国水利水电出版社 --- 李小东 顾卫华 [8]《VB.NET程序设计》--- 机械工业出版社--- 田更