I converted:
LinearAxis horizontalAxis = radChartView1.Axes.Get<LinearAxis>(0);
horizontalAxis.Title = "Axis' title";
horizontalAxis.Font= new Font("Arial",12f, FontStyle.Italic);
to:
Dim HA As LinearAxis = DashBoard.chtNewDayAvg.Axes.[Get](Of LinearAxis)(0)
Dim AL As AxisLabelElement = DirectCast(HA.Children(1), AxisLabelElement)
AL.ForeColor = Color.White
If RecHasData(Counts) Then
'Play with the 30 day rolling avg.
DashBoard.chtNewDayAvg.ShowLegend = False
DashBoard.chtNewDayAvg.Series(0).DataPoints.Clear()
'Not sure about the areas
For I As Integer = 0 To UB(Counts)
Dim Statuses As New List(Of String)
Statuses.AddRange(Split(GetFromSet(Counts, 1, I), Separator2))
Dim AssetsDown As Integer = 0
For II As Integer = 0 To Statuses.Count - 1
Dim Val As Integer
Integer.TryParse(Statuses(II).Split(Separator)(AssetTypeSlot), Val)
Select Case Statuses(II).Split(Separator)(0)
Case "Down"
AssetsDown += Val : If Val > MaxDwn Then MaxDwn = Val
Case "Repairing"
AssetsDown += Val : If Val > MaxDwn Then MaxDwn = Val
End Select
Next
Dim DT As String = FMDB(GetFromSet(Counts, 0, I), False).ToShortDateString
Dim P As New CategoricalDataPoint(AssetsDown, DT)
P.Label = AssetsDown
DashBoard.chtNewDayAvg.Series(0).DataPoints.Add(P)
Next
Dim HA As LinearAxis = DashBoard.chtNewDayAvg.Axes.[Get](Of LinearAxis)(0)
Dim AL As AxisLabelElement = DirectCast(HA.Children(0), AxisLabelElement)
AL.ForeColor = Color.White
End If
HA is nothing, so I get an Object Reference error on the second line where it tries to get the children.
You example was to adjust the font for a specific horizontal label. I just want to set the ForeColor for all of them. This is the code I'm using to populate the Graph with data.