VFP中添加循环微调控件的类

在VFP编程中，微调控件是最常用的控件之一。根据微调控件提供的基本功能，当通过单击向上或向下箭头达到微调控件的或最小值时，如果继续单击向上或向下箭头，则或最小值将保持不变。通过分析Spinner控件的属性和事件，通过编程实现了循环微调控件的功能。

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

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

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-这个。增量)

结束条件

这种形式。恢复精神

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

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