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.