vb.net 教程 5-12 绘图实例之统计图1
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
前面几篇介绍了如何使用graphics绘制图像,这几篇准备介绍如何使用graphics提供的方法绘制统计图。
包括:柱状图、折线图、饼图。
假设知道某个公司1-4季度的盈利情况,我们来看看如何完成统计图
新建一个窗体,
添加4个标签,分别是“一季度”、“二季度”、“三季度”、“四季度”
添加4个numericupdown,名称从 nudsesson1 至 nudsesson4
添加4个按钮,名称为btnBarGraph、btnLineChart、btnPie、btnSave,对应Text属性为 柱状图、折线图、饼图、保存
图示如下:
以柱状图为例,目前考虑的步骤:
1、创建graphics对象
2、绘制坐标轴
3、绘制立柱
4、显示出来
新建窗体级变量:
Dim g As Graphics
Dim bmp As Bitmap
在窗体载入的时候将bmp、g实例化,bmp的大小根据实际需要建立:
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
bmp = New Bitmap(600, 350)
g = Graphics.FromImage(bmp)
End Sub
当按下“柱状图”按钮的时候调用三个函数,分别是绘制坐标轴、绘制立柱、显示到窗口:
Private Sub btnDraw_Click(sender As Object, e As EventArgs) Handles btnBarGraph.Click
Call DrawAxis()
Call DrawBarGraph()
Call DrawToForm()
End Sub
以下分别介绍上面所说的三个函数,详细说明标注在源代码中了:
'绘制坐标轴
Private Sub DrawAxis()
'使用红色绘制坐标轴
Dim p As New Pen(Color.Red, 1)
'坐标轴末尾箭头
p.EndCap = Drawing2D.LineCap.ArrowAnchor
'坐标原点
Dim originX As Integer = 40
Dim originY As Integer = 320
Dim originPoint As Point = New Point(originX, originY)
'绘制横坐标
g.DrawLine(p, originPoint, New Point(540, 320))
'绘制纵坐标--http://blog.csdn.net/uruseibest
g.DrawLine(p, originPoint, New Point(40, 20))
'红色绘制坐标轴刻度
Dim pAxisY As New Pen(Color.Red, 1)
Dim AxisYPos As Point
Dim AxisYValue As String
'在纵轴上标明刻度线,从0-90,每10个刻度标注一下
'注意的是,我们使用了1:3的比例
For i As Integer = 0 To 9
'刻度值
AxisYValue = (i * 10).ToString
'刻度位置
AxisYPos = New Point(20, originY - i * 30 - 5)
'标明刻度值
g.DrawString(AxisYValue, New Font("宋体", 10), New SolidBrush(Color.Blue), AxisYPos)
'画刻度,实际0刻度线是和横坐标轴重合
g.DrawLine(pAxisY, New Point(40, originY - i * 30), New Point(50, originY - i * 30))
Next
End Sub
'绘制立柱
Private Sub DrawBarGraph()
'标注每个季度
Dim seasonValue(3) As Integer
seasonValue(0) = nudSeason1.Value
seasonValue(1) = nudSeason2.Value
seasonValue(2) = nudSeason3.Value
seasonValue(3) = nudSeason4.Value
Dim seasonName() As String = {"一季度", "二季度", "三季度", "四季度"}
'立柱(矩形)的左上角坐标点
Dim recX, recY As Integer
'循环画四个矩形--http://blog.csdn.net/uruseibest
For i As Integer = 0 To 3
recX = (i + 1) * 80
'注意:我们的坐标轴是按照1:3绘制,所有这里需要*3
recY = 320 - seasonValue(i) * 3
g.FillRectangle(New SolidBrush(Color.Blue), New Rectangle(recX, recY, 40, seasonValue(i) * 3))
Next
'标出每个季度
Dim strX, strY As Integer
For i As Integer = 0 To 3
strX = (i + 1) * 80 - 5
strY = 325
g.DrawString(seasonName(i), New Font("黑体", 10), New SolidBrush(Color.Blue), New Point(strX, strY))
Next
End Sub
'将bmp绘制到窗体表面
Private Sub DrawToForm()
Dim g1 As Graphics = Me.CreateGraphics
g1.DrawImage(bmp, New Point(0, 0))
End Sub
当按下“柱状图”按钮时,如下图所示:
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net教程目录
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
vb.net 教程 5-12 绘图实例之统计图1相关推荐
- vb.net 教程 5-12 绘图实例之统计图 3 饼图
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 继续上一期<绘图实例之统计图2>,继续讲解如何绘制饼图: 当按下"饼图&q ...
- vb.net 教程 5-12 绘图实例之统计图 2 折线图
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 继续上一期<绘图实例之统计图1>,继续讲解如何绘制折线图: 当按下"折线图 ...
- vb.net 教程 5-12 绘图实例之统计图4
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 窗体上我们设置了4个按钮,还有一个就是将绘制的统计图保存下来: Private Sub btnS ...
- vb.net 教程 5-12 绘图实例之统计图 1 柱状图
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 前面几篇介绍了如何使用graphics绘制图像,这几篇准备介绍如何使用graphics提供的方法 ...
- [Qt教程] 第12篇 2D绘图(二)渐变填充
[Qt教程] 第12篇 2D绘图(二)渐变填充 楼主 发表于 2013-4-23 17:59:31 | 查看: 689| 回复: 1 渐变填充 版权声明 该文章原创于Qter开源社区,作者yafei ...
- vb.net 教程 20-4 库存管理系统3.12 出库管理(FormStorageOut)
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 关于<Visual Basic.Net 循序渐进>请到百度网盘下载,具体下载地址: ...
- vb.net 教程 3-2 窗体编程之窗体 1
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 个人理解:windows系统是消息驱动型的系统,消息带来事件,事件引发处理. 比如按下按钮消息, ...
- vb.net 教程 8-3 数据库操作3
订阅专栏 版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. 本节在上一节的基础上学习在Command中设置sql语句参数: 还是以一个实例说明: ...
- vb.net 教程 1-8 日期时间类型1
版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的. vb.net中日期时间函数使用DateTime,vb6中用的是Date,vb.net中也可以将日 ...
最新文章
- 通过仿真和综合认识T触发器(Verilog HDL语言描述T触发器)
- 反函数计算 python
- 转 Intellij中的常用快捷键
- 2019年,异质图神经网络领域有哪些值得读的顶会论文?
- 【MFC】状态栏随对话框的改变而改变
- 数据结构之希尔排序------java实现
- JavaScript里的...(三个点)操作符
- A+B for Matrices 及 C++ transform的用法
- 6-10 阶乘计算升级版(20 分)
- Spring MVC 教程,快速入门,深入分析【转】
- 湖北文理学院学位计算机考试,湖北文理学院学位计算机考试试题答案.doc
- ARM处理器指定运行核
- A.I. Wiki 人工智能
- ios 融云 重写对话列表_iOS消息体系架构详解-融云即时通讯云
- JS中国标准时间格式转换
- darda oracle tfa_OSW - feiyun8616 - 博客园
- 基于BERT的新闻文本分类
- linux 命令连接符,Linux 中命令链接操作符的十个最佳实例
- python注册用户名和密码登录_Python_36用户名密码登录注册的例子
- Revit二次开发——图元(元素)编辑