打印本文   关闭窗口

VFP循环微调控件(CycleSpinner)

作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:51:14  文章录入：杜斌  责任编辑：杜斌

循环微调控件(CycleSpinner)所实现的功能是：当单击向上箭头而达到最大值时，再单击向上箭头，能自动跳到最小值；当单击向下箭头而达到最小值时，能自动跳到最大值；其余功能均继承Spinner基类的功能。具体实现方法如下：   　　利用表单控件，在表单中一个微调按钮，并设置如下属性：   　　SpinnerHighValue=Max   　　＆＆Max应小于Spinner基类所   　　＆＆提供的最大默认值   　　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   　　再将其作为类保存起来，添加到你的类库中。   　　若你在编程中，需用此功能，就可直接用此循环微调控件类了。

打印本文   关闭窗口