为VFP添加循环微调控件类-控件新闻-慧都网

产品

产品
资讯
资源
视频
学院
示例

为VFP添加循环微调控件类

翻译|其它|编辑：郝浩|2004-08-11 10:19:00.000|阅读 1324 次

概述：

为VFP添加循环微调控件类
　　
在VFP编程中，微调控件是最常用的控件之一。按照微调控件提供的基本功能，通过单击向上或向下箭头，而达到微调控件的最大或最小值时，如继续单击向上或向下箭头，将保持最大或最小值不变。笔者通过对Spinner控件属性和事件的分析，用编程的方法实现了循环微调控件功能。　　

循环微调控件(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 　　

再将其作为类保存起来，添加到你的类库中。　　
若你在编程中，需用此功能，就可直接用此循环微调控件类了。