VFP探讨之OLE控件(二)：日期选择器 - VFP论坛

问题点数：0 回复次数：1

VFP探讨之OLE控件(二)：日期选择器

    日期选择器的控件名称是Microsoft Date and Time Picker Control，对应的文件是：mscomct2.ocx，通常位于Windows主目录下的System32文件夹中。它的属性调用语法与进度条一样，是“对象名.Object.属性名”。它的主要属性只有一个：Value，用来返回控件的当前值，数据类型为日期时间型(T)；主要事件也只有一个：Change，用来处理当前值改变后的事件代码。
    举个简单的例子：用日期选择器挑定一个日期后，在表单上以中文日期形式显示该日期，并注明是星期几(初始为运行表单当天的日期值)。

Form1.Init事件代码：
CLEAR MEMORY
PRIVATE 日期
STORE DATE() TO 日期, This.日历.OBJECT.Value
DO CASE
   CASE CDOW(This.日历.OBJECT.Value)='Sunday'
      星期='星期日。'
   CASE CDOW(This.日历.OBJECT.Value)='Monday'
      星期='星期一。'
   CASE CDOW(This.日历.OBJECT.Value)='Tuesday'
      星期='星期二。'
   CASE CDOW(This.日历.OBJECT.Value)='Wednesday'
      星期='星期三。'
   CASE CDOW(This.日历.OBJECT.Value)='Thursday'
      星期='星期四。'
   CASE CDOW(This.日历.OBJECT.Value)='Friday'
      星期='星期五。'
   CASE CDOW(This.日历.OBJECT.Value)='Saturday'
      星期='星期六。'
ENDCASE
This.Label1.Caption='选择的日期是：'+TRANSFORM(日期,"@YL")+'，'+星期

日历.Object.Change事件代码：
    基本上与表单的Init事件相同，只是把前三条命令删除，并且在第一行加上“日期=TTOD(This.OBJECT.Value)”命令，把T型数据转换成D型数据，保持初始值显示时的格式。

图片附件: 游客没有浏览图片的权限，请登录或注册

日期选择.rar (293.16 KB)

控件默认样式的日期挑选器除了可以用单击下拉箭头弹出小窗选择日期的方式外，还可以单击日期值的年、月、日数值部分，直接用键盘输入数字更改。用键盘更改完以后，以回车确定。

搜索更多相关主题的帖子: color　文件夹　 Object　Windows　Microsoft　