SilverLight-Visifire图表控件简单应用
来源:互联网 发布:monkey软件 编辑:程序博客网 时间:2024/05/22 14:37
今天在网上看到一个强大SilverLight图表控件:
链接网址:http://visifire.com/
我用的版本是:3.6.8
代码:
引用SLVisifire.Charts.dll
Imports Visifire.Charts
Imports Visifire.Commons
Me.LayoutRoot.Children.Clear()
Dim chart As New Chart
chart.Width = 450.0
chart.Height = 300.0
'去除水印效果,如果没有购买产品,水印是去不掉的
'如果想去掉水印,可以添加一个StackPanel遮罩层将水印去掉
chart.Watermark = False
'是否添加3D效果,默认非3D效果
chart.View3D = True
'图表皮肤,有3种默认皮肤,Theme1,Theme2,Theme3
'注:未实现枚举,有待进一步改进
chart.Theme = "Theme1"
'图表颜色集合
chart.ColorSet = "VisiGreen"
'图表的工具栏是否可用,现在默认只有一个保存为图片的功能
chart.ToolBarEnabled = True
chart.ScrollingEnabled = True
chart.AnimatedUpdate = True
chart.CornerRadius = New CornerRadius(7.0)
chart.ShadowEnabled = True
'chart标题
Dim title As New Title
title.Text = "Visifire图表演示"
title.Padding = New Thickness(0.0, 10.0, 15.0, 10.0)
chart.Titles.Add(title)
Dim tip = New Visifire.Charts.ToolTip()
tip.VerticalAlignment = VerticalAlignment.Bottom
tip.Text = "Visifire图表演示Tip"
chart.ToolTips.Add(tip)
Dim legend = New Legend()
chart.Legends.Add(legend)
Dim axi As New Axis
axi.Title = "X轴参数代表含义"
'X轴刻度类型
axi.IntervalType = Visifire.Charts.IntervalTypes.Number
'X轴刻度间隔
axi.Interval = 2.0
chart.AxesX.Add(axi)
Dim axiY As New Axis
'Y轴参数最小值
axiY.AxisMinimum = 1
'Y轴参数后缀
axiY.Suffix = ".00"
'y轴参数前缀
axiY.Prefix = "数字:"
axiY.Title = "Y轴参数代表含义"
chart.AxesY.Add(axiY)
'图表中的单个数据线
Dim dataSeries As New DataSeries
'单个数据线
dataSeries.RenderAs = Visifire.Charts.RenderAs.Column
dataSeries.LegendText = "数据线1"
Dim count As Integer = 6
Dim random As New Random()
For i As Integer = 0 To count - 1
'单个数据线中的数据点
Dim dataPoint As New DataPoint
dataPoint.YValue = random.Next(1, 100)
dataPoint.ToolTipText = (i + 1).ToString + "-" + dataPoint.YValue.ToString()
'AddHandler dataPoint.MouseLeftButtonUp, New RoutedEventHandler(AddressOf dataPointMouseLeftBtnUp)
dataSeries.DataPoints.Add(dataPoint)
Next
Dim dataSeries2 As New DataSeries
'单个数据线
dataSeries2.RenderAs = Visifire.Charts.RenderAs.Column
dataSeries2.LegendText = "数据线2"
Dim count2 As Integer = 6
Dim random2 As New Random()
For i As Integer = 0 To count - 1
'单个数据线中的数据点
Dim dataPoint2 As New DataPoint
dataPoint2.YValue = random.Next(1, 100)
dataSeries2.DataPoints.Add(dataPoint2)
Next
chart.Series.Add(dataSeries)
chart.Series.Add(dataSeries2)
Me.LayoutRoot.Children.Add(chart)
- SilverLight-Visifire图表控件简单应用
- SilverLight图表控件 Visifire
- Silverlight中的图表控件visifire的使用
- Silverlight 的图表控件 Visifire 的疑问
- Silverlight Visifire控件应用去水印
- visifire笔记 - 图表控件
- silverlight visifire 图表辅助类
- Visifire WPF 图表控件 破解
- WPF Visifire图表控件使用基础
- Visifire图表应用2-更改图例位置
- silverlight Visifire图表转图片--偷天换日的做法
- WindowsPhone统计图表控件 - 第三方控件visifire
- Silverlight图表控件
- Silverlight图表控件(二)
- Visifire图表应用1-分组图示(柱形图)
- 初识visifire图表
- 使用Visifire+ArcGIS API for Silverlight实现Graphic信息的动态图表显示
- visifire的应用
- EABI和OABI
- 使用Zabbix监控Linux主机
- dispatcherServlet-servlet.xml 详细信息
- emacs 使用ibus拼音输入法
- AIDL接口描述语言的使用
- SilverLight-Visifire图表控件简单应用
- 关于函数指针
- SELECT 查询结果额外增加自动递增序号
- 应用层的container_of()实现
- java编程技巧——多个相同控件绑定监听器
- 组合算法
- 以前做的CDROM控制器,出了两个让我记忆犹新的问题(搬家)
- JFreeChart柱图代码
- 两个编译2.4与2.6内核模块