Как отобразить текст метки снизу или сбоку P ie Диаграмма вкл. Asp. Net VB - PullRequest
0 голосов
/ 11 апреля 2020

как показать текст метки («Сумма счета-фактуры», «Сумма времени», «Сумма счета») на диаграмме внизу или справа, у этого изображения есть код результата, это мой код. пожалуйста, помогите

    Dim yValues As Double() = {100, 200, 300} ' Getting values from Textboxes 
    Dim xValues As String() = {"Invoice Amount", "Time Amount", "Bill Amount"} ' Headings
    Dim seriesName As String = Nothing
    ChartDemography.Series.Clear()
    ChartDemography.Titles.Clear()
    seriesName = "ChartInv"
    ChartDemography.Series.Add(seriesName)

    ChartDemography.Series(seriesName).Points.DataBindXY(xValues, yValues)

    Dim CArea As ChartArea = ChartDemography.ChartAreas(0)
    CArea.Area3DStyle.Enable3D = True


    ' Define Chart Type
    ChartDemography.Series(seriesName).ChartType = SeriesChartType.Pie

    ChartDemography.ChartAreas("Demography_ChartArea").Area3DStyle.Enable3D = True
    Me.ChartDemography.ChartAreas("Demography_ChartArea").AxisX.Interval = 1
    Me.ChartDemography.ChartAreas("Demography_ChartArea").AxisX.IsLabelAutoFit = True
    Me.ChartDemography.ChartAreas("Demography_ChartArea").AxisX.LabelAutoFitStyle = DataVisualization.Charting.LabelAutoFitStyles.DecreaseFont
    Me.ChartDemography.ChartAreas("Demography_ChartArea").AxisX.MajorGrid.Enabled = False
    Me.ChartDemography.ChartAreas(0).AxisX.LabelStyle.Angle = -90
    ' Formatting the Chart Title
    Dim T As Title = ChartDemography.Titles.Add("Amount Distribution")
    With T
           '.ForeColor = Color.Black
           '.BackColor = Color.LightBlue
           .Font = New System.Drawing.Font("Times New Roman", 11.0F, System.Drawing.FontStyle.Bold)
        '   .BorderColor = Color.Black
    End With


    ChartDemography.Series(0).Label = "#PERCENT\n#VALY"
    ChartDemography.Series(0).LegendText = "#VALX"

    ChartDemography.Series("ChartInv").IsValueShownAsLabel = True

enter image description here

...