0

プログラム全体に変数が入力されており、最後のフォームで、総費用に対する各費用の割合を示す円グラフを表示しようとしています。私が今持っているコードは次のとおりです。

  Sub Chart()
    Chart1.Series("Expenses").ChartType = SeriesChartType.Pie

    Chart1.Series("Expenses").Points.Add(GlobalVariables.cellphone / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.carinsurance / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.drappointments / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.grocery / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.healthinsurance / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.medications / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.misc / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.rent / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.therapysessions / totalexpenses * 100)
    Chart1.Series("Expenses").Points.Add(GlobalVariables.travel / totalexpenses * 100)


    'Chart1.Width = 700
    Chart1.Legends.Add("Expenses")
    Chart1.Legends("Expenses").LegendStyle = LegendStyle.Table

End Sub

プログラムを実行してサブへの呼び出しを含めると、チャートはまったく表示されず、凡例には「Series1」のみが表示されます。私は何を間違っていますか？どうすればこれを機能させることができますか？

4

1 に答える 1

0

デフォルトでは、最初のシリーズは「Series1」で、円グラフはこのシリーズの空白データを取得しています。独自のシリーズを使用する場合は、削除する必要があります。このコードを 1 行目に追加します: Chart1.Series.clear

于 2014-01-25T11:11:23.420 に答える