如何用3D视图绘制饼图 [英] How to Draw a Pie Chart with 3D View
本文介绍了如何用3D视图绘制饼图的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我有三个文本框; txtDone,txtPending和txtRescheduled包含数据。我想绘制一个饼图,其中包含文本框中的值,任何人都可以帮忙。以下是我到目前为止的代码
私人 Sub btnGetSummary_Click( ByVal sender As System。对象, ByVal e As System.EventArgs)句柄 btnGetSummary.Click
Dim data()作为 Double = {Val(txtDone.Text),Val(txtPending.Text),Val(txtReschedule.Text)}
< span class =code-keyword> Dim labels() As String = {< span class =code-string> 完成检查, Pending Inspections, 重新安排的检查}
Dim c 作为 PieChart = 新 PieChart( 360 , 300 )
c.setPieSize( 180 , 140 , 100 )
c.addTitle(lblHeading.Text)
' 以3D形式绘制饼图
c.set3D()
' 设置饼图数据和饼图标签
c.setData(数据,标签)
' 爆炸第一个扇区(索引= 0)
c.setExplode( 0 )
' 输出图表
pctChartSummary.Image = c.makeWebImage(Chart.PNG)
' 包含图表的工具提示
pctChartSummary.ImageMap = c.getHTMLImageMap( , ,_
title ='{label}:US $ {value} K({percent}%)')
解决方案
{value} K({percent}%)')
I have three textboxes; txtDone, txtPending and txtRescheduled with data in them. I'll like to draw a pie chart with the values in the textboxes can anyone help please. Below is the code I have so far
Private Sub btnGetSummary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetSummary.Click
Dim data() As Double = {Val(txtDone.Text), Val(txtPending.Text), Val(txtReschedule.Text)}
Dim labels() As String = {"Done Inspections", "Pending Inspections", "Rescheduled Inspections"}
Dim c As PieChart = New PieChart(360, 300)
c.setPieSize(180, 140, 100)
c.addTitle(lblHeading.Text)
' Draw the pie in 3D
c.set3D()
' Set the pie data and the pie labels
c.setData(data, labels)
' Explode the 1st sector (index = 0)
c.setExplode(0)
' Output the chart
pctChartSummary.Image = c.makeWebImage(Chart.PNG)
' Include tool tip for the chart
pctChartSummary.ImageMap = c.getHTMLImageMap("", "", _
"title='{label}: US${value}K ({percent}%)'")
解决方案
{value}K ({percent}%)'")
这篇关于如何用3D视图绘制饼图的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文