Question

vfp表单设计

一.请设计一个如下图所示的表单。表单实现的功能是：表单中的“字变化了”文字会随着时间而自动循环缩放（字号在9到60之间变化），同时表单标题有动态时钟显示。表单（Form1）中的控件有一个计时器控件（Timer1）和一个标签(Label1)，请写出相应控件的事件代码。

（1）Form1的Init事件代码：
（2）Timer1的Timer事件代码：

二.表单运行时，显示当前系统日期、当前时间，且表单中信息能根据当前日期时间动态更新，时钟每秒跳动一次。表单中已添加计时器控件（timer1），且计时器控件的interval属性已正确设置，请写出表单(form1)的init事件及计时器控件（timer1）的timer事件代码

(1) 表单form1的init事件代码：
(2)计时器控件timer1的timer事件代码：





Answer 1

一
（1）Form1的Init事件代码：
thisform.timer1.enabled=.t.

（2）Timer1的Timer事件代码：
thisform.caption='计时：'+time()
if thisform.label1.fontsize=60
thisform.label1.fontsize=9
else
thisform.label1.fontsize=thisform.label1.fontsize+1
endif

二
(1) 表单form1的init事件代码：
set century on
thisform.timer1.enabled=.t.

(2)计时器控件timer1的timer事件代码：
thisform.text1.value=alltrim(str(year(date())))+'年'+alltrim(str(month(date())))+'月'+alltrim(str(day(date())))+'日'
thisform.text1.value=time()