注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

青新的博客

记录工作点滴 分享学习快乐 享受家庭温馨

 
 
 

日志

 
 

vb.net Mschart控件简单实例  

2009-09-01 15:00:17|  分类: .net 学习 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

       这几天公司制造部门所使用的程序中需要添加曲线图显示功能,因为以前没有做过这方面的开发,所以一直在网上找实例以便快速掌握技巧,将曲线图功能尽快做出来,通过google的搜寻,很失望,绝大部分MsChart控件方面的实例都是基于C++的,后来经过自己的慢慢摸索及参考C++实例方面的语法,然后通过自己的实践,掌握了部份功能,故将以下实例贴出给初次接触此控件的朋友参考.

vb.net Mschart控件简单实例 - 青新 - 青新的博客

原图见下链接

http://img.bimg.126.net/photo/P-LYisX4mF8jqQDUD68EmA==/1694197884822258957.jpg

所需环境:
Visual Studio 2008
.net平台升级至3.5 sp1
Mschart 控件、MSChart_VisualStudioAddOn、MSChartLP_chs

实例

首先在vb.net 2008中新建一个项目,然后新增一个名为form1的表单,将工具栏上的chart控件拖动到form1上,调整好具体位置。再将工具栏上的timer控件拖动到form1上,并设置间隔时间为1分钟或其它你觉得比较合适的时间,此时表单上的控件都已经完成,然后添加如下代码:


Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form1
    Dim random As New Random()
    Dim pointIndex As Integer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Chart1.ChartAreas.Clear()’清除所有绘图区
        Dim newChartAreas1 As New ChartArea("Default")‘新增绘图区
        Chart1.ChartAreas.Add(newChartAreas1)
        Chart1.ChartAreas("Default").BackColor = Color.FromName("GradientInactiveCaption")’设置绘图区颜色
        Chart1.ChartAreas("Default").BackGradientStyle = GradientStyle.HorizontalCenter‘设置绘图区颜色渐变方式
        Chart1.ChartAreas("Default").AxisX.IsMarginVisible = True
        'Chart1.ChartAreas("Default").Area3DStyle.Enable3D = True‘启用3D显示
        Chart1.ChartAreas("Default").AxisX.Title = "时间"'X轴名称
        Chart1.ChartAreas("Default").AxisY.Title = "数量"'Y轴名称
      
        Chart1.Titles.Clear()
        Dim newTitles1 As New Title("产品生产管制图") '建立标题
        newTitles1.Text = "产品生产管制图"
        Chart1.Titles.Add(newTitles1)

        Chart1.Series.Clear()’清除所有数据集
        Dim newSeries1 As New Series("标准值")'新增数据集
        newSeries1.ChartType = SeriesChartType.Line’直线
        newSeries1.BorderWidth = 2
        newSeries1.Color = Color.Blue
        newSeries1.XValueType = ChartValueType.Time
        newSeries1.IsValueShownAsLabel = False
        Chart1.Series.Add(newSeries1)

        Dim newSeries2 As New Series("生产量")
        newSeries2.ChartType = SeriesChartType.Line
        newSeries2.BorderWidth = 2
        newSeries2.Color = Color.Green
        newSeries2.XValueType = ChartValueType.Time
        newSeries2.IsValueShownAsLabel = True
        newSeries2.MarkerStyle = MarkerStyle.Square
        Chart1.Series.Add(newSeries2)

        Dim newSeries3 As New Series("下限值")
        newSeries3.ChartType = SeriesChartType.Line
        newSeries3.BorderWidth = 2
        newSeries3.Color = Color.OrangeRed
        newSeries3.XValueType = ChartValueType.Time
        newSeries3.IsValueShownAsLabel = False
        Chart1.Series.Add(newSeries3)   
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim current_time As DateTime
        current_time = DateTime.Now
        Chart1.Series("标准值").Points.AddXY(current_time, 90)
        Chart1.Series("生产量").Points.AddXY(current_time, random.Next(20, 75))
        Chart1.Series("下限值").Points.AddXY(current_time, 15)
      End Sub
End Class

vb.net Mschart控件简单实例 - 青新 - 青新的博客

  评论这张
 
阅读(9841)| 评论(2)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017