VFP 6.0的十个实用技巧

VFP 6.0的十个实用技巧(4) &&提供的最大默认值
SpinnerLowValue=Min
&&Min应大于Spinner基类所
&&提供的最小默认值
Value=1
Name='CycleSpinner'
在Init事件中写入如下代码：
This.SpinnerHighValue=This.
SpinnerHighValue+This.Increment
This.SpinnerLowValue=This.
SpinnerLowValue－This.Increment
在InteractiveChange事件中写入如下代码：
If This.Value=This.SpinnerHighValue
This.Value=Int(This.
SpinnerLowValue+This.Increment)
Endif
If This.Value=This.SpinnerLowhValue
This.Value=Int(This.
SpinnerHighValue－This.Increment)
Endif
Thisform.Refresh
---- 再将其作为类保存起来，添加到你的类库中。
---- 若你在编程中，需用此功能，就可直接用此循环微调控件类了。