|
Protected Overrides Sub GenerateVisibleLabels()
Dim position As Double = VisibleRange.Start - VisibleRange.Start Mod Interval
Do While (position <= VisibleRange.End)
If (VisibleRange.Inside(position)) Then
'ChartAxisLabel(Position, DisplayValue, ActualValue)
Dim axisLabel = New ChartAxisLabel(position,
Math.Round(Math.Pow(LogarithmicBase,
Math.Log((Math.Pow(LogBase, position)),
LogarithmicBase))), position)
VisibleLabels.Add(axisLabel)
End If
position = position + Interval
Loop
End Sub |