UltraChart1.Tooltips.Format = TooltipStyle.Custom
UltraChart1.Tooltips.FormatString = "<MY_VALUE>"
Dim MyLabelHashTable as New Hashtable
MyLabelHashTable.Add("MY_VALUE", New MyLabelRenderer)
UltraChart1.LabelHash = MyLabelHashTable
' ...
Public Class MyLabelRenderer
Implements IRenderLabel
Public OverLoads Function ToString(ByVal Context As Hashtable) As String Implements IRenderLabel.ToString
Select Case CDbl(Context("DATA_VALUE"))
Case Is > 1000
Return CStr(Context("DATA_VALUE")) & " [Very High]"
Case Is > 100
Return CStr(Context("DATA_VALUE")) & " [High]"
Case Is > 10
Return CStr(Context("DATA_VALUE")) & " [Medium]"
Case Is >= 0
Return CStr(Context("DATA_VALUE")) & " [Low]"
Case Else
Return CStr(Context("DATA_VALUE")) & " [Negative]"
End Select
End Function
End Class