在代码中引用仪表
我们知道,一个Gauges控件,可以包括多个仪表(Gauge),而Gauge有两种,分别是RadialGauge(径向仪表)和LinearGauge(线性仪表)。
也就是说Gauges只是一个容器,我们实际使用的是RadialGauge和LinearGauge。
如果要获取Gauges控件中的RadialGauge或LinearGauge,请参考:
假定第一个仪表是径向仪表,则可以通过下面的代码获取之:
Dim
g
As
WinForm.Gauges = e.Form.Controls("Guages1")
Dim
rg
As
RadialGauge = g.Gauges(0)
rg.Value = 50
假定第二个是线性仪表,则可以通过下面的代码获取之:
Dim
g
As
WinForm.Gauges = e.Form.Controls("Guages1")
Dim
xg
As
LinearGauge = g.Gauges(1)
xg.Value = 50
提示:
绝大多数时候,在仪表设计好之后,代码运行过程中的唯一任务,就是设置Gauge的Value属性,所以Foxtable提供了一个直接通过Gauges设置Value的方法:
e.Form.Controls("Guages1").Value = 100
使用上述代码设置Value的前提是Gauges有且只有一个Gauge(仪表),这是自然的,否则设置的哪一个Gauge的Value呢?