报告设计报告课程设计报告vb课程设计报告

visual basic课程设计报告_记事本

时间：2024.10.12

第一章   绪论

　  Visual Basic.NET 是从 Visual Basic 语言演变而来的，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序。与所有面向 Microsoft .NET Framework 的语言一样，使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面的优点。

这一代 Visual Basic 延续了为您提供一种简单快捷的方法来创建基于 .NET Framework 的应用程序的传统。

VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。

　   VB.net的版本号是VisualBasic7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。

VB.NET的特点：

　  1.真正成为面向对象以及支持继承性的语言。

　  2.窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。

3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。

4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。                                                                          
第二章   问题定义

2. 1需求分析

本程序要求设计一个文本编辑器，主要用于对文本的简易编辑，储存信息等功能的满足的一款小程序，那么我们就按照应该有的需求，设置相应的菜单，来实现其要求。

2. 2功能需求

此程序虽然简单，但是涉及到的问题也很多，这需要我们不停的去提出问题和寻找问题，更要去完善问题的答案，进过探讨，此程序有以下几种功能：

（1）功能：

（1）  建立、打开、保存一个文本。

（2）  具有全选、复制、剪切、粘贴等文字编辑功能。

（3）  能够运行“字体”和“颜色”对话框。

（4）  具有段落对齐和文档打印功能。


第三章   总体设计与详细设计

3.1文本编辑器的总体设计

通过功能的描绘，我们把此程序设置3个菜单，分别完成其要求的功能：

文件菜单：新建、打开、保存、打印、退出。

编辑：剪切、复制、粘贴、全选。

格式：对齐方式（左对齐、右对齐、居中）、字体、颜色

3.3详细设计

具体设计如下：

1、实现“新建“功能

新建功能的实质是要求记事本清空RichTextBox1中原有的内容，也就是执行语句RichTextBox1.Text=““，新建的文件文件名默认为”未命名“。

Dim FileName As String

        RichTextBox1.Text = ""

        FileName = "未命名"

        Me.Text = FileName

2、实现“打开”功能

要求使用OpenFileDialog空间打开一个输入框，选择文件，打开的文件类型为文本文件。

Dim str As String

        OpenFileDialog1.DefaultExt = "TXT"

        OpenFileDialog1.Filter = "文本文件"

        OpenFileDialog1.ShowDialog()

        str = OpenFileDialog1.FileName

        RichTextBox1.LoadFile(str, RichTextBoxStreamType.PlainText)

        Me.Text = str

3、实现“保存”功能

要求使用SaveFileDialog控件打开一个“保存”对话框，用于保存编辑后的文本文件。

  SaveFileDialog1.DefaultExt = "TXT"

        SaveFileDialog1.Filter = "文本文件（*.TXT）|*.TXT"

        SaveFileDialog1.ShowDialog()

        Dim str1 As String

        str1 = SaveFileDialog1.FileName

        RichTextBox1.SaveFile(str1, RichTextBoxStreamType.PlainText)

        Me.Text = str1

4、实现“打印”功能

要求使用PrintDialog控件实现打印功能。

