Vfp form design

Event code for initializing (1)Form 1

this form . timer 1 . enabled = . t。

(2) Timer event code of timer 1:

this form . caption = ' Timing:'+time()

If thisform. label1.font size = 60.

this form . label 1 . font size = 9

other

this form . label 1 . font size = this form . label 1 . font size+ 1

endif

two

Initialization event code of (1) form 1

Start a century

this form . timer 1 . enabled = . t。

(2) Timer event code of timer control timer 1:

this form . text 1 . value = all trim(str(year(date()))+' year '+all trim(str(month(date()))+' month '+all trim(str(day(date()))+'

this form . text 1 . value = time()