|
|
我们观看的电视节目结束时，经常会看到演员列表从屏幕底部往上翻滚，用VFP也能实现此功能，当我们完成编写多媒体程序，在结束处，用此功能可以显示此程序的所有编制人员。
现举演员列表程序来说明此功能的实现：首先，需建立一个包含所有演员的数据表，例如，我建立一个名为Name的数据表，此表包含两个字段，一为Fname，代表演员所演的角色名，一为Tname，代表演员的真实姓名，表建立完后，我们建立一个窗体Form，在窗体内加入两个时间控件Tmer 1和TImer 2，将Tmer 1的Interval属性设为600，在窗体Form的Init事件中加入如下代码：
PUBLIC N
N=1
USE NAME
在时间控件TIMER1的TIMER事件中加入如下代码：
@ 10,10 say fname style 't' ＊在窗体FORM中显示FNAME字段的内容
if .not.eof()
@ 10,21 say '－－' style 't'
endif ＊如果到记录尾，就不显示
@ 10,35 say tname style 't' ＊在窗体FORM中显示TNAME字段的内容
if eof()
if n<5
n=n＋1
else
@ 10,20 say 'THE END' FONT 'IMPACT' ,20 style 't'
thisform.timer1.interval=0
THISFORM.TIMER2.INTERVAL=2000
endif
else
skip
endif
scroll 2,5,16,50,1
在TIMER2的TIMER事件中加入如下代码：
RELEASE THISFORM
RELEASE N
程序编制完成，存盘，运行它，看看结果吧！
(河南省南阳市仲景路22号综合管理办公室赵明春 473011)
|
|