Dim pd As System.Drawing.Printing.PrintDocument

        pd = New System.Drawing.Printing.PrintDocument

        PrintDialog1.Document = pd

        If (PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then

            pd.Print()

        End If

5、实现“退出”功能

要求退出之前询问用户是否存盘，如果用户选择存盘，则要求使用SaveFileDialog空间打开一个“保存”对话框，保存编辑后的文本文件，否则不保存。

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

6、实现“编辑”菜单功能

“编辑”菜单包括“剪切”、“复制”、“粘贴”和“全选“功能

RichTextBox1.Cut()

        RichTextBox1.Copy()

 

        RichTextBox1.Paste()

  

        RichTextBox1.SelectAll（）

7、实现“格式”菜单中的“对齐”子菜单功能

“格式”菜单包括”剪切“、”复制“、”粘贴“和“全选”功能

RichTextBox1.SelectionAlignment = HorizontalAlignment.Left

        RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

  

        RichTextBox1.SelectionAlignment = HorizontalAlignment.Right

8、实现“格式”菜单中的”字体“和”颜色“子菜单

选择“格式“菜单的”字体“选项，弹出”字体“对话框，用户可以进行字体设置，选择”颜色“选项，弹出”颜色“对话框，用户进行颜色设置。

FontDialog1.ShowDialog()

        RichTextBox1.SelectionFont = FontDialog1.Font

        ColorDialog1.ShowDialog()

        RichTextBox1.SelectionColor = ColorDialog1.Color

第四章   编码实现

1、     实现“新建”功能

Private Sub 新建NCtrlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NCtrlToolStripMenuItem.Click

        Dim FileName As String

        RichTextBox1.Text = ""

        FileName = "未命名"

        Me.Text = FileName

    End Sub

2、     实现“打开”功能

Private Sub 打开OCtrlNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开OCtrlNToolStripMenuItem.Click

        Dim str As String

        OpenFileDialog1.DefaultExt = "TXT"

        OpenFileDialog1.Filter = "文本文件"

        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() = Windows.Forms.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 剪切XCtrlXToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切XCtrlXToolStripMenuItem.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 粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem.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


第五章   调试与测试

 5.1菜单栏

文件菜单功能

编辑菜单功能

格式菜单功能

5.2主要功能

居中对齐

右对齐

左对齐

新宋体倾斜四号

新宋体倾斜四号蓝色字体


第六章   总结与心得

在课程设计过程中，虽然我对程序设计不是很熟悉，但是通过老师详细的讲解，我按照步骤去做，遇到问题的时候先自己想办法解决，解决不了的就去问同学，问老师，通过这种学习，收获很大，学会了自己解决棘手问题，知道了团结的力量。

刚开始做程序的时候，就是完全按照老师的要求，老师的步骤去做的，结果却发现，怎么运行不了？明明是 按照老师的步骤去做的，明明是按照老师的要求去做的，但是就是会遇到一些问题使程序运行不了。开始也没有管那么多，仍然是按照课本上的去做。

经过这次的VB程序设计，让我知道 了更多学习的方法。具体如下：(1)保持良好的学习心态，第一，要有自信，自强，积极主动学习.第二，克服畏难情绪，树立学好程序设计的信心(2)要了解概念：VB程序设计本身并不复杂，变量，函数，条件语句，循环语句等概念较多.要真正能进行程序设计，就要深入理解这些概念.应该重视概念的学习.
(3)自己动手编写程序，亲自动手进行程序设计是培养逻辑思维的好方法.因此我们得多动手编写程序，逐渐提高写程序的能力.自己动手，编写一些程序，才会有成就感，进而对课程产生兴趣，做起来才比较从容.等你在编写大量程序之后（4）上机调试程序应注意多问问同学，多问问老师、，把不懂的地方标出来。(5)养成良好的编程习惯，第一，程序构思要有说明;第二，学会如何调试程序; 第三，对运行结果要做正确与否的分析。

但是，如果以前上课的时候不认真的听讲的话，做这个程序设计就会有点点困难，所以，同时也在提醒我们，学习，任何时候都要认真！

总之，在此次的VB程序设计中，如果没有足够的耐心，就不可能完成的很好。所以此次VB程序设计，让我做事情更加有耐心，更加细心，学习更加认真仔细。


附录：

源程序：

Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

    Private Sub 新建NCtrlToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新建NCtrlToolStripMenuItem.Click

        Dim FileName As String

        RichTextBox1.Text = ""

        FileName = "未命名"

        Me.Text = FileName

    End Sub

    Private Sub 打开OCtrlNToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打开OCtrlNToolStripMenuItem.Click

        Dim str As String

        OpenFileDialog1.DefaultExt = "TXT"

        OpenFileDialog1.Filter = "文本文件"

        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() = Windows.Forms.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 剪切XCtrlXToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 剪切XCtrlXToolStripMenuItem.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 粘贴ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 粘贴ToolStripMenuItem.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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

参考文献

1.《Visual  Basic.NET程序设计》北京：清华大学出版社，2008  刘炳文

2.《Visual Basic.NET程序设计》北京：冶金工业出版社，2007 刘怀亮

3.《Visual  Basic.NET程序设计基础教程》北京：机械工业出版社，2006汤庸

4.《Visual  Basic.NET全程指南》北京：电子工业出版社，2008朱本城，王凤林

5.《Visual  Basic.NET程序设计实用教程》北京：清华大学出版社，2006李印清

更多相关推荐：
VB课程设计报告 (32)

沈阳航空航天大学课程设计任务书学院机电工程专业机械设计制造及其自动化班级04060101学号20xx040601011题目选择教师系统一课程设计时间20xx年3月59日第1周共计1周20学时二课程设计内容有5位...

VB课程设计报告

课程设计题目个人收支管理难度：☆☆☆姓名：刘泽禄学号：913103860633随着社会生活步调的不断加快，人们越来越繁忙。也因此各项收入和支出名目繁多，如果不善于管理常会出现入不敷出，工资感觉没怎么用到月底就已…

VB课程设计报告(实例样本)1

VB程序设计报告学院土木工程专业工程管理班级1102学号20xx02938姓名若笔奇诺一课程设计题目成绩计算模拟系统二课程设计工作自20xx年5月15日起至20xx年6月1日止三课程设计地点兰州交通大学四课程设...

VB课程设计实验报告

VB课程设计实验报告题目：超市销售管理系统任课教师：专业：姓名：学号：班级：一、目的：本次课程设计结合是实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养我们学…

vb课程设计报告-仓库管理系统

VB程序设计实验报告姓名：班级：学号：专业：软件工程指导老师：20##年5月13日目录实验题目3实验要求3设计思路3实验流程图3源程序清单4运行界面6存在问题6解决思路6心得6教师评语6评分6内容摘要：仓库管理…

VB课程设计报告样例

南京理工大学能源与动力工程学院VB课程设计报告题目1贪吃蛇游戏题目2列车时刻查询指导老师张小兵学生姓名学号专业班级1008320120xx年3月20日VB程序设计课程设计报告VB程序设计课程设计任务书题目用VB...

VB课程设计报告

课程设计报告书课程设计名称VB程序设计报告书系部专业班级学生姓名XXX学号指导教师完成日期20xx年1月6日山东科技大学泰山科技学院12课程设计报告书一前言VisualBasic是可视化程序设计语言具有简单易学...

vb课程设计报告书

可视化编程课程设计报告题目连连看游戏的设计与开发专业班级软件2111学生姓名黎咏瑶指导教师教学系黄启荃信息工程系20xx年6月15日课程设计任务书学生姓名黎咏瑶专业班级软件2111班指导教师黄启荃李小艳工作单位...

VB课程设计报告模板

VisualBasic课程设计报告题目1难度题目2难度指导教师姓名学号专业班级学院日期目录1题目简介22设计思路与总体方案421窗体frm1422窗体form1623窗体frmcssz724窗体frmlsz10...

Vb课程设计报告

课程设计题目贪吃蛇四星一功能贪吃蛇是一种很流行的电子游戏游戏方法如下一条蛇在棋盘上爬行由键盘控制其转弯棋盘上随机地出现5个数字15当蛇的头部碰到数字时吃数字蛇的身体会变长当蛇的头部撞到障碍时或碰到自己身体时游戏...

VB家庭财务管理系统课程设计报告

经济管理学院本科课程设计说明书面向对象课程设计学号10051701131005170116姓名朱松洁李登班级管理101专业信息管理与信息系统系别管理系指导教师杨胜春目录家庭财务管理系统31项目概述311系统概述...

VB课程设计报告模板及范例-20xx-3-2

VisualBasic课程设计报告题目1难度题目2难度指导教师袁红兵姓名学号专业班级学院日期20xx年3月目录1题目简介22设计思路与总体方案421窗体frm1422窗体form1623窗体frmcssz724...

vb课程设计报告（36篇）

热门关注

VB课程设计报告

VB课程设计报告

vb课程设计报告

VB课程设计报告

VB课程设计报告模板

VB课程设计报告范例

《三子棋(VB)》课程设计报告书

java web课程设计报告说明

猜你喜欢

惠州金泽物流园市政道路工程进度报表

《数学建模》实验指导_08_matlab随机模拟

网络,使《丰碑》矗立

领班工作总结记录表

单位鉴定评语（42篇）

小学六年级活动总结（42篇）