为VFP添加循环微调控件类

来源： 作者： 出处：综艺读书 2006-10-30 

关 键 词：设计  

　在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

　　再将其作为类保存起来，添加到你的类库中。

　　若你在编程中，需用此功能，就可直接用此循环微调控件类了。

进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：为FoxPro中的弹出式菜单增加自学习功能

较新的文章：为Visual FoxPro应用程序增加文件压缩功能