首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

为VFP添加循环微调控件类

(加入日期: 2001-11-11 )

打印文章】【字体:

分享到:
 在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


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


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

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章