Pointer(指针)

仪表的Pointer(指针)的类型为GaugePointer，获取指针的参考代码为：

Dim gg As WinForm.Gauges = e.Form.Controls("Guages1")
Dim rg As RadialGauge = gg.RadialGauge
Dim pt As GaugePointer = rg.Pointer
pt.Value = 20

我们在文档中依然用Pointer表示指针。

Pointer的主要属性有:

• Value
  
  用于返回或设置指针指向的值，通常等效于Gauge的Value属性。
  
  前面已经给出了设置Value属性的方法。
  
  由于仪表设计好之后，运行过程中改变Value值几乎就是唯一的任务，所以Foxtable提供了一些快捷的办法，上面的代码可以改写为:
  
  Dim g As WinForm.Gauges = e.Form.Controls("Guages1")
  g.RadialGauge.Value = 30

  如果Gauges控件只有一个仪表，可以改写为：
  
  Dim g As WinForm.Gauges = e.Form.Controls("Guages1")
  g.Value = 30
  
  也可以一行搞定：
  
  e.Form.Controls("Guages1").Value = 30

  如果有多个仪表，则需要明确仪表：
  
  Dim g As WinForm.Gauges = e.Form.Controls("Guages1")
  g.Gauges(0).Pointer.Value = 30
  g.Gauges(0).Value = 30 '和上一行等效

  绝大多数时候，一个Gauges只会有一个Gause，所以通常直接这样就行了：
  
  e.Form.Controls("Guages1").Value = 30 

• Visible
  
  指针是否可见，例如：
  
  Dim g As WinForm.Gauges = e.Form.Controls("Guages1")
  g.RadialGauge.Pointer.Visible = False
   
• Length
  
  指针的逻辑长度，100表示长度等于半径，例如下面两个指针长度为分别为100和50：

• Width
  
  指针的逻辑宽度

• Length2
  
  Length2通常无需设置，如果同时设置了Length和Length2， 则随着Value从Minimum变化到Maximum，指针长度也会从Length变化到Length2。
   
• Offset
  
  指针的逻辑偏移量，可正可负，例如下面的指针，Length为100，Offset为-20：
  
  

• Offset2
  
  Offset2通常无需设置，如果同时设置了Offset和Offset2， 则随着Value从Minimum变化到Maximum，指针的偏移量会从Offset变化到Offset2。
   
• SweepTime
  
  指针从最小值移到最大值需要的秒数，默认为0，设置一个合理的值，可以让指针的移动有动画效果。
   
• ValueOffset
  
  用于设置值的偏移量，假定Value等于50，ValueOffset等于-20，则指针指向30。
   
• ValueFactor
  
  用于设置指针值的缩放倍数，假定Value等于25，ValueFactor等于2，则指针指向50：