VFP循环微调控件(CycleSpinner)

CycleSpinner的作用是:当点击向上箭头到达数值时，再点击向上箭头可以自动跳转到最小值；当点击向下箭头到达最小值时，可以自动跳转到该值；其他函数继承Spinner基类的函数。具体实现方法如下:

使用form控件在窗体中设置微调按钮，并设置下列属性:

SpinnerHighValue=Max

&&max应小于微调器基本类别。

&提供的默认值

SpinnerLowValue=Min

&&min应大于微调器基本类别。

&提供的最小默认值

值=1

name = ' cycles pinner '

在Init事件中编写以下代码:

这个。SpinnerHighValue = This。spinnerhigvalue+This。增量

这个。SpinnerLowValue=This。SpinnerLowValue-这个。增量

在InteractiveChange事件中编写以下代码:

如果这个。价值=这个。SpinnerHighValue

这个。Value=Int(This。SpinnerLowValue+这个。增量)

结束条件

如果这个。价值=这个。SpinnerLowhValue

这个。Value=Int(This。spinnerhigvalue-这个。增量)

结束条件

这种形式。恢复精神

将它保存为一个类，并将其添加到类库中。

如果编程中需要这个函数，可以直接使用这个循环来微调控件类。