-
昨天好友拿来了一张盘,上面有很多漂亮的图片
在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
再将其作为类保存起来,添加到你的类库中。
若你在编程中,需用此功能,就可直接用此循环微调控件类了。
循环微调控件(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
再将其作为类保存起来,添加到你的类库中。
若你在编程中,需用此功能,就可直接用此循环微调控件类了。
最新更新
显示/隐藏Excel网格线
用NPOI操作EXCEL--锁定列
组合行、列
用NPOI操作EXCEL--设置密码
用NPOI操作EXCEL--调整表单显示比例
打印相关设置
用NPOI操作EXCEL--插入图片
用NPOI操作EXCEL--画Grid
用NPOI操作EXCEL--画圆形
用NPOI操作EXCEL--画矩形
MySql索引原理与使用大全
Mysql命令大全(完整版)
Mysql常用命令行大全
mysql 索引类型以及创建
mysql命令详解
mysql的下载和命令行简单操作
mysql常用管理命令
MySQL命令大全
mysql命令行登录容易出现的错误
解决mysql的cmd命令错误及2003连接错误
数据类型之对象
数据类型之布尔型、整型、浮点型和字符
php教程之数据类型之数组
php教程之PHP 常量
php教程之变量
php教程之语法
PHP简介与安装
phpMyAdmin配置安装全攻略
PHP是什么
win2003 iis整合php后 环境变量无法读取到