如何用3D视图绘制饼图 [英] How to Draw a Pie Chart with 3D View

问题描述

我有三个文本框; 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屋！