格式化标签
本节的内容可以参考CaseStudy目录下的示例文件: GaugeEvents.table。
我们知道Labels和SingleLabel有Format,用于对标签文本进行格式化。
如果Format属性不能满足要求,可以使用FormatLabel事件,该事件仅Labels和SingleLabel
该事件的e参数有:
Decorator | 返回触发事件的标签 |
Value | 返回标签值 |
ScaledValue | 获取经过ValueFactor和ValueOffset缩放调整后的值 |
Text | 返回或设置标签文本 |
示例一
有一个时钟仪表:
要求将时钟的数字改用罗马数字显示:
只需在FormatLabel中加上代码:
Dim
symbs As
String
=
"ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫ"
If
e.ScaledValue >= 1
AndAlso
e.ScaledValue <= 12
Then
e.Text = symbs(e.ScaledValue - 1)
End
If
示例二
下面这个仪表我们多次接触过,现在希望拖动指针到OffAngle位置时,下面的SingleLabel能显示文本"Off":
FormatLabel事件很简单:
If
Double.IsNaN(e.Value)
Then
e.Text =
"Off"
End
If