用颜色标记值范围

下面的Gauge(仪表)，用绿、黄和红标记了三个范围的值：

有两种方法来实现上图所示的仪表。

方法一

按照我们之前的知识，用三个Range完成：

1、第一个Range的To属性为70,填充颜色为绿色。

2、第二个Range的From属性为70，To属性为90，填充颜色为黄色

3、第三个Range的From属性为90,填充颜色为红色。

方法二

但我们有更好的办法，只需一个Range完成，步骤：

1、增加一个Range，设置好Location和Width属性，然后编辑ValueColors集合：

2、增加三个ValueColor，其设置如下图， 注意ValueColor的Value属性，其实就是一个起点值，也就是从这个值开始，用指定的颜色填充Range

3、单击"确定"按钮，现在的Range是这样的：

4、最后将Range的ValueColorFallof属性设置为"None",Range就会成为我们希望的样子：

上述设置也可以用代码完成：

Dim rg As RadialGauge = e.Form.Controls("Guages1").RadialGauge
Dim rng As New GaugeRange()
rng.Location = 98
rng.Alignment = C1.Win.C1Gauge.C1GaugeAlignment.In
rng.ValueColorFalloff = C1.Win.C1Gauge.C1GaugeValueColorFalloff.None
rng.Width = 20
rng.Border.Color = Color.Black
rng.ValueColors.Add( New GaugeValueColor(0, color.Green, 1))
rng.ValueColors.Add( New GaugeValueColor(70, color.Yellow, 1))
rng.ValueColors.Add( New GaugeValueColor(90, color.Red, 1))
rg.Decorators.Add(rng)

提示：GaugeValueColor表示一个ValueColor项目，其构造函数有三个参数，分别为起始值、颜色和透明度。