Полоски в оболочке Highcharts .net не отображаются

Question

Здравствуйте, я очень новичок на сайте и все еще новичок в кодировании.

Я пытаюсь создать базовую линейную диаграмму с помощью plotband в vb.net с использованием оболочки Highcharts .net, однако кодЯ написал, что создание графика не работает, но я конвертировал его точно так, как должно быть (по крайней мере, мне так кажется) на основе демонстрации Highcharts. (диаграмма отображается без сюжетной полосы)

Мне удалось создать линейную диаграмму с сюжетной полосой на основе демонстрации с использованием HTML5 и Javascript, но не с VB.net.

Я просто хочу знать, что я что-то упускаю.Вот мой прогресс на данный момент:

    Dim chart As New Highcharts
    chart.Title.Text = "Eyecatching Title" '= New Title With {.Text = "title"}
    chart.Chart.Type = ChartType.Line

    chart.Subtitle.Text = "Mandatory subtitle"

    chart.YAxis.Add(New YAxis With {.Title = New YAxisTitle With {.Text = "Arbitrary Automated Number"}})

    chart.Legend.Layout = LegendLayout.Vertical
    chart.Legend.Align = LegendAlign.Right
    chart.Legend.VerticalAlign = LegendVerticalAlign.Middle

    chart.PlotOptions.Series.Label.ConnectorAllowed = False

    Dim xax As New XAxis With {.TickInterval = 1, .Min = 0, .Max = 9, .StartOnTick = False, .EndOnTick = False, .Type = XAxisType.Category}
    xax.Categories.Add("JAN")
    xax.Categories.Add("FEB")
    xax.Categories.Add("MAR")
    xax.Categories.Add("APR")
    xax.Categories.Add("MAY")
    xax.Categories.Add("JUN")
    xax.Categories.Add("JUL")
    xax.Categories.Add("AUG")
    xax.Categories.Add("SEP")
    xax.Categories.Add("OCT")
    xax.Categories.Add("NOV")
    xax.Categories.Add("DEC")

    chart.XAxis.Add(xax)
    chart.XAxis.Item(0) = xax

    Dim sd1 As New LineSeriesData With {.Y = 22} '.X = 1, 
    Dim sd2 As New LineSeriesData With {.Y = 33} '.X = 2, 
    Dim sd3 As New LineSeriesData With {.Y = 44} '.X = 3, 
    Dim sd4 As New LineSeriesData With {.Y = 55} '.X = 4, 
    Dim sd5 As New LineSeriesData With {.Y = 66} '.X = 5, 
    Dim sd6 As New LineSeriesData With {.Y = 33} '.X = 6, 
    Dim sd7 As New LineSeriesData With {.Y = 15} '.X = 7, 
    Dim sd8 As New LineSeriesData With {.Y = 99} '.X = 8, 
    Dim sd9 As New LineSeriesData With {.Y = 63} '.X = 9, 

    Dim s As New LineSeries With {.Name = "Installation"}
    s.Data.Add(sd1)
    s.Data.Add(sd2)
    s.Data.Add(sd3)
    s.Data.Add(sd4)
    s.Data.Add(sd5)
    s.Data.Add(sd6)
    s.Data.Add(sd7)
    s.Data.Add(sd8)
    s.Data.Add(sd9)
    chart.Series.Add(s)
    chart.Credits.Enabled = False

    Dim pb As New XAxisPlotBands With {.Color = "#F00", .From = "2", .To = "4"}

    xax.PlotBands.Add(pb)

Answer 1

Для правильной работы необходимо инициировать списки chart.XAxis и chart.XAxis.PlotBands, прежде чем вы начнете добавлять их элементы.После этого вы сможете звонить chart.XAxis.Add(xax) и xax.PlotBands.Add(pb).

var xax = new XAxis { TickInterval = 1, Min = 0, Max = 9, StartOnTick = false, EndOnTick = false, Type = XAxisType.Linear };
chart.XAxis = new List<XAxis> { xax };

var pbx = new XAxisPlotBands { Color = "#F00FFF", From = 2, To = 5, Label = new XAxisPlotBandsLabel { Text = "I'm plot band label" } };
xax.PlotBands = new List<XAxisPlotBands> { pbx };

. Я могу отправить вам рабочий проект по электронной почте или через службу хостинга, если это будет полезно.

С уважением!