WPF vb.net WPFVisifire.Charts 图表绘制源码

Imports Visifire.Charts Class MainWindow #Region "画雷达图" Public Sub ShowRadar() Try Dim chart As Chart = New Chart() #Region "雷达图标题" '图表标题 Dim Title As New Title() Title.Text = "焊缝综合评价参数" Title.FontColor = New SolidColorBrush(Colors.Black) Title.FontSize = 15 chart.Titles.Add(Title) #End Region #Region "曲线图交互功能" '滚动轴拖动 chart.ScrollingEnabled = True chart.PanningMode = PanningMode.ScrollBar '图表缩放有三种方式 chart.ZoomingEnabled = True chart.ZoomingMode = ZoomingMode.MouseDragAndWheel '导出和打印（右上角菜单） chart.ToolBarEnabled = True #End Region #Region "样式" chart.ThemeEnabled = True chart.Theme = "Theme2" chart.Background = New SolidColorBrush(Colors.Transparent) '绘图区背景色Colors.Transparent chart.BorderThickness = New Thickness(0) Dim pa As PlotArea = New PlotArea() pa.Background = New SolidColorBrush(Colors.Transparent) pa.ShadowEnabled = True pa.BorderThickness = New Thickness(0) chart.PlotArea = pa #End Region #Region "颜色" Dim brushArr As SolidColorBrush() = New SolidColorBrush(7) {} brushArr(0) = New SolidColorBrush(Color.FromArgb(128, 237, 133, 140)) brushArr(1) = New SolidColorBrush(Color.FromArgb(128, 178, 150, 233)) brushArr(2) = New SolidColorBrush(Color.FromArgb(128, 16, 227, 230)) brushArr(3) = New SolidColorBrush(Color.FromArgb(128, 176, 235, 124)) brushArr(4) = New SolidColorBrush(Color.FromArgb(128, 237, 133, 140)) brushArr(5) = New SolidColorBrush(Color.FromArgb(128, 178, 150, 233)) brushArr(6) = New SolidColorBrush(Color.FromArgb(128, 16, 227, 230)) brushArr(7) = New SolidColorBrush(Color.FromArgb(128, 176, 235, 124)) #End Region #Region "数据0" '设置类型为雷达图 Dim dataSeries As DataSeries = New DataSeries() dataSeries.RenderAs = RenderAs.Radar dataSeries.ShowInLegend = False dataSeries.MarkerEnabled = True '是否显示标记点 dataSeries.MarkerBorderColor = New SolidColorBrush(Colors.Gray) dataSeries.Color = brushArr(0) '选择自定义笔刷颜色 '设置点 Dim point As DataPoint = New DataPoint() point.YValue = 3 point.AxisXLabel = "运量(亿吨)" point.Tag = "运量" dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 5 point.AxisXLabel = "车载2级(次数)" point.Tag = "车载2级" dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 7 point.AxisXLabel = "TQI(值)" point.Tag = "TQI" dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 5 point.AxisXLabel = "2级分(次数)" point.Tag = "2级分" dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 5 point.AxisXLabel = "其他" point.Tag = "其他" dataSeries.DataPoints.Add(point) chart.Series.Add(dataSeries) #End Region #Region "数据1" '设置类型为雷达图 dataSeries = New DataSeries() dataSeries.RenderAs = RenderAs.Radar dataSeries.ShowInLegend = False dataSeries.Color = brushArr(7) '选择自定义笔刷颜色 '设置点 point = New DataPoint() point.YValue = 4 dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 5 dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 2 dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 3 dataSeries.DataPoints.Add(point) point = New DataPoint() point.YValue = 2 dataSeries.DataPoints.Add(point) chart.Series.Add(dataSeries) 'dataSeries = New DataSeries() 'dataSeries.RenderAs = RenderAs.Radar 'dataSeries.ShowInLegend = False 'dataSeries.Color = brushArr(2) '选择自定义笔刷颜色 'point = New DataPoint() 'point.YValue = 95 'dataSeries.DataPoints.Add(point) 'point = New DataPoint() 'point.YValue = 88 'dataSeries.DataPoints.Add(point) 'point = New DataPoint() 'point.YValue = 50 'dataSeries.DataPoints.Add(point) 'point = New DataPoint() 'point.YValue = 60 'dataSeries.DataPoints.Add(point) 'point = New DataPoint() 'point.YValue = 83 'dataSeries.DataPoints.Add(point) 'chart.Series.Add(dataSeries) #End Region Dim yLabel As AxisLabels = New AxisLabels() yLabel.FontColor = New SolidColorBrush(Colors.Black) 'y轴刻度文本信息颜色Colors.Transparent '设置y轴的横向刻度虚线 Dim yGrid As ChartGrid = New ChartGrid() yGrid.Enabled = True yGrid.LineThickness = 0.5 'y轴刻线宽度 yGrid.LineColor = New SolidColorBrush(Colors.Black) 'y轴刻线颜色Colors.White Dim yAxis As Axis = New Axis() yAxis.Enabled = True '是否显示Y轴刻度、文本 yAxis.Grids.Add(yGrid) yAxis.AxisMinimum = 0 'y轴刻度最小值 yAxis.AxisMaximum = 10 'y轴刻度最大值 'yAxis.Suffix = "%" '"给刻度添加后缀 如%"; yAxis.Interval = 2 '设置y轴刻度的增量 -- 即2个刻度值之间的的间隔 yAxis.IntervalType = IntervalTypes.Number yAxis.AxisLabels = yLabel chart.AxesY.Add(yAxis) Dim xLabel As AxisLabels = New AxisLabels() xLabel.FontColor = New SolidColorBrush(Colors.Black) 'x轴刻度文本信息颜色 Colors.White xLabel.Background = New SolidColorBrush(Colors.Transparent) '设置x轴的纵向刻度虚线 Dim xGrid As ChartGrid = New ChartGrid() xGrid.Enabled = True Dim xAxis As Axis = New Axis() xAxis.Enabled = True '是否显示X轴刻度、文本 xAxis.AxisLabels = xLabel xAxis.Grids.Add(xGrid) chart.AxesX.Add(xAxis) '清空子对象并画雷达图 Me.radarGrid.Children.Clear() Me.radarGrid.Children.Add(chart) Catch End Try End Sub #End Region Private Sub Button_Click(sender As Object, e As RoutedEventArgs) Call ShowRadar() End Sub End Class